000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 39 30 31 32 32 00 ..SAMdisk190122.
000030: 28 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 4E E5 00 00 C1 02 00 00 00 02 ......N.........
000120: 00 00 C2 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000130: 00 00 C4 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000140: 00 00 C6 02 00 00 00 02 00 00 C7 02 00 00 00 02 ................
000150: 00 00 C8 02 00 00 00 02 00 00 C9 02 00 00 00 02 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 00 52 53 32 33 32 20 20 20 20 20 20 00 00 00 52 .RS232 ...R
000210: 02 03 04 05 06 07 08 09 0A 0B 0C 00 00 00 00 00 ................
000220: 00 54 45 58 54 49 4E 49 20 20 20 20 00 00 00 3B .TEXTINI ...;
000230: 0D 0E 0F 10 11 12 13 14 00 00 00 00 00 00 00 00 ................
000240: 00 4D 41 49 4E 20 20 20 20 42 41 4B 00 00 00 43 .MAIN BAK...C
000250: 15 16 17 18 19 1A 1B 1C 1D 00 00 00 00 00 00 00 ................
000260: 00 43 4F 4D 4D 4F 4E 20 20 20 20 20 00 00 00 1C .COMMON ....
000270: 1E 1F 20 21 00 00 00 00 00 00 00 00 00 00 00 00 .. !............
000280: 00 58 4D 4F 44 45 4D 20 20 20 20 20 00 00 00 64 .XMODEM ...d
000290: 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 00 00 00 "#$%&'()*+,-....
0002A0: 00 42 42 53 50 52 4F 47 20 20 20 20 00 00 00 06 .BBSPROG ....
0002B0: 2F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 /...............
0002C0: 00 42 42 53 54 45 58 54 20 20 20 20 00 00 00 06 .BBSTEXT ....
0002D0: 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0...............
0002E0: 00 57 49 4E 44 4F 57 20 20 20 20 20 00 00 00 3C .WINDOW ...<
0002F0: 31 32 33 34 35 36 37 38 00 00 00 00 00 00 00 00 12345678........
000300: 00 44 41 54 41 50 52 4F 47 20 20 20 00 00 00 37 .DATAPROG ...7
000310: 39 3A 3B 3C 3D 3E 3F 00 00 00 00 00 00 00 00 00 9:;<=>?.........
000320: 00 54 45 58 54 53 59 53 20 20 20 20 00 00 00 80 .TEXTSYS ....
000330: 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F @ABCDEFGHIJKLMNO
000340: 00 54 45 58 54 53 59 53 20 20 20 20 01 00 00 0B .TEXTSYS ....
000350: 50 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 PQ..............
000360: 00 44 41 54 41 54 45 58 54 20 20 20 00 00 00 05 .DATATEXT ....
000370: 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 R...............
000380: 00 46 49 4C 45 20 20 20 20 20 20 20 00 00 00 1B .FILE ....
000390: 53 54 55 56 00 00 00 00 00 00 00 00 00 00 00 00 STUV............
0003A0: 00 4D 45 4E 55 53 20 20 20 20 20 20 00 00 00 80 .MENUS ....
0003B0: 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 63 64 65 66 WXYZ[\]^_`abcdef
0003C0: 00 4D 45 4E 55 53 20 20 20 20 20 20 01 00 00 21 .MENUS ...!
0003D0: 67 68 69 6A 6B 00 00 00 00 00 00 00 00 00 00 00 ghijk...........
0003E0: 00 41 4E 53 49 20 20 20 20 20 20 20 00 00 00 80 .ANSI ....
0003F0: 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 7B lmnopqrstuvwxyz{
000400: 00 41 4E 53 49 20 20 20 20 20 20 20 01 00 00 2C .ANSI ...,
000410: 7C 7D 7E 7F 80 81 00 00 00 00 00 00 00 00 00 00 |}~.............
000420: 00 4D 41 49 4E 20 20 20 20 20 20 20 00 00 00 43 .MAIN ...C
000430: 82 83 84 85 86 87 88 89 8A 00 00 00 00 00 00 00 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: 31 20 70 72 69 6E 74 20 22 52 53 32 33 32 20 54 1 print "RS232 T
000A10: 72 61 6E 73 66 75 72 20 72 6F 75 74 69 6E 65 73 ransfur routines
000A20: 22 0D 0A 0D 0A 3B 6A 70 20 49 4E 50 55 54 0D 0A "....;jp INPUT..
000A30: 3B 6A 70 20 4F 55 54 50 55 54 0D 0A 3B 6A 70 20 ;jp OUTPUT..;jp
000A40: 73 65 6E 64 72 65 63 65 76 65 0D 0A 3B 6A 70 20 sendreceve..;jp
000A50: 53 45 54 55 50 5F 52 53 32 33 32 0D 0A 3B 6A 70 SETUP_RS232..;jp
000A60: 20 48 41 4E 47 55 50 0D 0A 0D 0A 0D 0A 2E 73 65 HANGUP.......se
000A70: 74 69 6E 69 74 33 30 30 70 6C 75 73 09 09 09 09 tinit300plus....
000A80: 3B 20 61 64 64 20 73 65 6E 64 72 65 63 65 76 65 ; add sendreceve
000A90: 20 74 6F 20 33 30 30 20 69 6E 74 65 72 75 70 74 to 300 interupt
000AA0: 73 21 0D 0A 09 6C 64 20 68 6C 2C 73 65 6E 64 72 s!...ld hl,sendr
000AB0: 65 63 65 76 65 0D 0A 09 6C 64 20 28 6A 33 30 30 eceve...ld (j300
000AC0: 69 6E 69 74 5F 70 6C 75 73 2B 31 29 2C 68 6C 0D init_plus+1),hl.
000AD0: 0A 09 6C 64 20 61 2C 26 63 33 0D 0A 09 6C 64 20 ..ld a,&c3...ld
000AE0: 28 6A 33 30 30 69 6E 69 74 5F 70 6C 75 73 29 2C (j300init_plus),
000AF0: 61 0D 0A 09 72 65 74 0D 0A 0D 0A 3B 2D 2D 2D 2D a...ret....;----
000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 49 -----------..;.I
000B20: 4E 50 55 54 20 43 48 41 52 20 46 4F 52 4D 20 32 NPUT CHAR FORM 2
000B30: 33 32 0D 0A 3B 09 45 4E 54 52 59 20 4E 4F 4E 45 32..;.ENTRY NONE
000B40: 0D 0A 3B 09 45 58 49 54 09 43 41 52 52 59 20 54 ..;.EXIT.CARRY T
000B50: 52 55 45 20 43 48 41 52 20 52 45 43 45 56 45 44 RUE CHAR RECEVED
000B60: 20 49 4E 20 41 0D 0A 3B 09 09 43 41 52 52 59 20 IN A..;..CARRY
000B70: 46 41 4C 53 45 20 4E 4F 20 43 48 41 52 0D 0A 3B FALSE NO CHAR..;
000B80: 09 55 53 45 44 20 41 46 0D 0A 3B 2D 2D 2D 2D 2D .USED AF..;-----
000B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 49 4E -----------...IN
000BB0: 50 55 54 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 PUT...PUSH HL...
000BC0: 50 55 53 48 20 44 45 0D 0A 09 4C 44 20 48 4C 2C PUSH DE...LD HL,
000BD0: 28 49 6E 70 75 74 48 69 67 68 29 0D 0A 09 4C 44 (InputHigh)...LD
000BE0: 20 44 45 2C 28 49 6E 70 75 74 4C 6F 77 29 0D 0A DE,(InputLow)..
000BF0: 09 4C 44 20 41 2C 48 0D 0A 09 43 50 20 44 0D 0A .LD A,H...CP D..
000C00: 09 4A 52 20 4E 5A 2C 69 6E 70 75 74 30 0D 0A 09 .JR NZ,input0...
000C10: 4C 44 20 41 2C 4C 0D 0A 09 43 50 20 45 0D 0A 09 LD A,L...CP E...
000C20: 4A 52 20 5A 2C 69 6E 70 75 74 65 6E 64 0D 0A 2E JR Z,inputend...
000C30: 69 6E 70 75 74 30 0D 0A 09 4C 44 20 41 2C 28 44 input0...LD A,(D
000C40: 45 29 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 49 4E E)...LD H,A...IN
000C50: 43 20 44 45 0D 0A 09 4C 44 20 41 2C 44 0D 0A 09 C DE...LD A,D...
000C60: 43 50 20 52 5F 42 55 46 46 45 52 5F 45 4E 44 32 CP R_BUFFER_END2
000C70: 0D 0A 09 4A 52 20 4E 5A 2C 49 4E 50 55 54 31 0D ...JR NZ,INPUT1.
000C80: 0A 20 20 20 20 20 20 20 20 4C 44 20 44 2C 52 5F . LD D,R_
000C90: 42 55 46 46 45 52 5F 53 54 41 52 54 32 0D 0A 2E BUFFER_START2...
000CA0: 69 6E 70 75 74 31 09 0D 0A 09 4C 44 20 28 49 6E input1....LD (In
000CB0: 70 75 74 4C 6F 77 29 2C 44 45 0D 0A 20 20 20 20 putLow),DE..
000CC0: 20 20 20 20 4C 44 20 41 2C 48 0D 0A 09 53 43 46 LD A,H...SCF
000CD0: 0D 0A 2E 69 6E 70 75 74 65 6E 64 0D 0A 09 50 4F ...inputend...PO
000CE0: 50 20 44 45 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 P DE...POP HL...
000CF0: 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D RET....;--------
000D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B -------------..;
000D20: 09 4F 55 54 20 50 55 54 20 43 48 41 52 20 54 4F .OUT PUT CHAR TO
000D30: 20 32 33 32 0D 0A 3B 09 45 6E 74 72 79 09 41 3D 232..;.Entry.A=
000D40: 63 68 61 72 0D 0A 3B 09 45 78 69 74 20 6E 6F 6E char..;.Exit non
000D50: 65 0D 0A 3B 09 55 73 65 64 09 41 46 0D 0A 3B 2D e..;.Used.AF..;-
000D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000D80: 2D 2D 2D 2D 2D 0D 0A 0D 0A 2E 4F 55 54 50 55 54 -----.....OUTPUT
000D90: 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 50 55 53 ...PUSH HL...PUS
000DA0: 48 20 41 46 0D 0A 09 4C 44 20 48 2C 41 0D 0A 2E H AF...LD H,A...
000DB0: 4F 75 74 50 31 09 4C 44 20 41 2C 28 4F 75 74 50 OutP1.LD A,(OutP
000DC0: 75 74 4C 6F 77 29 0D 0A 09 4C 44 20 4C 2C 41 0D utLow)...LD L,A.
000DD0: 0A 09 44 45 43 20 4C 0D 0A 09 4C 44 20 41 2C 28 ..DEC L...LD A,(
000DE0: 4F 75 74 70 75 74 48 69 67 68 29 0D 0A 09 43 50 OutputHigh)...CP
000DF0: 20 4C 0D 0A 09 4A 50 20 5A 2C 4F 75 74 50 31 0D L...JP Z,OutP1.
000E00: 0A 09 4C 44 20 4C 2C 41 0D 0A 09 4C 44 20 41 2C ..LD L,A...LD A,
000E10: 48 0D 0A 09 4C 44 20 48 2C 4F 75 74 5F 53 74 61 H...LD H,Out_Sta
000E20: 72 74 32 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D rt2...LD (HL),A.
000E30: 0A 09 4C 44 20 41 2C 4C 0D 0A 09 49 4E 43 20 41 ..LD A,L...INC A
000E40: 0D 0A 09 4C 44 20 28 4F 75 74 70 75 74 48 69 67 ...LD (OutputHig
000E50: 68 29 2C 41 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 h),A...POP AF...
000E60: 50 4F 50 20 48 4C 0D 0A 09 52 45 54 0D 0A 0D 0A POP HL...RET....
000E70: 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ....;-----------
000E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000E90: 2D 2D 0D 0A 3B 20 31 2F 33 30 30 20 73 65 63 20 --..; 1/300 sec
000EA0: 73 65 6E 64 20 2F 20 72 65 63 69 76 65 20 72 6F send / recive ro
000EB0: 75 74 69 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D utine..;--------
000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000ED0: 2D 2D 2D 2D 0D 0A 2E 73 65 6E 64 72 65 63 65 76 ----...sendrecev
000EE0: 65 0D 0A 20 20 20 20 20 20 20 20 6C 64 20 61 2C e.. ld a,
000EF0: 28 52 53 32 33 32 5F 73 65 6C 65 63 74 29 0D 0A (RS232_select)..
000F00: 09 63 70 20 32 0D 0A 09 6A 72 20 7A 2C 73 65 6E .cp 2...jr z,sen
000F10: 64 72 65 63 65 76 65 5F 65 6E 64 09 3B 49 67 6E dreceve_end.;Ign
000F20: 6F 72 65 20 72 73 32 33 32 20 69 6E 70 75 74 73 ore rs232 inputs
000F30: 20 69 66 20 6E 6F 6E 65 20 73 65 6C 65 63 74 65 if none selecte
000F40: 64 0D 0A 09 0D 0A 09 4C 44 20 42 43 2C 28 70 6F d......LD BC,(po
000F50: 72 74 29 0D 0A 2E 72 65 63 0D 0A 09 49 4E 20 41 rt)...rec...IN A
000F60: 2C 28 43 29 0D 0A 09 42 49 54 20 30 2C 41 0D 0A ,(C)...BIT 0,A..
000F70: 09 4A 52 20 5A 2C 53 65 6E 64 43 68 61 72 0D 0A .JR Z,SendChar..
000F80: 09 4C 44 20 48 4C 2C 28 49 6E 70 75 74 48 69 67 .LD HL,(InputHig
000F90: 68 29 0D 0A 09 44 45 43 20 43 0D 0A 09 49 4E 20 h)...DEC C...IN
000FA0: 41 2C 28 43 29 0D 0A 09 4C 44 20 28 48 4C 29 2C A,(C)...LD (HL),
000FB0: 41 0D 0A 09 49 4E 43 20 48 4C 0D 0A 20 20 20 20 A...INC HL..
000FC0: 20 20 20 20 4C 44 20 41 2C 48 0D 0A 2E 52 65 63 LD A,H...Rec
000FD0: 53 65 6C 66 4D 6F 64 0D 0A 09 43 50 20 52 5F 42 SelfMod...CP R_B
000FE0: 75 66 66 65 72 5F 45 6E 64 32 0D 0A 09 4A 52 20 uffer_End2...JR
000FF0: 4E 5A 2C 52 45 43 32 0D 0A 09 4C 44 20 48 2C 52 NZ,REC2...LD H,R
001000: 5F 42 75 66 66 65 72 5F 53 74 61 72 74 32 0D 0A _Buffer_Start2..
001010: 2E 72 65 63 32 0D 0A 09 4C 44 20 28 49 6E 70 75 .rec2...LD (Inpu
001020: 74 48 69 67 68 29 2C 48 4C 0D 0A 20 20 20 20 20 tHigh),HL..
001030: 20 20 20 49 4E 43 20 43 0D 0A 09 4A 52 20 52 45 INC C...JR RE
001040: 43 0D 0A 2E 53 65 6E 64 63 68 61 72 0D 0A 2E 53 C...Sendchar...S
001050: 74 6F 70 5F 4F 75 74 70 75 74 0D 0A 09 4E 4F 50 top_Output...NOP
001060: 0D 0A 09 42 49 54 20 32 2C 41 0D 0A 09 4A 52 20 ...BIT 2,A...JR
001070: 5A 2C 73 65 6E 64 72 65 63 65 76 65 5F 65 6E 64 Z,sendreceve_end
001080: 0D 0A 09 4C 44 20 41 2C 28 4F 75 74 70 75 74 4C ...LD A,(OutputL
001090: 6F 77 29 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 4C ow)...LD L,A...L
0010A0: 44 20 41 2C 28 4F 75 74 70 75 74 48 69 67 68 29 D A,(OutputHigh)
0010B0: 0D 0A 09 43 50 20 4C 0D 0A 09 4A 52 20 5A 2C 73 ...CP L...JR Z,s
0010C0: 65 6E 64 72 65 63 65 76 65 5F 65 6E 64 0D 0A 09 endreceve_end...
0010D0: 4C 44 20 48 2C 4F 75 74 5F 53 74 61 72 74 32 0D LD H,Out_Start2.
0010E0: 0A 09 4C 44 20 41 2C 28 48 4C 29 0D 0A 09 44 45 ..LD A,(HL)...DE
0010F0: 43 20 43 0D 0A 09 4F 55 54 20 28 43 29 2C 41 0D C C...OUT (C),A.
001100: 0A 09 49 4E 43 20 4C 0D 0A 09 4C 44 20 41 2C 4C ..INC L...LD A,L
001110: 0D 0A 09 4C 44 20 28 4F 75 74 70 75 74 4C 6F 77 ...LD (OutputLow
001120: 29 2C 41 0D 0A 2E 73 65 6E 64 72 65 63 65 76 65 ),A...sendreceve
001130: 5F 65 6E 64 0D 0A 09 52 45 54 0D 0A 0D 0A 3B 2D _end...RET....;-
001140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001160: 2D 2D 0D 0A 0D 0A 2E 57 61 69 74 5F 4D 6F 64 65 --.....Wait_Mode
001170: 6D 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 28 44 m.. LD (D
001180: 49 41 4C 54 49 4D 45 29 2C 41 09 09 3B 6D 61 78 IALTIME),A..;max
001190: 20 74 69 6D 65 20 66 6F 72 20 77 61 69 74 0D 0A time for wait..
0011A0: 09 58 4F 52 20 41 0D 0A 09 4C 44 20 28 54 49 4D .XOR A...LD (TIM
0011B0: 45 52 29 2C 41 09 09 3B 72 65 73 65 74 20 74 69 ER),A..;reset ti
0011C0: 6D 65 72 0D 0A 2E 57 61 69 74 5F 4D 6F 64 0D 0A mer...Wait_Mod..
0011D0: 09 4C 44 20 42 43 2C 26 46 41 44 44 09 09 3B 70 .LD BC,&FADD..;p
0011E0: 6F 72 74 20 0D 0A 09 4C 44 20 44 2C 31 36 09 09 ort ...LD D,16..
0011F0: 09 3B 63 61 72 72 69 65 72 20 64 65 63 74 65 74 .;carrier dectet
001200: 0D 0A 09 4F 55 54 20 28 43 29 2C 44 0D 0A 09 49 ...OUT (C),D...I
001210: 4E 20 44 2C 28 43 29 09 09 3B 67 65 74 20 73 74 N D,(C)..;get st
001220: 61 74 65 0D 0A 09 42 49 54 20 33 2C 44 0D 0A 09 ate...BIT 3,D...
001230: 4A 52 20 4E 5A 2C 4D 4F 44 45 4D 5F 4F 4E 5F 4C JR NZ,MODEM_ON_L
001240: 49 4E 45 09 3B 63 61 72 72 69 65 72 20 6F 6E 3B INE.;carrier on;
001250: 61 3D 30 20 72 65 74 0D 0A 0D 0A 20 20 20 20 20 a=0 ret....
001260: 20 20 20 4C 44 20 41 2C 28 44 49 41 4C 54 49 4D LD A,(DIALTIM
001270: 45 29 0D 0A 09 4C 44 20 44 2C 41 0D 0A 09 4C 44 E)...LD D,A...LD
001280: 20 41 2C 28 54 49 4D 45 52 29 0D 0A 09 43 50 20 A,(TIMER)...CP
001290: 44 0D 0A 09 4A 52 20 5A 2C 4D 4F 44 45 4D 5F 4F D...JR Z,MODEM_O
0012A0: 46 46 5F 4C 49 4E 45 09 3B 61 3D 66 66 2C 74 69 FF_LINE.;a=ff,ti
0012B0: 6D 65 20 6F 75 74 0D 0A 0D 0A 20 20 20 20 20 20 me out....
0012C0: 20 20 43 41 4C 4C 20 4B 4D 5F 52 45 41 44 5F 43 CALL KM_READ_C
0012D0: 48 41 52 0D 0A 09 4A 52 20 43 2C 4D 4F 44 45 4D HAR...JR C,MODEM
0012E0: 5F 4F 46 46 5F 4C 49 4E 45 09 3B 61 3D 66 66 2C _OFF_LINE.;a=ff,
0012F0: 6B 65 79 20 62 65 65 6E 20 70 72 65 73 73 65 64 key been pressed
001300: 0D 0A 09 4A 52 20 57 41 49 54 5F 4D 4F 44 09 09 ...JR WAIT_MOD..
001310: 3B 6C 6F 6F 70 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D ;loop....;------
001320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E -------------...
001340: 50 55 52 47 45 5F 42 55 46 0D 0A 09 58 4F 52 20 PURGE_BUF...XOR
001350: 41 0D 0A 09 4C 44 20 28 54 49 4D 45 52 29 2C 41 A...LD (TIMER),A
001360: 0D 0A 2E 50 42 55 31 0D 0A 09 43 41 4C 4C 20 49 ...PBU1...CALL I
001370: 4E 50 55 54 0D 0A 09 4A 52 20 43 2C 50 55 52 47 NPUT...JR C,PURG
001380: 45 5F 42 55 46 0D 0A 09 4C 44 20 41 2C 28 54 49 E_BUF...LD A,(TI
001390: 4D 45 52 29 0D 0A 09 43 50 20 32 0D 0A 09 52 45 MER)...CP 2...RE
0013A0: 54 20 5A 0D 0A 09 4A 52 20 50 42 55 31 0D 0A 0D T Z...JR PBU1...
0013B0: 0A 0D 0A 3B 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 ...;- - - - - -
0013C0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
0013D0: 2D 20 2D 20 0D 0A 2E 4D 4F 44 45 4D 5F 4F 4E 5F - - ...MODEM_ON_
0013E0: 4C 49 4E 45 0D 0A 09 58 4F 52 20 41 0D 0A 09 52 LINE...XOR A...R
0013F0: 45 54 0D 0A 2E 4D 4F 44 45 4D 5F 4F 46 46 5F 4C ET...MODEM_OFF_L
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 4E E5 01 00 C1 02 00 00 00 02 ......N.........
001420: 01 00 C2 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001430: 01 00 C4 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001440: 01 00 C6 02 00 00 00 02 01 00 C7 02 00 00 00 02 ................
001450: 01 00 C8 02 00 00 00 02 01 00 C9 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 49 4E 45 0D 0A 09 43 50 20 26 46 43 0D 0A 09 52 INE...CP &FC...R
001510: 45 54 20 5A 0D 0A 09 4C 44 20 41 2C 26 46 46 0D ET Z...LD A,&FF.
001520: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
001530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 43 61 72 ----------...Car
001550: 72 69 65 72 5F 54 65 73 74 0D 0A 09 50 55 53 48 rier_Test...PUSH
001560: 20 42 43 0D 0A 09 50 55 53 48 20 44 45 0D 0A 09 BC...PUSH DE...
001570: 4C 44 20 42 43 2C 26 46 41 44 44 09 09 3B 70 6F LD BC,&FADD..;po
001580: 72 74 20 0D 0A 09 4C 44 20 44 2C 31 36 09 09 09 rt ...LD D,16...
001590: 3B 63 61 72 72 69 65 72 20 64 65 63 74 65 74 0D ;carrier dectet.
0015A0: 0A 09 4F 55 54 20 28 43 29 2C 44 0D 0A 09 49 4E ..OUT (C),D...IN
0015B0: 20 44 2C 28 43 29 09 09 3B 67 65 74 20 73 74 61 D,(C)..;get sta
0015C0: 74 65 0D 0A 09 42 49 54 20 33 2C 44 0D 0A 09 50 te...BIT 3,D...P
0015D0: 4F 50 20 44 45 0D 0A 09 50 4F 50 20 42 43 0D 0A OP DE...POP BC..
0015E0: 20 20 20 20 20 20 20 20 52 45 54 20 09 09 09 3B RET ...;
0015F0: 69 66 20 5A 65 72 6F 20 74 72 75 65 20 74 68 65 if Zero true the
001600: 6E 20 6E 6F 20 63 61 72 72 69 65 72 0D 0A 3B 2D n no carrier..;-
001610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001630: 0D 0A 2E 4F 75 74 53 74 72 0D 0A 09 4C 44 20 41 ...OutStr...LD A
001640: 2C 28 48 4C 29 09 09 3B 6F 75 74 20 73 74 72 69 ,(HL)..;out stri
001650: 6E 67 20 66 6F 72 20 62 20 28 6C 65 6E 67 74 68 ng for b (length
001660: 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 20 20 20 20 )...INC HL..
001670: 20 20 20 20 43 41 4C 4C 20 4F 55 54 50 55 54 0D CALL OUTPUT.
001680: 0A 09 44 4A 4E 5A 20 4F 55 54 53 54 52 0D 0A 09 ..DJNZ OUTSTR...
001690: 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D RET....;--------
0016A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0016B0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 52 45 53 45 54 5F -------...RESET_
0016C0: 42 55 46 46 45 52 0D 0A 09 44 49 0D 0A 09 4C 44 BUFFER...DI...LD
0016D0: 20 48 4C 2C 52 5F 42 75 66 66 65 72 5F 53 74 61 HL,R_Buffer_Sta
0016E0: 72 74 0D 0A 09 4C 44 20 28 49 6E 70 75 74 4C 6F rt...LD (InputLo
0016F0: 77 29 2C 48 4C 0D 0A 09 4C 44 20 28 49 6E 70 75 w),HL...LD (Inpu
001700: 74 48 69 67 68 29 2C 48 4C 0D 0A 09 45 49 0D 0A tHigh),HL...EI..
001710: 09 4C 44 20 41 2C 37 0D 0A 09 43 41 4C 4C 20 26 .LD A,7...CALL &
001720: 42 42 35 41 0D 0A 09 4C 44 20 41 2C 26 46 45 0D BB5A...LD A,&FE.
001730: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
001740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001750: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 43 4C 45 41 52 --------...CLEAR
001760: 5F 42 55 46 46 45 52 0D 0A 09 4C 44 20 48 4C 2C _BUFFER...LD HL,
001770: 52 5F 42 55 46 46 45 52 5F 53 54 41 52 54 0D 0A R_BUFFER_START..
001780: 09 4C 44 20 44 45 2C 52 5F 42 55 46 46 45 52 5F .LD DE,R_BUFFER_
001790: 53 54 41 52 54 2B 31 0D 0A 09 4C 44 20 42 43 2C START+1...LD BC,
0017A0: 52 5F 42 55 46 46 45 52 5F 45 4E 44 2D 52 5F 42 R_BUFFER_END-R_B
0017B0: 55 46 46 45 52 5F 53 54 41 52 54 2D 31 0D 0A 09 UFFER_START-1...
0017C0: 4C 44 20 28 48 4C 29 2C 30 0D 0A 09 4C 44 49 52 LD (HL),0...LDIR
0017D0: 0D 0A 09 4A 50 20 52 45 53 45 54 5F 42 55 46 46 ...JP RESET_BUFF
0017E0: 45 52 0D 0A 0D 0A 0D 0A 3B 2A 2A 2A 2A 2A 2A 2A ER......;*******
0017F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
001800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 3B 09 53 ***********..;.S
001810: 45 54 20 55 50 20 54 48 45 20 32 33 32 0D 0A 3B ET UP THE 232..;
001820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
001830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
001840: 2A 2A 0D 0A 0D 0A 2E 53 45 54 55 50 5F 47 45 54 **.....SETUP_GET
001850: 5F 57 4F 52 44 0D 0A 09 45 58 20 48 4C 2C 44 45 _WORD...EX HL,DE
001860: 0D 0A 09 6C 64 20 6C 2C 61 0D 0A 3B 09 4C 44 20 ...ld l,a..;.LD
001870: 4C 2C 28 49 58 2B 31 30 29 0D 0A 09 4C 44 20 48 L,(IX+10)...LD H
001880: 2C 30 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 09 3B ,0...ADD HL,HL.;
001890: 2A 32 0D 0A 09 41 44 44 20 48 4C 2C 44 45 0D 0A *2...ADD HL,DE..
0018A0: 09 4C 44 20 42 2C 28 48 4C 29 0D 0A 09 49 4E 43 .LD B,(HL)...INC
0018B0: 20 48 4C 0D 0A 09 4C 44 20 43 2C 28 48 4C 29 0D HL...LD C,(HL).
0018C0: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
0018D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0018E0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 53 45 54 55 50 --------...SETUP
0018F0: 5F 47 45 54 5F 42 59 54 45 0D 0A 3B 09 4C 44 20 _GET_BYTE..;.LD
001900: 45 2C 28 49 58 2B 31 30 29 0D 0A 09 6C 64 20 65 E,(IX+10)...ld e
001910: 2C 61 0D 0A 09 4C 44 20 44 2C 30 0D 0A 09 41 44 ,a...LD D,0...AD
001920: 44 20 48 4C 2C 44 45 0D 0A 09 4C 44 20 42 2C 28 D HL,DE...LD B,(
001930: 48 4C 29 0D 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D HL)...RET..;----
001940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 42 ------------...B
001960: 41 55 44 5F 53 54 41 52 54 0D 0A 09 4C 44 20 49 AUD_START...LD I
001970: 58 2C 42 41 53 50 45 45 44 32 0D 0A 20 20 20 20 X,BASPEED2..
001980: 20 20 20 20 4C 44 20 48 4C 2C 42 53 54 41 42 4C LD HL,BSTABL
001990: 45 32 0D 0A 09 53 55 42 20 22 43 22 0D 0A 09 4C E2...SUB "C"...L
0019A0: 44 20 28 53 51 42 41 55 44 29 2C 41 0D 0A 09 43 D (SQBAUD),A...C
0019B0: 41 4C 4C 20 53 45 54 55 50 5F 47 45 54 5F 57 4F ALL SETUP_GET_WO
0019C0: 52 44 0D 0A 09 50 55 53 48 20 42 43 0D 0A 09 4C RD...PUSH BC...L
0019D0: 44 20 49 59 2C 28 57 52 49 54 45 5F 52 45 47 53 D IY,(WRITE_REGS
0019E0: 29 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C ).. LD A,
0019F0: 28 49 59 2B 31 29 0D 0A 09 41 4E 44 20 25 30 30 (IY+1)...AND %00
001A00: 31 31 31 31 31 31 0D 0A 09 4F 52 20 42 0D 0A 09 111111...OR B...
001A10: 4C 44 20 28 49 59 2B 31 29 2C 41 09 3B 73 65 74 LD (IY+1),A.;set
001A20: 20 72 65 67 20 34 0D 0A 09 43 41 4C 4C 20 53 45 reg 4...CALL SE
001A30: 54 52 53 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 4C TRS...POP BC...L
001A40: 44 20 41 2C 43 0D 0A 09 4C 44 20 48 4C 2C 53 57 D A,C...LD HL,SW
001A50: 33 30 30 0D 0A 09 43 50 20 31 0D 0A 09 4A 52 20 300...CP 1...JR
001A60: 5A 2C 42 55 44 0D 0A 20 20 20 20 20 20 20 20 4C Z,BUD.. L
001A70: 44 20 48 4C 2C 53 57 32 34 30 30 0D 0A 09 43 50 D HL,SW2400...CP
001A80: 20 33 0D 0A 09 4A 52 20 5A 2C 42 55 44 0D 0A 09 3...JR Z,BUD...
001A90: 4C 44 20 48 4C 2C 53 57 32 34 31 32 0D 0A 2E 42 LD HL,SW2412...B
001AA0: 55 44 09 50 55 53 48 20 48 4C 0D 0A 0D 0A 09 4C UD.PUSH HL.....L
001AB0: 44 20 49 58 2C 42 41 55 44 5F 4D 53 47 0D 0A 09 D IX,BAUD_MSG...
001AC0: 43 41 4C 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 4C CALL MBORDER...L
001AD0: 44 20 48 4C 2C 36 31 2A 32 35 36 2B 31 38 0D 0A D HL,61*256+18..
001AE0: 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 20 20 20 20 .LD (Y),HL..
001AF0: 20 20 20 20 4C 44 20 48 4C 2C 53 57 49 54 43 48 LD HL,SWITCH
001B00: 0D 0A 09 43 41 4C 4C 20 54 45 58 54 0D 0A 20 20 ...CALL TEXT..
001B10: 20 20 20 20 20 20 50 4F 50 20 48 4C 0D 0A 09 43 POP HL...C
001B20: 41 4C 4C 20 54 45 58 54 0D 0A 09 43 41 4C 4C 20 ALL TEXT...CALL
001B30: 4B 4D 5F 57 41 49 54 5F 43 48 41 52 0D 0A 42 45 KM_WAIT_CHAR..BE
001B40: 58 49 54 09 4C 44 20 49 58 2C 42 41 55 44 5F 4D XIT.LD IX,BAUD_M
001B50: 53 47 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 SG...CALL WINDOW
001B60: 5F 57 49 50 45 0D 0A 09 4C 44 20 49 58 2C 42 41 _WIPE...LD IX,BA
001B70: 53 50 45 45 44 32 0D 0A 42 45 58 49 54 32 09 3B SPEED2..BEXIT2.;
001B80: 0D 0A 09 3B 4A 50 20 57 49 4E 52 45 54 0D 0A 09 ...;JP WINRET...
001B90: 4A 50 20 53 54 32 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D JP ST2....;-----
001BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001BB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 50 41 52 ---------..;.PAR
001BC0: 54 59 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D TY..;-----------
001BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001BE0: 2D 2D 2D 0D 0A 0D 0A 2E 50 41 52 54 59 5F 53 54 ---.....PARTY_ST
001BF0: 41 52 54 0D 0A 0D 0A 20 20 20 20 20 20 20 20 53 ART.... S
001C00: 55 42 20 22 49 22 0D 0A 09 4C 44 20 48 4C 2C 50 UB "I"...LD HL,P
001C10: 4E 45 4F 0D 0A 09 4C 44 20 28 53 51 50 41 52 49 NEO...LD (SQPARI
001C20: 54 59 29 2C 41 0D 0A 09 43 41 4C 4C 20 53 45 54 TY),A...CALL SET
001C30: 55 50 5F 47 45 54 5F 42 59 54 45 0D 0A 09 4C 44 UP_GET_BYTE...LD
001C40: 20 49 59 2C 28 57 52 49 54 45 5F 52 45 47 53 29 IY,(WRITE_REGS)
001C50: 0D 0A 09 4C 44 20 41 2C 28 49 59 2B 31 29 0D 0A ...LD A,(IY+1)..
001C60: 09 41 4E 44 20 25 31 31 31 31 31 31 30 30 0D 0A .AND %11111100..
001C70: 09 4F 52 20 42 0D 0A 09 4C 44 20 28 49 59 2B 31 .OR B...LD (IY+1
001C80: 29 2C 41 0D 0A 09 43 41 4C 4C 20 53 45 54 52 53 ),A...CALL SETRS
001C90: 0D 0A 09 4A 50 20 53 54 32 0D 0A 3B 2D 2D 2D 2D ...JP ST2..;----
001CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001CB0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 44 41 54 41 --------..;.DATA
001CC0: 20 42 49 54 53 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D BITS..;--------
001CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001CE0: 2D 2D 2D 2D 0D 0A 2E 42 49 54 5F 53 54 41 52 54 ----...BIT_START
001CF0: 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 42 54 35 36 37 .....LD HL,BT567
001D00: 38 0D 0A 09 53 55 42 20 22 35 22 0D 0A 09 4C 44 8...SUB "5"...LD
001D10: 20 28 53 51 44 41 54 41 29 2C 41 0D 0A 09 43 41 (SQDATA),A...CA
001D20: 4C 4C 20 53 45 54 55 50 5F 47 45 54 5F 42 59 54 LL SETUP_GET_BYT
001D30: 45 0D 0A 09 4C 44 20 41 2C 42 0D 0A 09 4C 44 20 E...LD A,B...LD
001D40: 49 59 2C 28 57 52 49 54 45 5F 52 45 47 53 29 0D IY,(WRITE_REGS).
001D50: 0A 20 20 20 20 20 20 20 20 4C 44 20 28 49 59 2B . LD (IY+
001D60: 30 29 2C 41 0D 0A 09 4C 44 20 41 2C 28 49 59 2B 0),A...LD A,(IY+
001D70: 32 29 0D 0A 09 41 4E 44 20 25 31 30 30 30 30 30 2)...AND %100000
001D80: 31 30 0D 0A 09 4C 44 20 43 2C 41 0D 0A 20 20 20 10...LD C,A..
001D90: 20 20 20 20 20 4C 44 20 41 2C 42 0D 0A 09 53 52 LD A,B...SR
001DA0: 4C 20 41 0D 0A 09 4F 52 20 25 30 30 30 30 31 30 L A...OR %000010
001DB0: 30 30 0D 0A 20 20 20 20 20 20 20 20 4F 52 20 43 00.. OR C
001DC0: 0D 0A 09 4C 44 20 28 49 59 2B 32 29 2C 41 0D 0A ...LD (IY+2),A..
001DD0: 09 43 41 4C 4C 20 53 45 54 52 53 0D 0A 09 4A 50 .CALL SETRS...JP
001DE0: 20 53 54 32 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ST2..;---------
001DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001E00: 2D 2D 0D 0A 3B 09 53 54 4F 50 20 42 49 54 53 0D --..;.STOP BITS.
001E10: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
001E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E -------------...
001E30: 53 54 4F 50 53 54 41 52 54 0D 0A 09 53 55 42 20 STOPSTART...SUB
001E40: 22 4C 22 0D 0A 09 4C 44 20 48 4C 2C 53 54 4F 50 "L"...LD HL,STOP
001E50: 53 32 0D 0A 09 4C 44 20 28 53 51 53 54 4F 50 29 S2...LD (SQSTOP)
001E60: 2C 41 0D 0A 09 43 41 4C 4C 20 53 45 54 55 50 5F ,A...CALL SETUP_
001E70: 47 45 54 5F 42 59 54 45 0D 0A 09 4C 44 20 49 59 GET_BYTE...LD IY
001E80: 2C 28 57 52 49 54 45 5F 52 45 47 53 29 0D 0A 09 ,(WRITE_REGS)...
001E90: 4C 44 20 41 2C 28 49 59 2B 31 29 0D 0A 09 41 4E LD A,(IY+1)...AN
001EA0: 44 20 25 31 31 31 31 30 30 31 31 0D 0A 20 20 20 D %11110011..
001EB0: 20 20 20 20 20 4F 52 20 42 0D 0A 09 4C 44 20 28 OR B...LD (
001EC0: 49 59 2B 31 29 2C 41 0D 0A 09 43 41 4C 4C 20 53 IY+1),A...CALL S
001ED0: 45 54 52 53 0D 0A 09 4A 50 20 53 54 32 0D 0A 3B ETRS...JP ST2..;
001EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001EF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 50 -----------..;.P
001F00: 4F 52 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ORT..;----------
001F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001F20: 2D 0D 0A 0D 0A 2E 50 54 41 09 4C 44 20 4C 2C 26 -.....PTA.LD L,&
001F30: 44 44 0D 0A 09 4C 44 20 41 2C 30 0D 0A 09 4A 52 DD...LD A,0...JR
001F40: 20 50 53 55 0D 0A 2E 50 54 42 20 20 20 09 4C 44 PSU...PTB .LD
001F50: 20 4C 2C 26 44 46 0D 0A 09 4C 44 20 41 2C 31 0D L,&DF...LD A,1.
001F60: 0A 2E 50 53 55 09 4C 44 20 48 2C 26 46 41 0D 0A ..PSU.LD H,&FA..
001F70: 09 4C 44 20 28 50 4F 52 54 29 2C 48 4C 0D 0A 09 .LD (PORT),HL...
001F80: 4C 44 20 28 53 51 50 4F 52 54 29 2C 41 0D 0A 09 LD (SQPORT),A...
001F90: 4A 50 20 53 54 32 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D JP ST2..;-------
001FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001FB0: 2D 2D 2D 2D 2D 2D 0D 0A 2E 73 65 74 0D 0A 09 4C ------...set...L
001FC0: 44 20 49 58 2C 53 45 54 57 0D 0A 09 43 41 4C 4C D IX,SETW...CALL
001FD0: 20 4D 42 4F 52 44 45 52 0D 0A 09 43 41 4C 4C 20 MBORDER...CALL
001FE0: 4D 50 52 49 4E 54 0D 0A 2E 53 54 32 09 43 41 4C MPRINT...ST2.CAL
001FF0: 4C 20 53 45 54 50 52 49 4E 54 0D 0A 2E 53 45 54 L SETPRINT...SET
002000: 4C 50 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 5F LP.CALL KM_WAIT_
002010: 43 48 41 52 0D 0A 09 43 50 20 26 46 43 0D 0A 09 CHAR...CP &FC...
002020: 4A 50 20 5A 2C 57 49 4E 52 45 54 0D 0A 09 43 50 JP Z,WINRET...CP
002030: 20 22 35 22 0D 0A 09 4A 52 20 43 2C 53 4F 54 31 "5"...JR C,SOT1
002040: 0D 0A 09 43 50 20 22 38 22 2B 31 0D 0A 20 20 20 ...CP "8"+1..
002050: 20 20 20 20 20 4A 52 20 43 2C 42 49 54 5F 53 54 JR C,BIT_ST
002060: 41 52 54 0D 0A 2E 53 4F 54 31 09 52 45 53 20 35 ART...SOT1.RES 5
002070: 2C 41 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 43 50 ,A...LD L,A...CP
002080: 20 22 41 22 0D 0A 09 4A 52 20 43 2C 53 45 54 4C "A"...JR C,SETL
002090: 50 0D 0A 09 4A 52 20 5A 2C 50 54 41 0D 0A 09 43 P...JR Z,PTA...C
0020A0: 50 20 22 42 22 0D 0A 09 4A 52 20 5A 2C 50 54 42 P "B"...JR Z,PTB
0020B0: 0D 0A 09 43 50 20 22 48 22 2B 31 0D 0A 09 4A 50 ...CP "H"+1...JP
0020C0: 20 43 2C 42 41 55 44 5F 53 54 41 52 54 0D 0A 09 C,BAUD_START...
0020D0: 43 50 20 22 4B 22 2B 31 0D 0A 09 4A 70 20 43 2C CP "K"+1...Jp C,
0020E0: 50 41 52 54 59 5F 53 54 41 52 54 0D 0A 09 43 50 PARTY_START...CP
0020F0: 20 22 4E 22 2B 31 09 0D 0A 09 4A 52 20 43 2C 53 "N"+1....JR C,S
002100: 54 4F 50 53 54 41 52 54 0D 0A 09 4A 50 20 53 45 TOPSTART...JP SE
002110: 54 4C 50 0D 0A 2E 53 45 54 50 52 49 4E 54 0D 0A TLP...SETPRINT..
002120: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 33 31 LD HL,31
002130: 2A 32 35 36 2B 31 37 0D 0A 09 4C 44 20 28 59 29 *256+17...LD (Y)
002140: 2C 48 4C 0D 0A 09 4C 44 20 41 2C 28 53 51 50 4F ,HL...LD A,(SQPO
002150: 52 54 29 0D 0A 09 41 44 44 20 22 41 22 0D 0A 09 RT)...ADD "A"...
002160: 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 45 CALL SCREENWRITE
002170: 09 0D 0A 09 4C 44 20 41 2C 22 3A 22 0D 0A 09 43 ....LD A,":"...C
002180: 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 45 0D ALL SCREENWRITE.
002190: 0A 09 4C 44 20 41 2C 28 53 51 44 41 54 41 29 0D ..LD A,(SQDATA).
0021A0: 0A 09 41 44 44 20 22 35 22 0D 0A 09 43 41 4C 4C ..ADD "5"...CALL
0021B0: 20 53 43 52 45 45 4E 57 52 49 54 45 0D 0A 09 4C SCREENWRITE...L
0021C0: 44 20 41 2C 22 3A 22 0D 0A 09 43 41 4C 4C 20 53 D A,":"...CALL S
0021D0: 43 52 45 45 4E 57 52 49 54 45 0D 0A 09 4C 44 20 CREENWRITE...LD
0021E0: 41 2C 28 53 51 50 41 52 49 54 59 29 0D 0A 09 4C A,(SQPARITY)...L
0021F0: 44 20 48 4C 2C 50 4E 4F 4E 45 0D 0A 09 43 50 20 D HL,PNONE...CP
002200: 30 0D 0A 09 4A 52 20 5A 2C 53 45 54 50 52 31 0D 0...JR Z,SETPR1.
002210: 0A 09 4C 44 20 48 4C 2C 50 45 56 45 4E 0D 0A 09 ..LD HL,PEVEN...
002220: 4A 52 20 5A 2C 53 45 54 50 52 31 0D 0A 09 4C 44 JR Z,SETPR1...LD
002230: 20 48 4C 2C 50 4F 44 44 0D 0A 2E 53 45 54 50 52 HL,PODD...SETPR
002240: 31 09 43 41 4C 4C 20 54 45 58 54 0D 0A 09 4C 44 1.CALL TEXT...LD
002250: 20 41 2C 28 53 51 53 54 4F 50 29 0D 0A 09 4C 44 A,(SQSTOP)...LD
002260: 20 4C 2C 41 0D 0A 09 4C 44 20 48 2C 30 0D 0A 09 L,A...LD H,0...
002270: 41 44 44 20 48 4C 2C 48 4C 0D 0A 09 41 44 44 20 ADD HL,HL...ADD
002280: 48 4C 2C 48 4C 0D 0A 09 4C 44 20 44 45 2C 53 54 HL,HL...LD DE,ST
002290: 4F 50 31 0D 0A 09 41 44 44 20 48 4C 2C 44 45 0D OP1...ADD HL,DE.
0022A0: 0A 09 43 41 4C 4C 20 54 45 58 54 0D 0A 09 0D 0A ..CALL TEXT.....
0022B0: 09 4C 44 20 41 2C 28 53 51 42 41 55 44 29 0D 0A .LD A,(SQBAUD)..
0022C0: 09 4C 44 20 4C 2C 41 0D 0A 09 4C 44 20 48 2C 30 .LD L,A...LD H,0
0022D0: 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 44 2C 30 .. LD D,0
0022E0: 0D 0A 09 4C 44 20 45 2C 41 0D 0A 09 41 44 44 20 ...LD E,A...ADD
0022F0: 48 4C 2C 48 4C 20 20 20 20 20 20 20 3B 2A 32 0D HL,HL ;*2.
002300: 0A 09 41 44 44 20 48 4C 2C 48 4C 20 20 20 20 20 ..ADD HL,HL
002310: 20 20 3B 2A 34 0D 0A 09 41 44 44 20 48 4C 2C 44 ;*4...ADD HL,D
002320: 45 09 3B 2A 35 0D 0A 09 4C 44 20 44 45 2C 42 58 E.;*5...LD DE,BX
002330: 37 0D 0A 20 20 20 20 20 20 20 20 41 44 44 20 48 7.. ADD H
002340: 4C 2C 44 45 0D 0A 09 4A 50 20 54 45 58 54 0D 0A L,DE...JP TEXT..
002350: 09 0D 0A 0D 0A 2E 50 4E 4F 4E 45 09 53 54 52 20 ......PNONE.STR
002360: 22 4E 4F 4E 45 3A 22 0D 0A 2E 50 45 56 45 4E 20 "NONE:"...PEVEN
002370: 20 53 54 52 20 22 45 56 45 4E 3A 22 0D 0A 2E 50 STR "EVEN:"...P
002380: 4F 44 44 20 20 20 53 54 52 20 22 4F 44 44 20 3A ODD STR "ODD :
002390: 22 0D 0A 2E 53 54 4F 50 31 09 53 54 52 20 22 31 "...STOP1.STR "1
0023A0: 20 20 3A 22 0D 0A 2E 53 54 4F 50 31 35 20 53 54 :"...STOP15 ST
0023B0: 52 20 22 31 2E 35 3A 22 0D 0A 2E 53 54 4F 50 32 R "1.5:"...STOP2
0023C0: 20 20 53 54 52 20 22 32 20 20 3A 22 0D 0A 2E 42 STR "2 :"...B
0023D0: 58 37 09 20 53 54 52 20 22 37 35 20 20 20 22 0D X7. STR "75 ".
0023E0: 0A 2E 42 58 35 20 20 20 20 20 53 54 52 20 22 31 ..BX5 STR "1
0023F0: 35 30 20 20 22 0D 0A 2E 42 58 33 20 20 20 20 20 50 "...BX3
002400: 53 54 52 20 22 33 30 30 20 20 22 0D 0A 2E 42 58 STR "300 "...BX
002410: 36 20 20 20 20 20 53 54 52 20 22 36 30 30 20 20 6 STR "600
002420: 22 0D 0A 2E 42 58 32 20 20 20 20 20 53 54 52 20 "...BX2 STR
002430: 22 31 32 30 30 20 22 0D 0A 2E 42 58 34 20 20 20 "1200 "...BX4
002440: 20 20 53 54 52 20 22 32 34 2D 31 32 22 0D 0A 2E STR "24-12"...
002450: 42 58 53 50 09 20 53 54 52 20 22 20 20 20 20 20 BXSP. STR "
002460: 22 0D 0A 2E 53 51 50 4F 52 54 09 09 42 59 54 45 "...SQPORT..BYTE
002470: 20 30 0D 0A 2E 53 51 50 41 52 49 54 59 20 20 20 0...SQPARITY
002480: 20 20 20 20 42 59 54 45 20 30 0D 0A 2E 53 51 53 BYTE 0...SQS
002490: 54 4F 50 09 09 42 59 54 45 20 30 0D 0A 2E 53 51 TOP..BYTE 0...SQ
0024A0: 44 41 54 41 09 09 42 59 54 45 20 33 0D 0A 2E 53 DATA..BYTE 3...S
0024B0: 51 42 41 55 44 09 09 42 59 54 45 20 35 0D 0A 0D QBAUD..BYTE 5...
0024C0: 0A 2E 53 45 54 57 0D 0A 42 59 54 45 20 33 30 2C ..SETW..BYTE 30,
0024D0: 34 0D 0A 42 59 54 45 20 31 35 2C 33 31 0D 0A 42 4..BYTE 15,31..B
0024E0: 59 54 45 20 31 33 2C 30 2C 33 31 2C 35 0D 0A 57 YTE 13,0,31,5..W
0024F0: 4F 52 44 20 30 3A 42 59 54 45 20 30 0D 0A 42 59 ORD 0:BYTE 0..BY
002500: 54 45 09 22 50 4F 52 54 20 20 20 20 20 50 41 52 TE."PORT PAR
002510: 49 54 59 20 20 20 20 20 53 54 4F 50 20 42 49 54 ITY STOP BIT
002520: 53 22 2C 30 0D 0A 42 59 54 45 20 20 20 20 22 41 S",0..BYTE "A
002530: 22 2B 26 38 30 2C 22 20 41 20 20 20 20 20 20 22 "+&80," A "
002540: 2C 22 49 22 2B 26 38 30 2C 22 20 4E 4F 4E 45 20 ,"I"+&80," NONE
002550: 20 20 20 20 22 2C 22 4C 22 2B 26 38 30 2C 22 20 ","L"+&80,"
002560: 31 22 2C 30 0D 0A 42 59 54 45 09 22 42 22 2B 26 1",0..BYTE."B"+&
002570: 38 30 2C 22 20 42 20 20 20 20 20 20 22 2C 22 4A 80," B ","J
002580: 22 2B 26 38 30 2C 22 20 45 56 45 4E 20 20 20 20 "+&80," EVEN
002590: 20 22 2C 22 4D 22 2B 26 38 30 2C 22 20 31 2E 35 ","M"+&80," 1.5
0025A0: 22 2C 30 09 0D 0A 42 59 54 45 09 22 20 20 20 20 ",0...BYTE."
0025B0: 20 20 20 20 20 22 2C 22 4B 22 2B 26 38 30 2C 22 ","K"+&80,"
0025C0: 20 4F 44 44 20 20 20 20 20 20 22 2C 22 4E 22 2B ODD ","N"+
0025D0: 26 38 30 2C 22 20 32 22 2C 30 0D 0A 42 59 54 45 &80," 2",0..BYTE
0025E0: 09 22 42 41 55 44 22 2C 30 0D 0A 42 59 54 45 09 ."BAUD",0..BYTE.
0025F0: 22 43 22 2B 26 38 30 2C 22 20 37 35 22 2C 30 0D "C"+&80," 75",0.
002600: 0A 42 59 54 45 09 22 44 22 2B 26 38 30 2C 22 20 .BYTE."D"+&80,"
002610: 31 35 30 20 20 20 20 20 20 20 20 20 20 20 44 41 150 DA
002620: 54 41 20 42 49 54 53 22 2C 30 0D 0A 42 59 54 45 TA BITS",0..BYTE
002630: 09 22 45 22 2B 26 38 30 2C 22 20 33 30 30 20 20 ."E"+&80," 300
002640: 20 20 20 20 20 20 20 20 20 22 2C 22 35 22 2B 26 ","5"+&
002650: 38 30 2C 22 20 35 22 2C 30 0D 0A 42 59 54 45 09 80," 5",0..BYTE.
002660: 22 46 22 2B 26 38 30 2C 22 20 36 30 30 20 20 20 "F"+&80," 600
002670: 20 20 20 20 20 20 20 20 22 2C 22 36 22 2B 26 38 ","6"+&8
002680: 30 2C 22 20 36 22 2C 30 0D 0A 42 59 54 45 09 22 0," 6",0..BYTE."
002690: 47 22 2B 26 38 30 2C 22 20 31 32 30 30 20 20 20 G"+&80," 1200
0026A0: 20 20 20 20 20 20 20 22 2C 22 37 22 2B 26 38 30 ","7"+&80
0026B0: 2C 22 20 37 22 2C 30 0D 0A 42 59 54 45 09 22 48 ," 7",0..BYTE."H
0026C0: 22 2B 26 38 30 2C 22 20 32 34 2D 31 32 30 30 20 "+&80," 24-1200
0026D0: 20 20 20 20 20 20 22 2C 22 38 22 2B 26 38 30 2C ","8"+&80,
0026E0: 22 20 38 22 2C 30 0D 0A 42 59 54 45 20 20 20 20 " 8",0..BYTE
0026F0: 22 20 22 2C 30 0D 0A 42 59 54 45 09 22 20 22 2C " ",0..BYTE." ",
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 4E E5 02 00 C1 02 00 00 00 02 ......N.........
002720: 02 00 C2 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002730: 02 00 C4 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002740: 02 00 C6 02 00 00 00 02 02 00 C7 02 00 00 00 02 ................
002750: 02 00 C8 02 00 00 00 02 02 00 C9 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 30 0D 0A 0D 0A 0D 0A 0D 0A 3B 2A 2A 2A 2A 2A 2A 0........;******
002810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
002820: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A 2E 53 45 54 ********.....SET
002830: 55 50 5F 52 53 32 33 32 0D 0A 09 4C 44 20 41 2C UP_RS232...LD A,
002840: 28 52 53 32 33 32 5F 53 45 4C 45 43 54 29 0D 0A (RS232_SELECT)..
002850: 09 4C 44 20 48 4C 2C 47 4C 32 33 32 0D 0A 09 43 .LD HL,GL232...C
002860: 50 20 31 0D 0A 09 4A 50 20 5A 2C 53 52 31 0D 0A P 1...JP Z,SR1..
002870: 09 4C 44 20 48 4C 2C 53 54 32 33 32 0D 0A 09 4F .LD HL,ST232...O
002880: 52 20 41 0D 0A 09 52 45 54 20 4E 5A 0D 0A 2E 53 R A...RET NZ...S
002890: 52 31 09 4C 44 20 28 57 52 49 54 45 5F 52 45 47 R1.LD (WRITE_REG
0028A0: 53 29 2C 48 4C 0D 0A 09 4A 50 20 53 45 54 52 53 S),HL...JP SETRS
0028B0: 0D 0A 0D 0A 2E 53 45 54 52 53 0D 0A 09 4C 44 20 .....SETRS...LD
0028C0: 42 43 2C 26 46 41 44 44 0D 0A 09 43 41 4C 4C 20 BC,&FADD...CALL
0028D0: 4F 55 54 32 33 32 0D 0A 09 4C 44 20 42 43 2C 26 OUT232...LD BC,&
0028E0: 46 41 44 46 0D 0A 09 43 41 4C 4C 20 4F 55 54 32 FADF...CALL OUT2
0028F0: 33 32 0D 0A 09 44 49 0D 0A 09 4C 44 20 42 43 2C 32...DI...LD BC,
002900: 26 46 42 44 46 0D 0A 09 4C 44 20 41 2C 25 30 30 &FBDF...LD A,%00
002910: 31 31 30 31 31 30 09 3B 43 4F 55 4E 54 45 52 30 110110.;COUNTER0
002920: 20 20 20 20 78 78 31 31 30 31 31 30 0D 0A 09 4F xx110110...O
002930: 55 54 20 28 43 29 2C 41 0D 0A 09 4C 44 20 43 2C UT (C),A...LD C,
002940: 26 44 43 0D 0A 09 4C 44 20 48 4C 2C 28 43 4F 55 &DC...LD HL,(COU
002950: 4E 54 45 52 30 29 0D 0A 09 4F 55 54 20 28 43 29 NTER0)...OUT (C)
002960: 2C 4C 0D 0A 09 4F 55 54 20 28 43 29 2C 48 0D 0A ,L...OUT (C),H..
002970: 0D 0A 09 4C 44 20 43 2C 26 44 46 0D 0A 09 4C 44 ...LD C,&DF...LD
002980: 20 41 2C 25 30 31 31 31 30 31 31 30 09 3B 43 4F A,%01110110.;CO
002990: 55 4E 54 45 52 31 0D 0A 09 4F 55 54 20 28 43 29 UNTER1...OUT (C)
0029A0: 2C 41 0D 0A 09 4C 44 20 43 2C 26 44 44 0D 0A 20 ,A...LD C,&DD..
0029B0: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 43 4F LD HL,(CO
0029C0: 55 4E 54 45 52 31 29 0D 0A 09 4F 55 54 20 28 43 UNTER1)...OUT (C
0029D0: 29 2C 4C 0D 0A 09 4F 55 54 20 28 43 29 2C 48 0D ),L...OUT (C),H.
0029E0: 0A 09 45 49 0D 0A 20 20 20 20 20 20 20 20 52 45 ..EI.. RE
0029F0: 54 0D 0A 09 0D 0A 2E 4F 55 54 32 33 32 0D 0A 20 T......OUT232..
002A00: 20 20 20 20 20 20 20 44 49 0D 0A 09 4C 44 20 41 DI...LD A
002A10: 2C 26 31 38 0D 0A 09 4F 55 54 20 28 43 29 2C 41 ,&18...OUT (C),A
002A20: 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 28 57 52 49 54 .....LD HL,(WRIT
002A30: 45 5F 52 45 47 53 29 0D 0A 0D 0A 09 4C 44 20 41 E_REGS).....LD A
002A40: 2C 33 0D 0A 09 4F 55 54 20 28 43 29 2C 41 0D 0A ,3...OUT (C),A..
002A50: 09 4C 44 20 41 2C 28 48 4C 29 3A 49 4E 43 20 48 .LD A,(HL):INC H
002A60: 4C 09 3B 52 45 47 20 33 0D 0A 09 4F 55 54 20 28 L.;REG 3...OUT (
002A70: 43 29 2C 41 0D 0A 0D 0A 09 4C 44 20 41 2C 34 0D C),A.....LD A,4.
002A80: 0A 09 4F 55 54 20 28 43 29 2C 41 0D 0A 09 4C 44 ..OUT (C),A...LD
002A90: 20 41 2C 28 48 4C 29 3A 49 4E 43 20 48 4C 09 3B A,(HL):INC HL.;
002AA0: 52 45 47 20 34 0D 0A 09 4F 55 54 20 28 43 29 2C REG 4...OUT (C),
002AB0: 41 0D 0A 0D 0A 09 4C 44 20 41 2C 35 0D 0A 09 4F A.....LD A,5...O
002AC0: 55 54 20 28 43 29 2C 41 0D 0A 09 4C 44 20 41 2C UT (C),A...LD A,
002AD0: 28 48 4C 29 09 09 3B 52 45 47 20 35 0D 0A 09 4F (HL)..;REG 5...O
002AE0: 55 54 20 28 43 29 2C 41 0D 0A 09 45 49 0D 0A 20 UT (C),A...EI..
002AF0: 20 20 20 20 20 20 20 52 45 54 0D 0A 0D 0A 3B 2D RET....;-
002B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
002B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 52 ------------...R
002B20: 53 32 33 32 5F 53 45 4C 45 43 54 09 42 59 54 45 S232_SELECT.BYTE
002B30: 20 30 0D 0A 2E 57 52 49 54 45 5F 52 45 47 53 09 0...WRITE_REGS.
002B40: 57 4F 52 44 20 47 4C 32 33 32 0D 0A 2E 47 4C 32 WORD GL232...GL2
002B50: 33 32 09 09 42 59 54 45 20 26 43 31 0D 0A 09 09 32..BYTE &C1....
002B60: 42 59 54 45 20 26 34 34 0D 0A 09 09 42 59 54 45 BYTE &44....BYTE
002B70: 20 26 45 41 0D 0A 2E 53 54 32 33 32 09 09 42 59 &EA...ST232..BY
002B80: 54 45 20 26 43 31 0D 0A 09 09 42 59 54 45 20 26 TE &C1....BYTE &
002B90: 34 34 0D 0A 09 09 42 59 54 45 20 26 45 41 0D 0A 44....BYTE &EA..
002BA0: 2E 43 4F 55 4E 54 45 52 30 09 42 59 54 45 20 35 .COUNTER0.BYTE 5
002BB0: 32 2C 30 0D 0A 2E 43 4F 55 4E 54 45 52 31 09 42 2,0...COUNTER1.B
002BC0: 59 54 45 20 35 32 2C 30 09 3B 32 34 30 30 20 44 YTE 52,0.;2400 D
002BD0: 45 46 55 4C 54 0D 0A 0D 0A 2E 53 54 4F 50 53 0D EFULT.....STOPS.
002BE0: 0A 42 59 54 45 20 35 30 2C 35 2C 35 2C 31 34 0D .BYTE 50,5,5,14.
002BF0: 0A 42 59 54 45 20 33 2C 31 32 2C 35 31 2C 36 0D .BYTE 3,12,51,6.
002C00: 0A 57 4F 52 44 20 30 3A 42 59 54 45 20 30 0D 0A .WORD 0:BYTE 0..
002C10: 42 59 54 45 20 09 22 20 22 2C 22 31 22 2B 26 38 BYTE ." ","1"+&8
002C20: 30 2C 22 20 53 54 4F 50 20 62 22 2C 30 0D 0A 42 0," STOP b",0..B
002C30: 59 54 45 20 09 22 20 31 2E 22 2C 22 35 22 2B 26 YTE ." 1.","5"+&
002C40: 38 30 2C 22 20 53 54 4F 50 20 62 22 2C 30 0D 0A 80," STOP b",0..
002C50: 42 59 54 45 20 09 22 20 22 2C 22 32 22 2B 26 38 BYTE ." ","2"+&8
002C60: 30 2C 22 20 53 54 4F 50 20 62 22 2C 30 0D 0A 53 0," STOP b",0..S
002C70: 54 4F 50 53 32 0D 0A 42 59 54 45 20 25 30 31 30 TOPS2..BYTE %010
002C80: 30 0D 0A 42 59 54 45 20 25 31 30 30 30 0D 0A 42 0..BYTE %1000..B
002C90: 59 54 45 20 25 31 31 30 30 0D 0A 0D 0A 2E 50 54 YTE %1100.....PT
002CA0: 53 45 54 0D 0A 42 59 54 45 20 35 30 2C 35 2C 34 SET..BYTE 50,5,4
002CB0: 2C 31 30 09 0D 0A 42 59 54 45 20 32 2C 38 2C 35 ,10...BYTE 2,8,5
002CC0: 31 2C 36 0D 0A 57 4F 52 44 20 50 4A 55 50 3A 42 1,6..WORD PJUP:B
002CD0: 59 54 45 20 30 0D 0A 42 59 54 45 20 22 20 50 4F YTE 0..BYTE " PO
002CE0: 52 54 20 41 22 2C 30 0D 0A 42 59 54 45 20 22 20 RT A",0..BYTE "
002CF0: 50 4F 52 54 20 42 22 2C 30 0D 0A 50 4A 55 50 0D PORT B",0..PJUP.
002D00: 0A 57 4F 52 44 20 50 54 41 0D 0A 57 4F 52 44 20 .WORD PTA..WORD
002D10: 50 54 42 0D 0A 0D 0A 2E 42 49 54 5F 53 45 54 0D PTB.....BIT_SET.
002D20: 0A 42 59 54 45 20 35 30 2C 35 2C 36 2C 31 30 0D .BYTE 50,5,6,10.
002D30: 0A 42 59 54 45 20 34 2C 38 2C 35 31 2C 36 0D 0A .BYTE 4,8,51,6..
002D40: 57 4F 52 44 20 30 3A 42 59 54 45 20 33 0D 0A 42 WORD 0:BYTE 3..B
002D50: 59 54 45 20 09 22 20 22 2C 22 35 22 2B 26 38 30 YTE ." ","5"+&80
002D60: 2C 22 20 42 49 54 53 22 2C 30 0D 0A 42 59 54 45 ," BITS",0..BYTE
002D70: 20 09 22 20 22 2C 22 36 22 2B 26 38 30 2C 22 20 ." ","6"+&80,"
002D80: 42 49 54 53 22 2C 30 0D 0A 42 59 54 45 20 09 22 BITS",0..BYTE ."
002D90: 20 22 2C 22 37 22 2B 26 38 30 2C 22 20 42 49 54 ","7"+&80," BIT
002DA0: 53 22 2C 30 0D 0A 42 59 54 45 20 09 22 20 22 2C S",0..BYTE ." ",
002DB0: 22 38 22 2B 26 38 30 2C 22 20 42 49 54 53 22 2C "8"+&80," BITS",
002DC0: 30 0D 0A 2E 42 54 35 36 37 38 0D 0A 42 59 54 45 0...BT5678..BYTE
002DD0: 20 30 0D 0A 42 59 54 45 20 25 31 30 30 30 30 30 0..BYTE %100000
002DE0: 30 31 0D 0A 42 59 54 45 20 25 30 31 30 30 30 30 01..BYTE %010000
002DF0: 30 31 0D 0A 42 59 54 45 20 25 31 31 30 30 30 30 01..BYTE %110000
002E00: 30 31 0D 0A 0D 0A 2E 50 41 52 54 59 5F 53 45 54 01.....PARTY_SET
002E10: 0D 0A 42 59 54 45 20 35 30 2C 35 2C 35 2C 31 34 ..BYTE 50,5,5,14
002E20: 0D 0A 42 59 54 45 20 33 2C 31 32 2C 35 31 2C 36 ..BYTE 3,12,51,6
002E30: 0D 0A 57 4F 52 44 20 30 3A 42 59 54 45 20 30 0D ..WORD 0:BYTE 0.
002E40: 0A 42 59 54 45 20 09 22 20 50 61 72 69 74 79 20 .BYTE ." Parity
002E50: 22 2C 22 4E 22 2B 26 38 30 2C 22 6F 6E 65 22 2C ","N"+&80,"one",
002E60: 30 0D 0A 42 59 54 45 20 09 22 20 50 61 72 69 74 0..BYTE ." Parit
002E70: 79 20 22 2C 22 45 22 2B 26 38 30 2C 22 76 65 6E y ","E"+&80,"ven
002E80: 22 2C 30 0D 0A 42 59 54 45 20 09 22 20 50 61 72 ",0..BYTE ." Par
002E90: 69 74 79 20 22 2C 22 4F 22 2B 26 38 30 2C 22 64 ity ","O"+&80,"d
002EA0: 64 22 2C 30 0D 0A 2E 50 4E 45 4F 0D 0A 42 59 54 d",0...PNEO..BYT
002EB0: 45 20 25 30 30 20 09 3B 4E 4F 4E 45 09 0D 0A 42 E %00 .;NONE...B
002EC0: 59 54 45 20 25 31 31 09 3B 45 56 45 4E 0D 0A 42 YTE %11.;EVEN..B
002ED0: 59 54 45 20 25 30 31 09 3B 4F 44 44 0D 0A 0D 0A YTE %01.;ODD....
002EE0: 2E 53 54 41 4E 44 5F 53 50 45 45 44 0D 0A 42 59 .STAND_SPEED..BY
002EF0: 54 45 20 35 30 2C 35 2C 31 31 2C 31 31 0D 0A 42 TE 50,5,11,11..B
002F00: 59 54 45 20 39 2C 39 2C 35 31 2C 36 0D 0A 57 4F YTE 9,9,51,6..WO
002F10: 52 44 20 30 3A 42 59 54 45 20 35 0D 0A 42 59 54 RD 0:BYTE 5..BYT
002F20: 45 09 22 20 33 30 30 22 2C 30 0D 0A 42 59 54 45 E." 300",0..BYTE
002F30: 09 22 20 36 30 30 22 2C 30 0D 0A 42 59 54 45 20 ." 600",0..BYTE
002F40: 09 22 20 31 32 30 30 2F 37 35 22 2C 30 0D 0A 42 ." 1200/75",0..B
002F50: 59 54 45 20 09 22 20 37 35 2F 31 32 30 30 22 2C YTE ." 75/1200",
002F60: 30 0D 0A 42 59 54 45 20 09 22 20 31 32 30 30 22 0..BYTE ." 1200"
002F70: 2C 30 0D 0A 42 59 54 45 20 09 22 20 32 34 30 30 ,0..BYTE ." 2400
002F80: 22 2C 30 0D 0A 42 59 54 45 20 09 22 20 34 38 30 ",0..BYTE ." 480
002F90: 30 22 2C 30 0D 0A 42 59 54 45 20 09 22 20 39 36 0",0..BYTE ." 96
002FA0: 30 30 22 2C 30 0D 0A 42 59 54 45 20 09 22 20 31 00",0..BYTE ." 1
002FB0: 39 32 30 30 22 2C 30 0D 0A 0D 0A 2E 42 53 54 41 9200",0.....BSTA
002FC0: 4E 44 5F 54 41 42 09 09 09 0D 0A 42 59 54 45 20 ND_TAB.....BYTE
002FD0: 31 30 34 2C 30 20 0D 0A 42 59 54 45 20 31 30 34 104,0 ..BYTE 104
002FE0: 2C 30 0D 0A 42 59 54 45 20 25 31 31 30 30 30 30 ,0..BYTE %110000
002FF0: 30 30 09 09 3B 2F 36 34 20 33 30 30 0D 0A 42 59 00..;/64 300..BY
003000: 54 45 20 35 32 2C 30 0D 0A 42 59 54 45 20 35 32 TE 52,0..BYTE 52
003010: 2C 30 0D 0A 42 59 54 45 20 25 31 31 30 30 30 30 ,0..BYTE %110000
003020: 30 30 09 09 3B 2F 36 34 20 36 30 30 0D 0A 42 59 00..;/64 600..BY
003030: 54 45 20 32 36 2C 30 0D 0A 42 59 54 45 20 31 36 TE 26,0..BYTE 16
003040: 31 2C 31 0D 0A 42 59 54 45 20 25 31 31 30 30 30 1,1..BYTE %11000
003050: 30 30 30 09 09 3B 2F 36 34 20 31 32 30 30 2F 37 000..;/64 1200/7
003060: 35 0D 0A 42 59 54 45 20 31 36 31 2C 31 0D 0A 42 5..BYTE 161,1..B
003070: 59 54 45 20 32 36 2C 30 0D 0A 42 59 54 45 20 25 YTE 26,0..BYTE %
003080: 31 31 30 30 30 30 30 30 09 09 3B 2F 36 34 20 37 11000000..;/64 7
003090: 35 2F 31 32 30 30 0D 0A 42 59 54 45 20 32 36 2C 5/1200..BYTE 26,
0030A0: 30 0D 0A 42 59 54 45 20 32 36 2C 30 0D 0A 42 59 0..BYTE 26,0..BY
0030B0: 54 45 20 25 31 31 30 30 30 30 30 30 09 09 3B 2F TE %11000000..;/
0030C0: 36 34 20 31 32 30 30 0D 0A 42 59 54 45 20 35 32 64 1200..BYTE 52
0030D0: 2C 30 0D 0A 42 59 54 45 20 35 32 2C 30 0D 0A 42 ,0..BYTE 52,0..B
0030E0: 59 54 45 20 25 30 31 30 30 30 30 30 30 09 09 3B YTE %01000000..;
0030F0: 2F 36 34 20 32 34 30 30 0D 0A 42 59 54 45 20 32 /64 2400..BYTE 2
003100: 36 2C 30 0D 0A 42 59 54 45 20 32 36 2C 30 0D 0A 6,0..BYTE 26,0..
003110: 42 59 54 45 20 25 30 31 30 30 30 30 30 30 09 09 BYTE %01000000..
003120: 3B 2F 31 36 20 34 38 30 30 0D 0A 42 59 54 45 20 ;/16 4800..BYTE
003130: 32 30 38 2C 30 0D 0A 42 59 54 45 20 32 30 38 2C 208,0..BYTE 208,
003140: 30 0D 0A 42 59 54 45 20 25 30 30 30 30 30 30 30 0..BYTE %0000000
003150: 30 09 09 3B 2F 31 20 39 36 30 30 0D 0A 42 59 54 0..;/1 9600..BYT
003160: 45 20 31 30 34 2C 30 0D 0A 42 59 54 45 20 31 30 E 104,0..BYTE 10
003170: 34 2C 30 0D 0A 42 59 54 45 20 25 30 30 30 30 30 4,0..BYTE %00000
003180: 30 30 30 09 09 3B 2F 31 20 31 39 32 30 30 0D 0A 000..;/1 19200..
003190: 0D 0A 2E 42 41 53 50 45 45 44 32 0D 0A 42 59 54 ...BASPEED2..BYT
0031A0: 45 20 35 30 2C 35 2C 38 2C 31 31 0D 0A 42 59 54 E 50,5,8,11..BYT
0031B0: 45 20 36 2C 39 2C 35 31 2C 36 0D 0A 57 4F 52 44 E 6,9,51,6..WORD
0031C0: 20 30 3A 42 59 54 45 20 35 0D 0A 42 59 54 45 20 0:BYTE 5..BYTE
0031D0: 09 22 20 37 35 22 2C 30 0D 0A 42 59 54 45 20 09 ." 75",0..BYTE .
0031E0: 22 20 31 35 30 22 2C 30 0D 0A 42 59 54 45 20 09 " 150",0..BYTE .
0031F0: 22 20 33 30 30 22 2C 30 0D 0A 42 59 54 45 20 09 " 300",0..BYTE .
003200: 22 20 36 30 30 22 2C 30 0D 0A 42 59 54 45 20 09 " 600",0..BYTE .
003210: 22 20 31 32 30 30 22 2C 30 0D 0A 42 59 54 45 20 " 1200",0..BYTE
003220: 09 22 20 32 34 2D 31 32 30 30 22 2C 30 0D 0A 0D ." 24-1200",0...
003230: 0A 2E 42 53 54 41 42 4C 45 32 09 09 09 0D 0A 42 ..BSTABLE2.....B
003240: 59 54 45 09 25 31 31 30 30 30 30 30 30 2C 31 09 YTE.%11000000,1.
003250: 3B 2F 36 34 20 33 30 30 0D 0A 42 59 54 45 09 25 ;/64 300..BYTE.%
003260: 31 30 30 30 30 30 30 30 2C 31 09 3B 2F 33 32 20 10000000,1.;/32
003270: 31 35 30 0D 0A 42 59 54 45 09 25 30 31 30 30 30 150..BYTE.%01000
003280: 30 30 30 2C 31 09 3B 2F 31 36 20 20 33 30 30 0D 000,1.;/16 300.
003290: 0A 42 59 54 45 09 25 31 31 30 30 30 30 30 30 2C .BYTE.%11000000,
0032A0: 33 09 3B 2F 36 34 20 20 36 30 30 0D 0A 42 59 54 3.;/64 600..BYT
0032B0: 45 09 25 30 31 30 30 30 30 30 30 2C 33 20 20 20 E.%01000000,3
0032C0: 20 20 3B 2F 31 36 20 20 20 31 32 30 30 0D 0A 42 ;/16 1200..B
0032D0: 59 54 45 09 25 30 31 30 30 30 30 30 30 2C 32 09 YTE.%01000000,2.
0032E0: 3B 2F 31 36 09 32 34 31 32 0D 0A 09 09 09 3B 33 ;/16.2412.....;3
0032F0: 30 30 20 31 20 20 31 32 30 30 2F 32 34 30 30 20 00 1 1200/2400
003300: 32 20 20 20 32 34 30 30 20 33 0D 0A 53 57 33 30 2 2400 3..SW30
003310: 30 09 53 54 52 20 22 33 30 30 22 0D 0A 53 57 32 0.STR "300"..SW2
003320: 34 30 30 09 53 54 52 20 22 32 34 30 30 22 0D 0A 400.STR "2400"..
003330: 53 57 32 34 31 32 09 53 54 52 20 22 32 34 2D 31 SW2412.STR "24-1
003340: 32 30 30 22 0D 0A 2E 42 41 55 44 5F 4D 53 47 0D 200"...BAUD_MSG.
003350: 0A 42 59 54 45 20 36 30 2C 31 37 2C 33 2C 31 38 .BYTE 60,17,3,18
003360: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
003370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003380: 0D 0A 0D 0A 2E 48 41 4E 47 55 50 0D 0A 09 44 49 .....HANGUP...DI
003390: 0D 0A 09 4C 44 20 42 43 2C 28 50 4F 52 54 29 0D ...LD BC,(PORT).
0033A0: 0A 09 4C 44 20 41 2C 35 0D 0A 09 4F 55 54 20 28 ..LD A,5...OUT (
0033B0: 43 29 2C 41 0D 0A 09 4C 44 20 49 59 2C 28 57 52 C),A...LD IY,(WR
0033C0: 49 54 45 5F 52 45 47 53 29 0D 0A 09 4C 44 20 41 ITE_REGS)...LD A
0033D0: 2C 28 49 59 2B 32 29 0D 0A 09 52 45 53 20 37 2C ,(IY+2)...RES 7,
0033E0: 41 0D 0A 09 4F 55 54 20 28 43 29 2C 41 0D 0A 09 A...OUT (C),A...
0033F0: 45 49 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 EI...XOR A...LD
003400: 28 54 49 4D 45 52 29 2C 41 0D 0A 2E 48 41 4E 47 (TIMER),A...HANG
003410: 0D 0A 09 4C 44 20 41 2C 28 54 49 4D 45 52 29 0D ...LD A,(TIMER).
003420: 0A 09 43 50 20 31 0D 0A 09 4A 52 20 4E 5A 2C 48 ..CP 1...JR NZ,H
003430: 41 4E 47 0D 0A 09 44 49 0D 0A 09 4C 44 20 41 2C ANG...DI...LD A,
003440: 35 0D 0A 09 4F 55 54 20 28 43 29 2C 41 0D 0A 09 5...OUT (C),A...
003450: 4C 44 20 41 2C 28 49 59 2B 32 29 0D 0A 09 4F 55 LD A,(IY+2)...OU
003460: 54 20 28 43 29 2C 41 0D 0A 09 45 49 0D 0A 09 4C T (C),A...EI...L
003470: 44 20 41 2C 26 46 45 0D 0A 09 52 45 54 0D 0A 0D D A,&FE...RET...
003480: 0A 0D 0A 1A 32 33 32 20 20 20 24 24 24 FF 00 FF ....232 $$$...
003490: 1A 2C 32 33 2C 44 35 2C 43 44 00 36 00 1E 05 8C .,23,D5,CD.6....
0034A0: 20 43 35 2C 41 31 2C 44 31 2C 43 44 2C 32 44 2C C5,A1,D1,CD,2D,
0034B0: 41 31 2C 31 38 2C 30 30 2C 33 45 2C 30 30 2C 43 A1,18,00,3E,00,C
0034C0: 45 2C 30 30 2C 33 32 2C 31 32 2C 41 30 2C 43 39 E,00,32,12,A0,C9
0034D0: 00 0B 00 28 05 8C 20 45 46 39 42 00 00 00 00 00 ...(.. EF9B.....
0034E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003500: 32 20 20 20 32 34 30 30 20 33 0D 0A 53 57 33 30 2 2400 3..SW30
003510: 30 09 53 54 52 20 22 33 30 30 22 0D 0A 53 57 32 0.STR "300"..SW2
003520: 34 30 30 09 53 54 52 20 22 32 34 30 30 22 0D 0A 400.STR "2400"..
003530: 53 57 32 34 31 32 09 53 54 52 20 22 32 34 2D 31 SW2412.STR "24-1
003540: 32 30 30 22 0D 0A 2E 42 41 55 44 5F 4D 53 47 0D 200"...BAUD_MSG.
003550: 0A 42 59 54 45 20 36 30 2C 31 37 2C 33 2C 31 38 .BYTE 60,17,3,18
003560: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
003570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003580: 0D 0A 0D 0A 2E 48 41 4E 47 55 50 0D 0A 09 44 49 .....HANGUP...DI
003590: 0D 0A 09 4C 44 20 42 43 2C 28 50 4F 52 54 29 0D ...LD BC,(PORT).
0035A0: 0A 09 4C 44 20 41 2C 35 0D 0A 09 4F 55 54 20 28 ..LD A,5...OUT (
0035B0: 43 29 2C 41 0D 0A 09 4C 44 20 49 59 2C 28 57 52 C),A...LD IY,(WR
0035C0: 49 54 45 5F 52 45 47 53 29 0D 0A 09 4C 44 20 41 ITE_REGS)...LD A
0035D0: 2C 28 49 59 2B 32 29 0D 0A 09 52 45 53 20 37 2C ,(IY+2)...RES 7,
0035E0: 41 0D 0A 09 4F 55 54 20 28 43 29 2C 41 0D 0A 09 A...OUT (C),A...
0035F0: 45 49 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 EI...XOR A...LD
003600: 3A 76 7F 3C FE 3C 28 04 32 76 7F C9 AF 32 76 7F :v.<.<(.2v...2v.
003610: 3A 77 7F 3C FE 18 28 04 32 77 7F C9 AF 32 77 7F :w.<..(.2w...2w.
003620: C9 C9 21 0C 7A 3A 77 7F CD E9 51 23 3A 76 7F CD ..!.z:w...Q#:v..
003630: E9 51 23 3A 75 7F CD E9 51 2A B0 7F CD 58 5B 22 .Q#:u...Q*...X["
003640: B2 7F 21 0C 7A 06 08 7E E5 C5 21 B4 7F CD 89 59 ..!.z..~..!....Y
003650: CD D1 59 EB 2A B2 7F CD A7 5A 2A B2 7F CD F7 5D ..Y.*....Z*....]
003660: 22 B2 7F C1 E1 23 10 DF C9 16 0A CD F0 51 16 01 "....#.......Q..
003670: 1E 00 92 38 03 1C 18 FA 82 4F 7B C6 30 77 23 79 ...8.....O{.0w#y
003680: C9 F5 3E 00 18 03 F5 3E C9 32 A1 51 F1 C9 32 97 ..>....>.2.Q..2.
003690: 59 32 B7 59 32 C4 59 32 D0 59 32 A8 59 32 DC 59 Y2.Y2.Y2.Y2.Y2.Y
0036A0: C9 F5 E5 C5 D5 3E C9 CD 0E 52 06 06 21 94 82 11 .....>...R..!...
0036B0: 89 82 C5 4E 23 46 23 0A 12 13 C1 10 F5 21 56 82 ...N#F#......!V.
0036C0: 01 19 00 11 70 82 ED B0 AF 32 6B 82 3E 07 32 6A ....p....2k.>.2j
0036D0: 82 3E C9 32 CF 52 21 58 82 22 56 82 AF 32 68 82 .>.2.R!X."V..2h.
0036E0: 32 69 82 32 94 58 32 88 59 D1 C1 E1 F1 C9 F5 E5 2i.2.X2.Y.......
0036F0: C5 D5 AF CD 0E 52 06 06 21 94 82 11 89 82 C5 4E .....R..!......N
003700: 23 46 23 1A 02 13 C1 10 F5 11 56 82 01 19 00 21 #F#.......V....!
003710: 70 82 ED B0 3A 6D 82 4F B7 3E C9 28 03 32 88 59 p...:m.O.>.(.2.Y
003720: CB 41 20 03 32 97 59 CB 49 20 03 32 B7 59 CB 51 .A .2.Y.I .2.Y.Q
003730: 20 03 32 C4 59 CB 59 20 03 32 D0 59 CB 69 20 03 .2.Y.Y .2.Y.i .
003740: 32 A8 59 CB 61 20 03 32 DC 59 D1 C1 E1 F1 C9 C9 2.Y.a .2.Y......
003750: E5 D5 C5 F5 4F FE 1B CA 73 53 3A 68 82 B7 CA 78 ....O...sS:h...x
003760: 53 79 FE 3B CA 9A 53 FE 30 38 05 FE 3A DA B0 53 Sy.;..S.08..:..S
003770: FE 3F CA 73 53 FE 40 DA 63 53 3E C9 32 CF 52 AF .?.sS.@.cS>.2.R.
003780: 32 13 56 32 94 58 2A 56 82 3A 69 82 B7 20 02 36 2.V2.X*V.:i.. .6
003790: FF 23 3E FE 77 3A A4 7F B7 C4 D6 5A AF 32 A4 7F .#>.w:.....Z.2..
0037A0: 32 A5 7F 3E C9 32 F7 50 21 58 82 79 FE 41 CA D8 2..>.2.P!X.y.A..
0037B0: 53 FE 42 CA F7 53 FE 43 CA 1A 54 FE 44 CA 34 54 S.B..S.C..T.D.4T
0037C0: FE 48 CA 53 54 FE 66 CA 53 54 FE 4A CA 8D 54 FE .H.ST.f.ST.J..T.
0037D0: 6D CA 77 56 FE 4B CA 23 55 FE 73 CA 02 58 FE 75 m.wV.K.#U.s..X.u
0037E0: CA 0B 58 21 58 82 22 56 82 AF 32 68 82 32 69 82 ..X!X."V..2h.2i.
0037F0: 32 F7 50 F1 C1 D1 E1 C9 3E FF 32 68 82 79 32 6C 2.P.....>.2h.y2l
003800: 31 09 50 52 49 4E 54 20 22 69 6E 74 65 72 75 70 1.PRINT "interup
003810: 65 73 20 61 6E 64 20 72 65 6C 61 74 65 64 22 0D es and related".
003820: 0A 0D 0A 3B 67 65 6E 65 72 61 6C 20 6A 75 6D 70 ...;general jump
003830: 20 62 6C 6F 63 6B 20 66 6F 72 20 0D 0A 0D 0A 6A block for ....j
003840: 33 30 30 69 6E 69 74 5F 70 6C 75 73 20 0D 0A 72 300init_plus ..r
003850: 65 74 0D 0A 6E 6F 70 0D 0A 6E 6F 70 0D 0A 0D 0A et..nop..nop....
003860: 0D 0A 3B 69 6E 69 74 73 0D 0A 6A 70 20 20 20 20 ..;inits..jp
003870: 20 20 53 65 74 49 6E 74 65 72 75 70 74 0D 0A 6A SetInterupt..j
003880: 70 20 20 20 20 20 20 4F 66 66 49 6E 74 65 72 75 p OffInteru
003890: 70 74 0D 0A 6A 70 20 20 20 20 20 20 52 65 6D 6F pt..jp Remo
0038A0: 76 65 5F 63 75 72 73 6F 72 0D 0A 6A 70 20 20 20 ve_cursor..jp
0038B0: 20 20 20 50 6C 61 63 65 5F 63 75 72 73 6F 72 0D Place_cursor.
0038C0: 0A 6A 70 20 20 20 20 20 20 43 4C 4F 43 4B 5F 52 .jp CLOCK_R
0038D0: 45 53 0D 0A 6A 70 20 20 20 20 20 20 43 4C 4F 43 ES..jp CLOC
0038E0: 4B 5F 50 52 49 4E 54 0D 0A 6A 70 20 20 20 20 20 K_PRINT..jp
0038F0: 20 43 4C 5F 50 52 49 4E 54 0D 0A 6A 70 20 20 20 CL_PRINT..jp
003900: 20 20 20 43 4C 4F 43 4B 5F 4F 4E 0D 0A 6A 70 20 CLOCK_ON..jp
003910: 20 20 20 20 20 43 4C 4F 43 4B 5F 4F 46 46 0D 0A CLOCK_OFF..
003920: 0D 0A 3B 77 69 6E 64 6F 77 0D 0A 6A 70 20 20 20 ..;window..jp
003930: 20 20 20 50 55 4C 4C 44 4F 57 4E 0D 0A 6A 70 20 PULLDOWN..jp
003940: 20 20 20 20 20 30 0D 0A 6A 70 20 20 20 20 20 20 0..jp
003950: 30 0D 0A 6A 70 20 20 20 20 20 20 30 0D 0A 6A 70 0..jp 0..jp
003960: 20 20 20 20 20 20 57 69 6E 64 6F 77 0D 0A 6A 70 Window..jp
003970: 20 20 20 20 20 20 4D 42 4F 52 44 45 52 0D 0A 6A MBORDER..j
003980: 70 20 20 20 20 20 20 4D 50 52 49 4E 54 0D 0A 6A p MPRINT..j
003990: 70 20 20 20 20 20 20 4D 43 55 52 53 4F 52 0D 0A p MCURSOR..
0039A0: 6A 70 20 20 20 20 20 20 4D 45 4E 55 5F 43 55 52 jp MENU_CUR
0039B0: 53 4F 52 0D 0A 6A 70 20 20 20 20 20 20 48 4F 54 SOR..jp HOT
0039C0: 4B 45 59 53 0D 0A 6A 70 20 20 20 20 20 20 4D 5F KEYS..jp M_
0039D0: 50 52 49 4E 54 43 55 52 0D 0A 6A 70 20 20 20 20 PRINTCUR..jp
0039E0: 20 20 57 49 4E 44 4F 57 5F 57 49 50 45 0D 0A 6A WINDOW_WIPE..j
0039F0: 70 20 20 20 20 20 20 57 49 4E 44 4F 57 5F 50 41 p WINDOW_PA
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 4E E5 03 00 C1 02 00 00 00 02 ......N.........
003A20: 03 00 C2 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A30: 03 00 C4 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A40: 03 00 C6 02 00 00 00 02 03 00 C7 02 00 00 00 02 ................
003A50: 03 00 C8 02 00 00 00 02 03 00 C9 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 47 45 0D 0A 0D 0A 0D 0A 0D 0A 3B 41 4E 53 49 0D GE........;ANSI.
003B10: 0A 6A 70 20 20 20 20 20 20 52 4C 5F 53 45 54 5F .jp RL_SET_
003B20: 4F 46 46 53 45 54 0D 0A 6A 70 20 20 20 20 20 20 OFFSET..jp
003B30: 52 45 53 45 54 5F 41 4E 53 49 0D 0A 6A 70 20 20 RESET_ANSI..jp
003B40: 20 20 20 20 53 45 54 5F 41 4E 53 49 0D 0A 6A 70 SET_ANSI..jp
003B50: 20 20 20 20 20 20 53 63 72 65 65 6E 42 6C 61 6E ScreenBlan
003B60: 6B 0D 0A 6A 70 20 20 20 20 20 20 42 75 66 66 65 k..jp Buffe
003B70: 72 42 6C 61 6E 6B 0D 0A 6A 70 20 20 20 20 20 20 rBlank..jp
003B80: 41 4E 53 49 5F 4F 46 46 0D 0A 6A 70 20 20 20 20 ANSI_OFF..jp
003B90: 20 20 41 4E 53 49 5F 4F 4E 0D 0A 6A 70 20 20 20 ANSI_ON..jp
003BA0: 20 20 20 41 6C 6C 4F 66 66 0D 0A 0D 0A 0D 0A 3B AllOff......;
003BB0: 54 65 78 74 73 79 73 0D 0A 0D 0A 6A 70 20 20 20 Textsys....jp
003BC0: 20 20 20 4E 55 4D 42 45 52 38 0D 0A 6A 70 20 20 NUMBER8..jp
003BD0: 20 20 20 20 50 55 4C 4C 5F 50 52 49 4E 54 0D 0A PULL_PRINT..
003BE0: 6A 70 20 20 20 20 20 20 57 72 69 74 65 5F 43 68 jp Write_Ch
003BF0: 61 72 0D 0A 6A 70 20 20 20 20 20 20 53 63 72 65 ar..jp Scre
003C00: 65 6E 57 72 69 74 65 0D 0A 6A 70 20 20 20 20 20 enWrite..jp
003C10: 20 43 6C 73 0D 0A 6A 70 20 20 20 20 20 20 43 4C Cls..jp CL
003C20: 53 5F 73 63 72 65 65 6E 0D 0A 6A 70 20 20 20 20 S_screen..jp
003C30: 20 20 54 45 58 54 0D 0A 6A 70 20 20 20 20 20 20 TEXT..jp
003C40: 43 48 41 52 0D 0A 6A 70 20 20 20 20 20 20 41 6E CHAR..jp An
003C50: 73 69 43 68 61 72 0D 0A 6A 70 20 20 20 20 20 20 siChar..jp
003C60: 43 55 52 53 4F 52 0D 0A 6A 70 20 20 20 20 20 20 CURSOR..jp
003C70: 43 45 4C 4C 32 0D 0A 6A 70 20 20 20 20 20 20 47 CELL2..jp G
003C80: 65 74 41 64 64 72 65 73 73 0D 0A 6A 70 20 20 20 etAddress..jp
003C90: 20 20 20 53 43 52 5F 41 44 44 52 45 53 53 0D 0A SCR_ADDRESS..
003CA0: 6A 70 20 20 20 20 20 20 43 6C 65 61 72 5F 6B 65 jp Clear_ke
003CB0: 79 73 0D 0A 6A 70 20 20 20 20 20 20 41 4E 53 49 ys..jp ANSI
003CC0: 54 45 58 54 0D 0A 6A 70 20 20 20 20 20 20 59 45 TEXT..jp YE
003CD0: 53 4E 4F 0D 0A 6A 70 20 20 20 20 20 20 4B 45 59 SNO..jp KEY
003CE0: 49 4E 50 0D 0A 6A 70 20 20 20 20 20 20 49 4E 50 INP..jp INP
003CF0: 55 54 4C 49 4E 45 0D 0A 6A 70 20 20 20 20 20 20 UTLINE..jp
003D00: 49 4E 50 55 54 4C 49 4E 45 32 0D 0A 6A 70 20 20 INPUTLINE2..jp
003D10: 20 20 20 20 4B 65 79 5F 69 6E 70 75 74 32 0D 0A Key_input2..
003D20: 6A 70 20 20 20 20 20 20 4B 45 59 5F 4C 49 4E 45 jp KEY_LINE
003D30: 0D 0A 6A 70 20 20 20 20 20 20 44 45 43 38 0D 0A ..jp DEC8..
003D40: 6A 70 20 20 20 20 20 20 44 45 43 31 36 0D 0A 6A jp DEC16..j
003D50: 70 09 49 6E 76 65 72 73 65 5F 6C 69 6E 65 0D 0A p.Inverse_line..
003D60: 6A 70 20 20 20 20 20 20 4E 45 58 54 42 59 54 45 jp NEXTBYTE
003D70: 0D 0A 6A 70 20 20 20 20 20 20 4E 45 58 54 4C 49 ..jp NEXTLI
003D80: 4E 45 0D 0A 6A 70 20 20 20 20 20 20 4E 55 4D 42 NE..jp NUMB
003D90: 45 52 31 36 0D 0A 6A 70 20 20 20 20 20 20 4D 55 ER16..jp MU
003DA0: 4C 54 49 50 4C 59 5F 44 45 42 43 0D 0A 6A 70 20 LTIPLY_DEBC..jp
003DB0: 20 20 20 20 20 44 49 56 49 44 45 5F 48 4C 44 45 DIVIDE_HLDE
003DC0: 0D 0A 6A 70 20 20 20 20 20 20 68 65 78 0D 0A 0D ..jp hex...
003DD0: 0A 3B 66 6F 72 67 6F 74 74 65 6E 20 61 6E 64 20 .;forgotten and
003DE0: 61 64 64 6F 6E 65 73 0D 0A 6A 70 09 69 6E 76 65 addones..jp.inve
003DF0: 72 73 65 0D 0A 6A 70 09 73 65 74 5F 6A 6A 63 68 rse..jp.set_jjch
003E00: 61 6E 67 65 0D 0A 6A 70 09 70 75 6C 6C 6A 70 0D ange..jp.pulljp.
003E10: 0A 6A 70 09 77 69 6E 72 65 74 0D 0A 6A 70 09 63 .jp.winret..jp.c
003E20: 6C 65 61 72 5F 42 75 66 0D 0A 6A 70 09 53 43 52 lear_Buf..jp.SCR
003E30: 5F 42 75 66 5F 4F 4E 0D 0A 6A 70 09 53 43 52 5F _Buf_ON..jp.SCR_
003E40: 42 75 66 5F 4F 46 46 0D 0A 6A 70 09 47 65 74 43 Buf_OFF..jp.GetC
003E50: 68 61 72 61 63 74 65 72 0D 0A 6A 70 20 20 20 20 haracter..jp
003E60: 20 20 57 61 69 74 5F 66 6C 79 0D 0A 6A 70 09 63 Wait_fly..jp.c
003E70: 65 6C 6C 0D 0A 6A 70 09 26 62 64 62 35 09 3B 20 ell..jp.&bdb5.;
003E80: 66 69 72 6D 77 61 72 65 20 63 61 6C 6C 20 48 4C firmware call HL
003E90: 3D 48 4C 2A 44 45 20 2D 41 20 6F 76 65 72 20 66 =HL*DE -A over f
003EA0: 6C 6F 77 20 66 6C 61 67 0D 0A 6A 70 09 26 62 64 low flag..jp.&bd
003EB0: 62 38 09 3B 20 46 57 20 48 4C 3D 48 4C 2F 44 45 b8.; FW HL=HL/DE
003EC0: 20 41 2D 20 6F 76 65 72 20 66 6C 6F 77 20 66 6C A- over flow fl
003ED0: 61 67 0D 0A 6A 70 09 26 62 64 62 62 09 3B 20 48 ag..jp.&bdbb.; H
003EE0: 4C 20 3D 20 72 65 6D 61 69 6E 64 65 72 20 6F 66 L = remainder of
003EF0: 20 48 4C 2F 44 45 0D 0A 6A 70 09 26 62 64 63 34 HL/DE..jp.&bdc4
003F00: 09 3B 20 43 6F 6D 70 61 72 65 20 48 4C 20 74 6F .; Compare HL to
003F10: 20 44 45 0D 0A 6A 70 09 26 62 64 63 61 09 3B 20 DE..jp.&bdca.;
003F20: 54 65 73 74 73 20 68 6C 0D 0A 6A 70 09 61 6E 79 Tests hl..jp.any
003F30: 6B 65 79 0D 0A 6A 70 09 70 61 75 73 65 33 30 30 key..jp.pause300
003F40: 0D 0A 0D 0A 0D 0A 0D 0A 3B 2B 2B 2B 2B 2B 2B 2B ........;+++++++
003F50: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
003F60: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
003F70: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
003F80: 2B 2B 2B 2B 2B 0D 0A 2E 73 65 74 5F 6A 6A 63 68 +++++...set_jjch
003F90: 61 6E 67 65 0D 0A 09 6C 64 20 28 6A 6A 63 68 61 ange...ld (jjcha
003FA0: 6E 67 65 43 75 72 73 6F 72 29 2C 61 0D 0A 09 72 ngeCursor),a...r
003FB0: 65 74 0D 0A 0D 0A 0D 0A 2E 50 41 55 53 45 33 30 et.......PAUSE30
003FC0: 30 09 09 09 3B 20 63 6F 75 6E 74 20 33 30 30 20 0...; count 300
003FD0: 69 6E 74 65 72 75 70 74 73 0D 0A 09 50 55 53 48 interupts...PUSH
003FE0: 20 41 46 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 AF...XOR A...LD
003FF0: 20 28 54 49 4D 45 33 30 30 29 2C 41 0D 0A 2E 56 (TIME300),A...V
004000: 50 41 55 53 45 33 30 30 0D 0A 09 4C 44 20 41 2C PAUSE300...LD A,
004010: 28 54 49 4D 45 33 30 30 29 0D 0A 09 43 50 20 31 (TIME300)...CP 1
004020: 0D 0A 09 4A 52 20 4E 5A 2C 56 50 41 55 53 45 33 ...JR NZ,VPAUSE3
004030: 30 30 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 52 45 00...POP AF...RE
004040: 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D T....;----------
004050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004060: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 2E 57 61 69 --------.....Wai
004070: 74 5F 66 6C 79 0D 0A 20 20 20 20 20 20 20 20 50 t_fly.. P
004080: 55 53 48 20 41 46 0D 0A 2E 66 6C 79 33 09 4C 44 USH AF...fly3.LD
004090: 20 41 2C 28 46 6C 79 63 6F 75 6E 74 29 0D 0A 09 A,(Flycount)...
0040A0: 43 50 20 35 0D 0A 09 4A 52 20 4E 5A 2C 66 6C 79 CP 5...JR NZ,fly
0040B0: 33 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 52 45 54 3...POP AF...RET
0040C0: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
0040D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0040E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 53 45 ----------..;.SE
0040F0: 54 20 49 4E 54 45 52 55 50 54 53 20 4F 4E 0D 0A T INTERUPTS ON..
004100: 3B 09 54 75 72 6E 73 20 6F 6E 20 61 20 53 43 52 ;.Turns on a SCR
004110: 20 46 4C 59 42 41 43 4B 20 65 76 65 6E 74 0D 0A FLYBACK event..
004120: 3B 09 77 68 69 63 68 20 77 69 6C 6C 20 66 6C 61 ;.which will fla
004130: 73 68 20 63 75 72 73 6F 72 0D 0A 3B 09 54 75 72 sh cursor..;.Tur
004140: 6E 73 20 6F 6E 20 46 61 73 74 20 54 69 63 6B 65 ns on Fast Ticke
004150: 72 20 74 6F 20 72 65 61 64 69 6E 67 20 72 6F 75 r to reading rou
004160: 74 69 6E 65 2E 2E 0D 0A 3B 09 45 6E 74 72 79 20 tine....;.Entry
004170: 2D 20 4E 6F 6E 65 0D 0A 3B 09 45 78 69 74 20 20 - None..;.Exit
004180: 2D 20 4E 6F 6E 65 0D 0A 3B 09 55 73 65 64 20 20 - None..;.Used
004190: 2D 20 41 46 2C 42 43 2C 44 45 2C 48 4C 0D 0A 3B - AF,BC,DE,HL..;
0041A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0041B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0041C0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 53 65 74 49 6E 74 -------...SetInt
0041D0: 65 72 75 70 74 0D 0A 09 4C 44 09 48 4C 2C 43 75 erupt...LD.HL,Cu
0041E0: 72 73 6F 72 42 6C 6F 63 6B 09 09 3B 20 46 72 61 rsorBlock..; Fra
0041F0: 6D 65 20 46 6C 79 20 45 76 65 6E 74 20 62 6C 6F me Fly Event blo
004200: 63 6B 0D 0A 09 4C 44 09 44 45 2C 4A 43 68 61 6E ck...LD.DE,JChan
004210: 67 65 43 75 72 73 6F 72 09 3B 20 52 6F 75 74 69 geCursor.; Routi
004220: 6E 65 20 74 6F 20 63 61 6C 6C 0D 0A 09 4C 44 09 ne to call...LD.
004230: 42 43 2C 26 38 31 46 46 09 09 3B 20 41 73 79 6E BC,&81FF..; Asyn
004240: 63 20 65 76 65 6E 74 2C 20 4E 65 61 72 20 61 64 c event, Near ad
004250: 64 72 65 73 73 2E 0D 0A 09 09 09 09 09 3B 20 44 dress........; D
004260: 69 73 61 62 6C 65 20 72 6F 6D 73 0D 0A 09 43 41 isable roms...CA
004270: 4C 4C 09 4B 4C 5F 4E 45 57 5F 46 52 41 4D 45 5F LL.KL_NEW_FRAME_
004280: 46 4C 59 09 3B 20 49 6E 69 74 69 61 6C 69 73 65 FLY.; Initialise
004290: 20 69 74 0D 0A 09 43 41 4C 4C 09 63 75 72 73 6F it...CALL.curso
0042A0: 72 0D 0A 09 4C 44 09 41 2C 32 35 35 0D 0A 09 4C r...LD.A,255...L
0042B0: 44 09 28 43 75 72 73 6F 72 4F 6E 29 2C 41 09 09 D.(CursorOn),A..
0042C0: 3B 20 54 65 6C 6C 20 72 6F 75 74 69 6E 65 20 63 ; Tell routine c
0042D0: 75 72 73 6F 72 20 69 73 20 6F 6E 20 73 63 72 65 ursor is on scre
0042E0: 65 6E 0D 0A 09 58 4F 52 09 41 0D 0A 09 4C 44 09 en...XOR.A...LD.
0042F0: 28 4A 43 68 61 6E 67 65 43 75 72 73 6F 72 29 2C (JChangeCursor),
004300: 41 09 3B 20 54 65 6C 6C 20 72 6F 75 74 69 6E 65 A.; Tell routine
004310: 20 74 68 61 74 20 63 75 72 73 6F 72 20 69 73 20 that cursor is
004320: 61 6C 6C 6F 77 65 64 0D 0A 09 09 09 09 09 3B 20 allowed.......;
004330: 66 6C 61 73 68 0D 0A 09 4C 44 09 28 43 75 72 73 flash...LD.(Curs
004340: 6F 72 43 6F 75 6E 74 29 2C 41 09 09 3B 20 43 6F orCount),A..; Co
004350: 75 6E 74 20 66 6F 72 20 66 6C 61 73 68 20 66 72 unt for flash fr
004360: 65 71 75 65 6E 63 65 79 0D 0A 0D 0A 09 4C 44 20 equencey.....LD
004370: 48 4C 2C 45 56 45 4E 54 0D 0A 09 4C 44 20 42 43 HL,EVENT...LD BC
004380: 2C 26 38 31 46 46 0D 0A 09 4C 44 20 44 45 2C 43 ,&81FF...LD DE,C
004390: 4C 4F 43 4B 0D 0A 09 43 41 4C 4C 20 4B 4C 5F 49 LOCK...CALL KL_I
0043A0: 4E 54 5F 45 56 45 4E 54 0D 0A 09 43 41 4C 4C 20 NT_EVENT...CALL
0043B0: 4D 43 5F 57 41 49 54 5F 46 4C 59 42 41 43 4B 0D MC_WAIT_FLYBACK.
0043C0: 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 . LD HL,T
0043D0: 49 43 4B 42 4C 0D 0A 09 4C 44 20 44 45 2C 35 30 ICKBL...LD DE,50
0043E0: 0D 0A 09 4C 44 20 42 43 2C 35 30 0D 0A 09 43 41 ...LD BC,50...CA
0043F0: 4C 4C 20 4B 4C 5F 41 44 44 5F 54 49 43 4B 45 52 LL KL_ADD_TICKER
004400: 0D 0A 0D 0A 09 43 41 4C 4C 20 09 4D 43 5F 57 41 .....CALL .MC_WA
004410: 49 54 5F 46 4C 59 42 41 43 4B 0D 0A 20 20 20 20 IT_FLYBACK..
004420: 20 20 20 20 4C 44 09 44 45 2C 6A 33 30 30 69 6E LD.DE,j300in
004430: 69 74 0D 0A 09 4C 44 09 48 4C 2C 66 72 65 65 0D it...LD.HL,free.
004440: 0A 09 4C 44 20 09 42 43 2C 26 38 31 46 46 0D 0A ..LD .BC,&81FF..
004450: 09 43 41 4C 4C 09 4B 4C 5F 4E 45 57 5F 46 41 53 .CALL.KL_NEW_FAS
004460: 54 5F 54 49 43 4B 45 52 09 0D 0A 09 52 45 54 0D T_TICKER....RET.
004470: 0A 0D 0A 0D 0A 2E 6A 33 30 30 69 6E 69 74 0D 0A ......j300init..
004480: 0D 0A 09 44 49 0D 0A 20 20 20 20 20 20 20 20 4C ...DI.. L
004490: 44 20 41 2C 28 54 49 4D 45 33 30 30 29 09 09 09 D A,(TIME300)...
0044A0: 3B 74 69 6D 65 72 0D 0A 09 49 4E 43 20 41 0D 0A ;timer...INC A..
0044B0: 09 4C 44 20 28 54 49 4D 45 33 30 30 29 2C 41 0D .LD (TIME300),A.
0044C0: 0A 09 0D 0A 09 6C 64 20 61 2C 28 66 6C 79 63 6F .....ld a,(flyco
0044D0: 75 6E 74 29 09 09 09 3B 66 6C 79 62 61 63 6B 20 unt)...;flyback
0044E0: 63 6F 75 6E 74 65 72 0D 0A 09 69 6E 63 20 61 0D counter...inc a.
0044F0: 0A 09 63 70 20 36 0D 0A 09 6A 72 20 6E 7A 2C 66 ..cp 6...jr nz,f
004500: 6C 79 32 0D 0A 09 78 6F 72 20 61 0D 0A 66 6C 79 ly2...xor a..fly
004510: 32 0D 0A 09 6C 64 20 28 66 6C 79 63 6F 75 6E 74 2...ld (flycount
004520: 29 2C 61 0D 0A 09 63 61 6C 6C 20 6A 33 30 30 69 ),a...call j300i
004530: 6E 69 74 5F 70 6C 75 73 09 09 3B 64 6F 20 6F 74 nit_plus..;do ot
004540: 68 65 72 20 69 6E 74 65 72 75 70 74 73 0D 0A 09 her interupts...
004550: 45 49 0D 0A 09 72 65 74 0D 0A 3B 2D 2D 2D 2D 2D EI...ret..;-----
004560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004580: 2D 2D 0D 0A 3B 09 54 55 52 4E 20 49 4E 54 45 52 --..;.TURN INTER
004590: 55 50 54 53 20 4F 46 46 0D 0A 3B 09 54 75 72 6E UPTS OFF..;.Turn
0045A0: 73 20 6F 66 66 20 53 43 52 5F 46 4C 59 42 41 43 s off SCR_FLYBAC
0045B0: 4B 20 65 76 65 6E 74 0D 0A 3B 09 45 78 69 74 20 K event..;.Exit
0045C0: 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 55 73 65 64 20 - None..;.Used
0045D0: 20 2D 20 41 46 2C 42 43 2C 44 45 2C 48 4C 0D 0A - AF,BC,DE,HL..
0045E0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
0045F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004600: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4F 66 66 49 6E --------...OffIn
004610: 74 65 72 75 70 74 0D 0A 09 44 49 0D 0A 09 4C 44 terupt...DI...LD
004620: 09 48 4C 2C 43 75 72 73 6F 72 42 6C 6F 63 6B 2B .HL,CursorBlock+
004630: 32 09 3B 20 41 64 64 72 65 73 73 20 6F 66 20 65 2.; Address of e
004640: 76 65 6E 74 20 62 6C 6F 63 6B 0D 0A 09 43 41 4C vent block...CAL
004650: 4C 09 4B 4C 5F 44 49 53 41 52 4D 5F 45 56 45 4E L.KL_DISARM_EVEN
004660: 54 09 09 3B 20 44 69 73 61 62 6C 65 20 74 68 65 T..; Disable the
004670: 20 65 76 65 6E 74 0D 0A 09 4C 44 09 48 4C 2C 43 event...LD.HL,C
004680: 75 72 73 6F 72 42 6C 6F 63 6B 09 09 3B 20 41 64 ursorBlock..; Ad
004690: 64 72 65 73 73 20 6F 66 20 66 72 61 6D 65 20 66 dress of frame f
0046A0: 6C 79 20 62 6C 6F 63 6B 0D 0A 09 43 41 4C 4C 09 ly block...CALL.
0046B0: 4B 4C 5F 44 45 4C 5F 46 52 41 4D 45 5F 46 4C 59 KL_DEL_FRAME_FLY
0046C0: 09 3B 20 41 6E 64 20 64 69 73 61 62 6C 65 20 69 .; And disable i
0046D0: 74 2E 0D 0A 09 44 49 09 09 09 09 0D 0A 09 4C 44 t....DI.......LD
0046E0: 09 41 2C 28 43 75 72 73 6F 72 4F 6E 29 0D 0A 09 .A,(CursorOn)...
0046F0: 4F 52 09 41 0D 0A 09 43 41 4C 4C 09 4E 5A 2C 63 OR.A...CALL.NZ,c
004700: 75 72 73 6F 72 09 09 3B 20 52 65 6D 6F 76 65 20 ursor..; Remove
004710: 69 66 20 6F 6E 20 73 63 72 65 65 6E 2E 0D 0A 09 if on screen....
004720: 58 4F 52 09 41 0D 0A 09 4C 44 09 28 43 75 72 73 XOR.A...LD.(Curs
004730: 6F 72 4F 6E 29 2C 41 09 09 3B 20 54 65 6C 6C 20 orOn),A..; Tell
004740: 72 6F 75 74 69 6E 65 20 63 75 72 73 6F 72 20 69 routine cursor i
004750: 73 20 6F 66 66 0D 0A 09 4C 44 09 41 2C 26 43 39 s off...LD.A,&C9
004760: 0D 0A 09 4C 44 09 28 4A 43 68 61 6E 67 65 43 75 ...LD.(JChangeCu
004770: 72 73 6F 72 29 2C 41 09 3B 20 61 6E 64 20 5F 6D rsor),A.; and _m
004780: 75 73 74 5F 6E 6F 74 5F 20 66 6C 61 73 68 2E 0D ust_not_ flash..
004790: 0A 09 4C 44 20 09 48 4C 2C 66 72 65 65 0D 0A 09 ..LD .HL,free...
0047A0: 43 41 4C 4C 09 4B 4C 5F 44 45 4C 5F 46 41 53 54 CALL.KL_DEL_FAST
0047B0: 5F 54 49 43 4B 45 52 0D 0A 20 20 20 20 20 20 20 _TICKER..
0047C0: 20 4C 44 20 48 4C 2C 54 49 43 4B 42 4C 0D 0A 09 LD HL,TICKBL...
0047D0: 43 41 4C 4C 09 4B 4C 5F 44 45 4C 5F 54 49 43 4B CALL.KL_DEL_TICK
0047E0: 45 52 0D 0A 09 45 49 0D 0A 09 52 45 54 0D 0A 0D ER...EI...RET...
0047F0: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
004800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
004810: 0A 3B 09 52 45 4D 4F 56 45 20 43 55 52 53 4F 52 .;.REMOVE CURSOR
004820: 20 49 46 20 4F 4E 20 53 43 52 45 45 4E 0D 0A 3B IF ON SCREEN..;
004830: 09 41 4E 44 20 44 49 53 41 42 4C 45 0D 0A 3B 09 .AND DISABLE..;.
004840: 65 6E 74 72 79 20 6E 6F 6E 65 0D 0A 3B 09 65 78 entry none..;.ex
004850: 69 74 20 6E 6F 6E 65 0D 0A 3B 09 75 73 65 64 20 it none..;.used
004860: 6E 6F 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D none..;---------
004870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004880: 2D 2D 2D 2D 0D 0A 2E 52 65 6D 6F 76 65 5F 63 75 ----...Remove_cu
004890: 72 73 6F 72 0D 0A 20 20 20 20 20 20 20 20 50 55 rsor.. PU
0048A0: 53 48 20 41 46 0D 0A 09 50 55 53 48 20 48 4C 0D SH AF...PUSH HL.
0048B0: 0A 09 50 55 53 48 20 42 43 0D 0A 09 50 55 53 48 ..PUSH BC...PUSH
0048C0: 20 44 45 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 DE.. LD
0048D0: 41 2C 28 63 75 72 73 6F 72 6F 6E 29 0D 0A 09 4F A,(cursoron)...O
0048E0: 52 20 41 0D 0A 09 43 41 4C 4C 20 4E 5A 2C 63 75 R A...CALL NZ,cu
0048F0: 72 73 6F 72 09 09 3B 73 77 61 70 20 63 75 72 73 rsor..;swap curs
004900: 6F 72 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 or...XOR A...LD
004910: 28 63 75 72 73 6F 72 6F 6E 29 2C 41 0D 0A 09 4C (cursoron),A...L
004920: 44 20 28 63 75 72 73 6F 72 63 6F 75 6E 74 29 2C D (cursorcount),
004930: 41 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C A.. LD A,
004940: 26 43 39 0D 0A 09 4C 44 20 28 6A 63 68 61 6E 67 &C9...LD (jchang
004950: 65 63 75 72 73 6F 72 29 2C 41 0D 0A 09 50 4F 50 ecursor),A...POP
004960: 20 44 45 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 50 DE...POP BC...P
004970: 4F 50 20 48 4C 0D 0A 09 50 4F 50 20 41 46 0D 0A OP HL...POP AF..
004980: 09 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D .RET....;-------
004990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0049A0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 50 4C 41 43 --------..;.PLAC
0049B0: 45 20 43 55 52 53 4F 52 20 28 52 65 61 6C 79 20 E CURSOR (Realy
0049C0: 6F 6E 6C 79 0D 0A 3B 09 65 6E 61 62 6C 65 73 20 only..;.enables
0049D0: 69 6E 74 65 72 75 70 74 73 29 0D 0A 3B 09 55 73 interupts)..;.Us
0049E0: 65 64 20 6E 6F 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D ed none..;------
0049F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004A00: 2D 2D 2D 2D 2D 2D 0D 0A 2E 50 6C 61 63 65 5F 63 ------...Place_c
004A10: 75 72 73 6F 72 0D 0A 09 50 55 53 48 20 41 46 0D ursor...PUSH AF.
004A20: 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 28 4A 43 ..XOR A...LD (JC
004A30: 48 41 4E 47 45 43 55 52 53 4F 52 29 2C 41 0D 0A HANGECURSOR),A..
004A40: 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 52 45 54 0D ...POP AF...RET.
004A50: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
004A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 43 -----------..;.C
004A80: 48 41 4E 47 45 20 43 55 52 53 4F 52 20 53 54 41 HANGE CURSOR STA
004A90: 54 45 0D 0A 3B 0D 0A 3B 09 43 61 6C 6C 65 64 20 TE..;..;.Called
004AA0: 69 6E 20 69 6E 74 65 72 75 70 74 20 6C 69 6E 65 in interupt line
004AB0: 2E 0D 0A 3B 0D 0A 3B 09 45 6E 74 72 79 20 2D 20 ...;..;.Entry -
004AC0: 4E 6F 6E 65 0D 0A 3B 09 45 78 69 74 20 20 2D 20 None..;.Exit -
004AD0: 4E 6F 6E 65 0D 0A 3B 09 55 73 65 64 20 20 2D 20 None..;.Used -
004AE0: 4E 6F 6E 65 0D 0A 3B 0D 0A 3B 2D 2D 2D 2D 2D 2D None..;..;------
004AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004B10: 2D 0D 0A 2E 43 5F 54 69 6D 65 5F 4F 66 66 09 45 -...C_Time_Off.E
004B20: 51 55 09 31 33 0D 0A 2E 43 5F 54 69 6D 65 5F 4F QU.13...C_Time_O
004B30: 6E 09 45 51 55 09 32 36 0D 0A 2E 43 68 61 6E 67 n.EQU.26...Chang
004B40: 65 43 75 72 73 6F 72 0D 0A 2E 4A 43 68 61 6E 67 eCursor...JChang
004B50: 65 43 75 72 73 6F 72 0D 0A 09 42 59 54 45 09 30 eCursor...BYTE.0
004B60: 09 09 09 3B 20 26 63 39 20 74 6F 20 64 69 73 61 ...; &c9 to disa
004B70: 62 6C 65 2C 20 30 20 74 6F 20 65 6E 61 62 6C 65 ble, 0 to enable
004B80: 0D 0A 2E 4A 4A 43 68 61 6E 67 65 43 75 72 73 6F ...JJChangeCurso
004B90: 72 0D 0A 09 42 59 54 45 09 30 09 09 09 3B 20 54 r...BYTE.0...; T
004BA0: 6F 74 61 6C 79 20 64 69 73 61 62 6C 65 20 63 75 otaly disable cu
004BB0: 72 73 6F 72 21 0D 0A 09 50 55 53 48 09 41 46 0D rsor!...PUSH.AF.
004BC0: 0A 09 4C 44 09 41 2C 28 43 75 72 73 6F 72 4F 6E ..LD.A,(CursorOn
004BD0: 29 09 09 3B 20 49 73 20 74 68 65 20 63 75 72 73 )..; Is the curs
004BE0: 6F 72 20 6F 6E 20 28 66 6F 72 20 74 69 6D 69 6E or on (for timin
004BF0: 67 73 29 3F 0D 0A 09 4F 52 09 41 0D 0A 09 4A 52 gs)?...OR.A...JR
004C00: 09 4E 5A 2C 43 43 5F 4F 6E 0D 0A 09 4C 44 09 41 .NZ,CC_On...LD.A
004C10: 2C 28 43 75 72 73 6F 72 43 6F 75 6E 74 29 09 09 ,(CursorCount)..
004C20: 3B 20 43 6F 75 6E 74 65 72 0D 0A 09 43 50 09 43 ; Counter...CP.C
004C30: 5F 54 69 6D 65 5F 4F 66 66 09 09 3B 20 48 61 76 _Time_Off..; Hav
004C40: 65 20 77 65 20 62 65 65 6E 20 6F 66 66 20 6C 6F e we been off lo
004C50: 6E 67 20 65 6E 6F 75 67 68 0D 0A 09 4A 52 09 5A ng enough...JR.Z
004C60: 2C 43 43 5F 54 75 72 6E 5F 4F 6E 09 09 3B 20 49 ,CC_Turn_On..; I
004C70: 66 20 79 65 73 2C 20 74 68 65 6E 20 64 6F 20 74 f yes, then do t
004C80: 68 65 20 77 6F 72 6B 0D 0A 09 49 4E 43 09 41 0D he work...INC.A.
004C90: 0A 09 4C 44 09 28 43 75 72 73 6F 72 43 6F 75 6E ..LD.(CursorCoun
004CA0: 74 29 2C 41 09 09 3B 20 4F 74 68 65 72 77 69 73 t),A..; Otherwis
004CB0: 65 20 69 6E 63 72 65 61 73 65 20 61 6E 64 20 73 e increase and s
004CC0: 61 76 65 0D 0A 2E 43 43 5F 4E 6F 43 68 61 6E 67 ave...CC_NoChang
004CD0: 65 0D 0A 09 50 4F 50 09 41 46 0D 0A 09 52 45 54 e...POP.AF...RET
004CE0: 09 09 09 09 3B 20 52 65 73 74 6F 72 65 20 72 65 ....; Restore re
004CF0: 67 69 73 74 65 72 73 2C 20 61 6E 64 20 63 6F 6E gisters, and con
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 4E E5 04 00 C1 02 00 00 00 02 ......N.........
004D20: 04 00 C2 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D30: 04 00 C4 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D40: 04 00 C6 02 00 00 00 02 04 00 C7 02 00 00 00 02 ................
004D50: 04 00 C8 02 00 00 00 02 04 00 C9 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 74 69 6E 75 65 0D 0A 0D 0A 2E 43 43 5F 54 75 72 tinue.....CC_Tur
004E10: 6E 5F 4F 6E 0D 0A 09 50 55 53 48 09 42 43 0D 0A n_On...PUSH.BC..
004E20: 09 50 55 53 48 09 44 45 0D 0A 09 50 55 53 48 09 .PUSH.DE...PUSH.
004E30: 48 4C 0D 0A 09 58 4F 52 09 41 0D 0A 09 4C 44 09 HL...XOR.A...LD.
004E40: 28 43 75 72 73 6F 72 43 6F 75 6E 74 29 2C 41 09 (CursorCount),A.
004E50: 09 3B 20 52 65 73 74 61 72 74 20 63 6F 75 6E 74 .; Restart count
004E60: 2C 20 66 6F 72 20 6F 66 66 0D 0A 09 4C 44 09 41 , for off...LD.A
004E70: 2C 32 35 35 0D 0A 09 4C 44 09 28 43 75 72 73 6F ,255...LD.(Curso
004E80: 72 4F 6E 29 2C 41 09 09 3B 20 4D 61 6B 65 20 6E rOn),A..; Make n
004E90: 6F 74 65 20 74 68 61 74 20 63 75 72 73 6F 72 20 ote that cursor
004EA0: 69 73 20 6E 6F 77 20 6F 6E 2E 0D 0A 09 43 41 4C is now on....CAL
004EB0: 4C 09 63 75 72 73 6F 72 09 09 3B 20 44 6F 20 74 L.cursor..; Do t
004EC0: 68 65 20 61 63 74 75 61 6C 20 77 6F 72 6B 2E 2E he actual work..
004ED0: 2E 2E 0D 0A 09 50 4F 50 09 48 4C 0D 0A 09 50 4F .....POP.HL...PO
004EE0: 50 09 44 45 0D 0A 09 50 4F 50 09 42 43 0D 0A 09 P.DE...POP.BC...
004EF0: 50 4F 50 09 41 46 0D 0A 09 52 45 54 0D 0A 0D 0A POP.AF...RET....
004F00: 2E 43 43 5F 4F 6E 0D 0A 09 4C 44 09 41 2C 28 43 .CC_On...LD.A,(C
004F10: 75 72 73 6F 72 43 6F 75 6E 74 29 09 09 3B 20 43 ursorCount)..; C
004F20: 6F 75 6E 74 65 72 0D 0A 09 43 50 09 43 5F 54 69 ounter...CP.C_Ti
004F30: 6D 65 5F 4F 6E 09 09 3B 20 48 61 76 65 20 77 65 me_On..; Have we
004F40: 20 62 65 65 6E 20 6F 6E 20 6C 6F 6E 67 20 65 6E been on long en
004F50: 6F 75 67 68 3F 0D 0A 09 4A 52 09 5A 2C 43 43 5F ough?...JR.Z,CC_
004F60: 54 75 72 6E 5F 4F 66 66 09 09 3B 20 49 66 20 79 Turn_Off..; If y
004F70: 65 73 2C 20 74 68 65 6E 20 64 6F 20 74 68 65 20 es, then do the
004F80: 74 6F 67 67 6C 65 0D 0A 09 49 4E 43 09 41 0D 0A toggle...INC.A..
004F90: 09 4C 44 09 28 43 75 72 73 6F 72 43 6F 75 6E 74 .LD.(CursorCount
004FA0: 29 2C 41 09 09 3B 20 4F 74 68 65 72 77 69 73 65 ),A..; Otherwise
004FB0: 20 69 6E 63 72 65 61 73 65 20 61 6E 64 20 73 61 increase and sa
004FC0: 76 65 0D 0A 09 50 4F 50 09 41 46 0D 0A 09 52 45 ve...POP.AF...RE
004FD0: 54 0D 0A 0D 0A 2E 43 43 5F 54 75 72 6E 5F 4F 66 T.....CC_Turn_Of
004FE0: 66 09 0D 0A 09 50 55 53 48 09 42 43 0D 0A 09 50 f....PUSH.BC...P
004FF0: 55 53 48 09 44 45 0D 0A 09 50 55 53 48 09 48 4C USH.DE...PUSH.HL
005000: 0D 0A 09 58 4F 52 09 41 0D 0A 09 4C 44 09 28 43 ...XOR.A...LD.(C
005010: 75 72 73 6F 72 43 6F 75 6E 74 29 2C 41 09 09 3B ursorCount),A..;
005020: 20 52 65 73 74 61 72 74 20 63 6F 75 6E 74 2C 20 Restart count,
005030: 66 6F 72 20 6F 66 66 0D 0A 09 4C 44 09 28 43 75 for off...LD.(Cu
005040: 72 73 6F 72 4F 6E 29 2C 41 09 09 3B 20 4D 61 6B rsorOn),A..; Mak
005050: 65 20 6E 6F 74 65 20 74 68 61 74 20 63 75 72 73 e note that curs
005060: 6F 72 20 69 73 20 6E 6F 77 20 6F 66 66 0D 0A 09 or is now off...
005070: 43 41 4C 4C 09 63 75 72 73 6F 72 09 09 3B 20 44 CALL.cursor..; D
005080: 6F 20 74 68 65 20 61 63 74 75 61 6C 20 77 6F 72 o the actual wor
005090: 6B 2E 2E 2E 2E 0D 0A 09 50 4F 50 09 48 4C 0D 0A k.......POP.HL..
0050A0: 09 50 4F 50 09 44 45 0D 0A 09 50 4F 50 09 42 43 .POP.DE...POP.BC
0050B0: 0D 0A 09 50 4F 50 09 41 46 0D 0A 09 52 45 54 0D ...POP.AF...RET.
0050C0: 0A 0D 0A 2E 43 4C 4F 43 4B 5F 52 45 53 0D 0A 20 ....CLOCK_RES..
0050D0: 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A 09 4C XOR A...L
0050E0: 44 20 28 53 45 43 4F 4E 44 29 2C 41 0D 0A 09 4C D (SECOND),A...L
0050F0: 44 20 28 4D 49 4E 29 2C 41 0D 0A 09 4C 44 20 28 D (MIN),A...LD (
005100: 48 4F 55 52 29 2C 41 0D 0A 09 52 45 54 0D 0A 2E HOUR),A...RET...
005110: 43 4C 4F 43 4B 20 09 0D 0A 09 4C 44 20 41 2C 28 CLOCK ....LD A,(
005120: 54 49 4D 45 52 29 0D 0A 09 49 4E 43 20 41 0D 0A TIMER)...INC A..
005130: 09 4C 44 20 28 54 49 4D 45 52 29 2C 41 0D 0A 2E .LD (TIMER),A...
005140: 43 4C 4F 43 4B 5F 45 4E 41 42 4C 45 09 0D 0A 20 CLOCK_ENABLE...
005150: 09 4E 4F 50 0D 0A 0D 0A 09 43 41 4C 4C 20 43 4C .NOP.....CALL CL
005160: 4F 43 4B 5F 50 52 49 4E 54 0D 0A 09 4C 44 20 44 OCK_PRINT...LD D
005170: 45 2C 28 4C 41 53 54 5F 53 54 41 54 45 29 09 3B E,(LAST_STATE).;
005180: 45 20 63 6F 6E 74 61 69 6E 73 20 6C 61 73 74 20 E contains last
005190: 73 74 61 74 65 0D 0A 09 4C 44 20 42 43 2C 26 46 state...LD BC,&F
0051A0: 41 44 44 09 09 3B 70 6F 72 74 20 0D 0A 09 4C 44 ADD..;port ...LD
0051B0: 20 41 2C 31 36 09 09 09 3B 63 61 72 72 69 65 72 A,16...;carrier
0051C0: 20 64 65 63 74 65 74 0D 0A 09 4F 55 54 20 28 43 dectet...OUT (C
0051D0: 29 2C 41 0D 0A 09 49 4E 20 41 2C 28 43 29 09 09 ),A...IN A,(C)..
0051E0: 3B 67 65 74 20 73 74 61 74 65 0D 0A 09 4C 44 20 ;get state...LD
0051F0: 28 4C 41 53 54 5F 53 54 41 54 45 29 2C 41 09 3B (LAST_STATE),A.;
005200: 73 61 76 65 20 6C 61 73 74 5F 73 74 61 74 65 20 save last_state
005210: 6F 66 20 63 61 72 72 69 65 72 0D 0A 09 42 49 54 of carrier...BIT
005220: 20 33 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 45 3,A.. RE
005230: 54 20 5A 09 09 09 3B 72 65 74 75 72 6E 20 6F 66 T Z...;return of
005240: 20 63 61 72 72 69 65 72 20 6F 66 66 0D 0A 09 42 carrier off...B
005250: 49 54 20 33 2C 45 09 09 09 3B 74 65 73 74 0D 0A IT 3,E...;test..
005260: 09 4A 52 20 4E 5A 2C 54 4D 30 20 20 20 09 09 3B .JR NZ,TM0 ..;
005270: 69 66 20 74 69 6D 65 72 20 77 61 73 20 6F 6E 20 if timer was on
005280: 74 68 65 6E 09 09 09 09 20 0D 0A 09 43 41 4C 4C then.... ...CALL
005290: 20 43 4C 4F 43 4B 5F 52 45 53 09 09 3B 72 65 73 CLOCK_RES..;res
0052A0: 65 74 20 63 6C 6F 63 6B 20 6F 66 20 6A 75 73 74 et clock of just
0052B0: 20 74 75 72 6E 65 64 20 6F 6E 0D 0A 0D 0A 2E 54 turned on.....T
0052C0: 4D 30 09 4C 44 20 41 2C 28 53 45 43 4F 4E 44 29 M0.LD A,(SECOND)
0052D0: 09 3B 69 6E 63 20 73 65 63 6F 6E 64 0D 0A 09 49 .;inc second...I
0052E0: 4E 43 20 41 0D 0A 09 43 50 20 36 30 0D 0A 09 4A NC A...CP 60...J
0052F0: 52 20 5A 2C 54 4D 31 0D 0A 09 4C 44 20 28 53 45 R Z,TM1...LD (SE
005300: 43 4F 4E 44 29 2C 41 0D 0A 09 52 45 54 09 3B 72 COND),A...RET.;r
005310: 65 74 20 69 66 20 6E 6F 20 6F 76 65 72 66 6C 6F et if no overflo
005320: 77 0D 0A 2E 54 4D 31 09 58 4F 52 20 41 0D 0A 09 w...TM1.XOR A...
005330: 4C 44 20 28 53 45 43 4F 4E 44 29 2C 41 0D 0A 09 LD (SECOND),A...
005340: 4C 44 20 41 2C 28 4D 49 4E 29 0D 0A 09 49 4E 43 LD A,(MIN)...INC
005350: 20 41 0D 0A 09 43 50 20 36 30 0D 0A 09 4A 52 20 A...CP 60...JR
005360: 5A 2C 54 4D 32 0D 0A 09 4C 44 20 28 4D 49 4E 29 Z,TM2...LD (MIN)
005370: 2C 41 0D 0A 09 52 45 54 0D 0A 2E 54 4D 32 09 58 ,A...RET...TM2.X
005380: 4F 52 20 41 0D 0A 09 4C 44 20 28 4D 49 4E 29 2C OR A...LD (MIN),
005390: 41 0D 0A 09 4C 44 20 41 2C 28 48 4F 55 52 29 0D A...LD A,(HOUR).
0053A0: 0A 09 49 4E 43 20 41 0D 0A 09 43 50 20 32 34 0D ..INC A...CP 24.
0053B0: 0A 09 4A 52 20 5A 2C 54 4D 33 0D 0A 20 20 20 09 ..JR Z,TM3.. .
0053C0: 4C 44 20 28 48 4F 55 52 29 2C 41 0D 0A 09 52 45 LD (HOUR),A...RE
0053D0: 54 0D 0A 2E 54 4D 33 09 58 4F 52 20 41 0D 0A 09 T...TM3.XOR A...
0053E0: 4C 44 20 28 48 4F 55 52 29 2C 41 0D 0A 20 20 20 LD (HOUR),A..
0053F0: 20 20 20 20 20 52 45 54 0D 0A 09 0D 0A 0D 0A 0D RET........
005400: 0A 2E 43 4C 4F 43 4B 5F 50 52 49 4E 54 0D 0A 09 ..CLOCK_PRINT...
005410: 52 45 54 0D 0A 09 4C 44 20 48 4C 2C 48 4F 55 52 RET...LD HL,HOUR
005420: 4E 55 4D 0D 0A 09 4C 44 20 41 2C 28 48 4F 55 52 NUM...LD A,(HOUR
005430: 29 0D 0A 09 43 41 4C 4C 20 43 4C 5F 50 52 49 4E )...CALL CL_PRIN
005440: 54 0D 0A 09 49 4E 43 20 48 4C 0D 0A 0D 0A 09 4C T...INC HL.....L
005450: 44 20 41 2C 28 4D 49 4E 29 0D 0A 09 43 41 4C 4C D A,(MIN)...CALL
005460: 20 43 4C 5F 50 52 49 4E 54 0D 0A 09 49 4E 43 20 CL_PRINT...INC
005470: 48 4C 0D 0A 0D 0A 09 4C 44 20 41 2C 28 53 45 43 HL.....LD A,(SEC
005480: 4F 4E 44 29 0D 0A 09 43 41 4C 4C 20 43 4C 5F 50 OND)...CALL CL_P
005490: 52 49 4E 54 0D 0A 0D 0A 20 20 20 20 20 20 20 20 RINT....
0054A0: 4C 44 20 48 4C 2C 28 63 6C 6F 63 6B 78 79 29 0D LD HL,(clockxy).
0054B0: 0A 09 43 41 4C 4C 20 53 43 52 5F 41 44 44 52 45 ..CALL SCR_ADDRE
0054C0: 53 53 0D 0A 09 4C 44 20 28 43 41 44 44 29 2C 48 SS...LD (CADD),H
0054D0: 4C 0D 0A 09 4C 44 20 48 4C 2C 48 4F 55 52 4E 55 L...LD HL,HOURNU
0054E0: 4D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 M.... LD
0054F0: 42 2C 38 0D 0A 43 4C 4F 43 4B 4C 09 4C 44 20 41 B,8..CLOCKL.LD A
005500: 2C 28 48 4C 29 0D 0A 09 50 55 53 48 20 48 4C 0D ,(HL)...PUSH HL.
005510: 0A 09 50 55 53 48 20 42 43 0D 0A 09 4C 44 20 48 ..PUSH BC...LD H
005520: 4C 2C 4E 55 4D 42 55 46 09 0D 0A 09 43 41 4C 4C L,NUMBUF....CALL
005530: 20 47 45 54 43 48 41 52 41 43 54 45 52 0D 0A 09 GETCHARACTER...
005540: 43 41 4C 4C 20 49 4E 56 45 52 53 45 0D 0A 09 45 CALL INVERSE...E
005550: 58 20 48 4C 2C 44 45 0D 0A 09 4C 44 20 48 4C 2C X HL,DE...LD HL,
005560: 28 43 41 44 44 29 0D 0A 09 43 41 4C 4C 20 41 4E (CADD)...CALL AN
005570: 53 49 43 48 41 52 0D 0A 09 4C 44 20 48 4C 2C 28 SICHAR...LD HL,(
005580: 43 41 44 44 29 0D 0A 09 43 41 4C 4C 20 4E 45 58 CADD)...CALL NEX
005590: 54 42 59 54 45 0D 0A 09 4C 44 20 28 43 41 44 44 TBYTE...LD (CADD
0055A0: 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 70 6F ),HL.. po
0055B0: 70 20 62 63 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 p bc...POP HL...
0055C0: 49 4E 43 20 48 4C 0D 0A 09 44 4A 4E 5A 20 43 4C INC HL...DJNZ CL
0055D0: 4F 43 4B 4C 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A OCKL...RET......
0055E0: 0D 0A 09 0D 0A 43 4C 5F 50 52 49 4E 54 0D 0A 20 .....CL_PRINT..
0055F0: 09 4C 44 20 44 2C 26 41 0D 0A 09 43 41 4C 4C 20 .LD D,&A...CALL
005600: 43 4C 5F 50 54 32 0D 0A 09 4C 44 20 44 2C 31 0D CL_PT2...LD D,1.
005610: 0A 43 4C 5F 50 54 32 20 20 4C 44 20 45 2C 30 0D .CL_PT2 LD E,0.
005620: 0A 43 4C 5F 50 54 33 09 53 55 42 20 44 0D 0A 09 .CL_PT3.SUB D...
005630: 4A 52 20 43 2C 43 4C 5F 50 54 34 0D 0A 09 49 4E JR C,CL_PT4...IN
005640: 43 20 45 0D 0A 09 4A 52 20 43 4C 5F 50 54 33 0D C E...JR CL_PT3.
005650: 0A 43 4C 5F 50 54 34 09 41 44 44 20 44 0D 0A 09 .CL_PT4.ADD D...
005660: 4C 44 20 43 2C 41 0D 0A 09 4C 44 20 41 2C 45 0D LD C,A...LD A,E.
005670: 0A 09 41 44 44 20 26 33 30 0D 0A 09 4C 44 20 28 ..ADD &30...LD (
005680: 48 4C 29 2C 41 0D 0A 09 49 4E 43 20 48 4C 0D 0A HL),A...INC HL..
005690: 09 4C 44 20 41 2C 43 0D 0A 20 20 20 20 20 20 20 .LD A,C..
0056A0: 20 52 45 54 0D 0A 0D 0A 0D 0A 2E 43 4C 4F 43 4B RET.......CLOCK
0056B0: 5F 4F 4E 09 09 09 3B 65 6E 61 62 6C 65 2F 64 69 _ON...;enable/di
0056C0: 73 61 62 6C 65 20 63 6C 6F 63 6B 20 28 64 61 74 sable clock (dat
0056D0: 61 6C 69 6E 65 29 0D 0A 09 50 55 53 48 20 41 46 aline)...PUSH AF
0056E0: 0D 0A 09 4C 44 20 41 2C 30 0D 0A 09 4A 52 20 43 ...LD A,0...JR C
0056F0: 4C 4F 0D 0A 2E 43 4C 4F 43 4B 5F 4F 46 46 0D 0A LO...CLOCK_OFF..
005700: 09 50 55 53 48 20 41 46 0D 0A 09 4C 44 20 41 2C .PUSH AF...LD A,
005710: 26 43 39 0D 0A 2E 43 4C 4F 09 4C 44 20 28 43 4C &C9...CLO.LD (CL
005720: 4F 43 4B 5F 50 52 49 4E 54 29 2C 41 0D 0A 09 50 OCK_PRINT),A...P
005730: 4F 50 20 41 46 0D 0A 09 52 45 54 0D 0A 0D 0A 0D OP AF...RET.....
005740: 0A 1A 30 30 2C 33 32 2C 31 32 2C 41 30 2C 43 39 ..00,32,12,A0,C9
005750: 00 0B 00 28 05 8C 20 45 46 39 42 00 00 00 00 00 ...(.. EF9B.....
005760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005780: 43 41 44 44 29 0D 0A 09 43 41 4C 4C 20 4E 45 58 CADD)...CALL NEX
005790: 54 42 59 54 45 0D 0A 09 4C 44 20 28 43 41 44 44 TBYTE...LD (CADD
0057A0: 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 70 6F ),HL.. po
0057B0: 70 20 62 63 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 p bc...POP HL...
0057C0: 49 4E 43 20 48 4C 0D 0A 09 44 4A 4E 5A 20 43 4C INC HL...DJNZ CL
0057D0: 4F 43 4B 4C 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A OCKL...RET......
0057E0: 0D 0A 09 0D 0A 43 4C 5F 50 52 49 4E 54 0D 0A 20 .....CL_PRINT..
0057F0: 09 4C 44 20 44 2C 26 41 0D 0A 09 43 41 4C 4C 20 .LD D,&A...CALL
005800: 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 20 DATA
005810: 42 49 54 53 00 C5 20 33 30 30 20 20 20 20 20 20 BITS.. 300
005820: 20 20 20 20 20 B5 20 35 00 C6 20 36 30 30 20 20 . 5.. 600
005830: 20 20 20 20 20 20 20 20 20 B6 20 36 00 C7 20 31 . 6.. 1
005840: 32 30 30 20 20 20 20 20 20 20 20 20 20 B7 20 37 200 . 7
005850: 00 C8 20 32 34 2D 31 32 30 30 20 20 20 20 20 20 .. 24-1200
005860: 20 B8 20 38 00 20 00 20 00 3A 4E 86 21 51 86 FE . 8. . .:N.!Q..
005870: 01 CA F9 85 21 54 86 B7 C0 22 4F 86 C3 FF 85 01 ....!T..."O.....
005880: DD FA CD 2D 86 01 DF FA CD 2D 86 F3 01 DF FB 3E ...-.....-.....>
005890: 36 ED 79 0E DC 2A 57 86 ED 69 ED 61 0E DF 3E 76 6.y..*W..i.a..>v
0058A0: ED 79 0E DD 2A 59 86 ED 69 ED 61 FB C9 F3 3E 18 .y..*Y..i.a...>.
0058B0: ED 79 2A 4F 86 3E 03 ED 79 7E 23 ED 79 3E 04 ED .y*O.>..y~#.y>..
0058C0: 79 7E 23 ED 79 3E 05 ED 79 7E ED 79 FB C9 00 51 y~#.y>..y~.y...Q
0058D0: 86 C1 44 EA C1 44 EA 34 00 34 00 32 05 05 0E 03 ..D..D.4.4.2....
0058E0: 0C 33 06 00 00 00 20 B1 20 53 54 4F 50 20 62 00 .3.... . STOP b.
0058F0: 20 31 2E B5 20 53 54 4F 50 20 62 00 20 B2 20 53 1.. STOP b. . S
005900: 54 4F 50 20 62 00 04 08 0C 32 05 04 0A 02 08 33 TOP b....2.....3
005910: 06 A4 86 00 20 50 4F 52 54 20 41 00 20 50 4F 52 .... PORT A. POR
005920: 54 20 42 00 14 84 1A 84 32 05 06 0A 04 08 33 06 T B.....2.....3.
005930: 00 00 03 20 B5 20 42 49 54 53 00 20 B6 20 42 49 ... . BITS. . BI
005940: 54 53 00 20 B7 20 42 49 54 53 00 20 B8 20 42 49 TS. . BITS. . BI
005950: 54 53 00 00 81 41 C1 32 05 05 0E 03 0C 33 06 00 TS...A.2.....3..
005960: 00 00 20 50 61 72 69 74 79 20 CE 6F 6E 65 00 20 .. Parity .one.
005970: 50 61 72 69 74 79 20 C5 76 65 6E 00 20 50 61 72 Parity .ven. Par
005980: 69 74 79 20 CF 64 64 00 00 03 01 32 05 0B 0B 09 ity .dd....2....
005990: 09 33 06 00 00 05 20 33 30 30 00 20 36 30 30 00 .3.... 300. 600.
0059A0: 20 31 32 30 30 2F 37 35 00 20 37 35 2F 31 32 30 1200/75. 75/120
0059B0: 30 00 20 31 32 30 30 00 20 32 34 30 30 00 20 34 0. 1200. 2400. 4
0059C0: 38 30 30 00 20 39 36 30 30 00 20 31 39 32 30 30 800. 9600. 19200
0059D0: 00 68 00 68 00 C0 34 00 34 00 C0 1A 00 A1 01 C0 .h.h..4.4.......
0059E0: A1 01 1A 00 C0 1A 00 1A 00 C0 34 00 34 00 40 1A ..........4.4.@.
0059F0: 00 1A 00 40 D0 00 D0 00 00 68 00 68 00 00 32 05 ...@.....h.h..2.
005A00: 31 20 70 72 69 6E 74 20 22 6D 61 69 6E 20 69 6E 1 print "main in
005A10: 70 75 74 20 72 6F 75 74 69 6E 65 73 22 0D 0A 0D put routines"...
005A20: 0A 3B 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 .; the following
005A30: 20 65 71 75 61 74 65 73 20 6D 75 73 74 20 62 65 equates must be
005A40: 20 6B 65 70 74 20 75 70 20 74 6F 20 64 61 74 65 kept up to date
005A50: 2E 0D 0A 0D 0A 0D 0A 3B 67 65 6E 65 72 61 6C 20 .......;general
005A60: 6A 75 6D 70 20 62 6C 6F 63 6B 20 66 6F 72 20 0D jump block for .
005A70: 0A 0D 0A 3B 69 6E 69 74 73 0D 0A 0D 0A 6A 33 30 ...;inits....j30
005A80: 30 69 6E 69 74 5F 70 6C 75 73 09 65 71 75 20 67 0init_plus.equ g
005A90: 75 2B 30 0D 0A 53 65 74 49 6E 74 65 72 75 70 74 u+0..SetInterupt
005AA0: 09 65 71 75 20 67 75 2B 33 0D 0A 4F 66 66 49 6E .equ gu+3..OffIn
005AB0: 74 65 72 75 70 74 09 65 71 75 20 67 75 2B 36 0D terupt.equ gu+6.
005AC0: 0A 52 65 6D 6F 76 65 5F 63 75 72 73 6F 72 09 65 .Remove_cursor.e
005AD0: 71 75 20 67 75 2B 39 0D 0A 50 6C 61 63 65 5F 63 qu gu+9..Place_c
005AE0: 75 72 73 6F 72 09 65 71 75 20 67 75 2B 31 32 0D ursor.equ gu+12.
005AF0: 0A 43 4C 4F 43 4B 5F 52 45 53 09 65 71 75 20 67 .CLOCK_RES.equ g
005B00: 75 2B 31 35 0D 0A 43 4C 4F 43 4B 5F 50 52 49 4E u+15..CLOCK_PRIN
005B10: 54 09 65 71 75 20 67 75 2B 31 38 0D 0A 43 4C 5F T.equ gu+18..CL_
005B20: 50 52 49 4E 54 09 65 71 75 20 67 75 2B 32 31 0D PRINT.equ gu+21.
005B30: 0A 43 4C 4F 43 4B 5F 4F 4E 09 65 71 75 20 67 75 .CLOCK_ON.equ gu
005B40: 2B 32 34 0D 0A 43 4C 4F 43 4B 5F 4F 46 46 09 65 +24..CLOCK_OFF.e
005B50: 71 75 20 67 75 2B 32 37 0D 0A 0D 0A 3B 77 69 6E qu gu+27....;win
005B60: 64 6F 77 0D 0A 50 55 4C 4C 44 4F 57 4E 09 65 71 dow..PULLDOWN.eq
005B70: 75 20 67 75 2B 33 30 0D 0A 20 20 3B 44 41 54 41 u gu+30.. ;DATA
005B80: 4C 49 4E 45 09 65 71 75 20 67 75 2B 33 33 0D 0A LINE.equ gu+33..
005B90: 20 20 3B 50 52 49 4E 54 5F 44 41 54 41 5F 43 55 ;PRINT_DATA_CU
005BA0: 52 53 4F 52 09 65 71 75 20 67 75 2B 33 36 0D 0A RSOR.equ gu+36..
005BB0: 20 20 3B 44 4C 5F 43 55 52 53 4F 52 09 65 71 75 ;DL_CURSOR.equ
005BC0: 20 67 75 2B 33 39 0D 0A 57 69 6E 64 6F 77 09 09 gu+39..Window..
005BD0: 65 71 75 20 67 75 2B 34 32 0D 0A 4D 42 4F 52 44 equ gu+42..MBORD
005BE0: 45 52 09 09 65 71 75 20 67 75 2B 34 35 0D 0A 4D ER..equ gu+45..M
005BF0: 50 52 49 4E 54 09 09 65 71 75 20 67 75 2B 34 38 PRINT..equ gu+48
005C00: 0D 0A 4D 43 55 52 53 4F 52 09 09 65 71 75 20 67 ..MCURSOR..equ g
005C10: 75 2B 35 31 0D 0A 4D 45 4E 55 5F 43 55 52 53 4F u+51..MENU_CURSO
005C20: 52 09 65 71 75 20 67 75 2B 35 34 0D 0A 48 4F 54 R.equ gu+54..HOT
005C30: 4B 45 59 53 09 09 65 71 75 20 67 75 2B 35 37 0D KEYS..equ gu+57.
005C40: 0A 4D 5F 50 52 49 4E 54 43 55 52 09 65 71 75 20 .M_PRINTCUR.equ
005C50: 67 75 2B 36 30 0D 0A 57 49 4E 44 4F 57 5F 57 49 gu+60..WINDOW_WI
005C60: 50 45 09 65 71 75 20 67 75 2B 36 33 0D 0A 57 49 PE.equ gu+63..WI
005C70: 4E 44 4F 57 5F 50 41 47 45 09 65 71 75 20 67 75 NDOW_PAGE.equ gu
005C80: 2B 36 36 0D 0A 0D 0A 0D 0A 0D 0A 3B 41 4E 53 49 +66........;ANSI
005C90: 0D 0A 52 4C 5F 53 45 54 5F 4F 46 46 53 45 54 09 ..RL_SET_OFFSET.
005CA0: 65 71 75 20 67 75 2B 36 39 0D 0A 52 45 53 45 54 equ gu+69..RESET
005CB0: 5F 41 4E 53 49 09 65 71 75 20 67 75 2B 37 32 0D _ANSI.equ gu+72.
005CC0: 0A 53 45 54 5F 41 4E 53 49 09 65 71 75 20 67 75 .SET_ANSI.equ gu
005CD0: 2B 37 35 0D 0A 53 63 72 65 65 6E 42 6C 61 6E 6B +75..ScreenBlank
005CE0: 09 65 71 75 20 67 75 2B 37 38 0D 0A 42 75 66 66 .equ gu+78..Buff
005CF0: 65 72 42 6C 61 6E 6B 09 65 71 75 20 67 75 2B 38 erBlank.equ gu+8
005D00: 31 0D 0A 41 4E 53 49 5F 4F 46 46 09 65 71 75 20 1..ANSI_OFF.equ
005D10: 67 75 2B 38 34 0D 0A 41 4E 53 49 5F 4F 4E 09 09 gu+84..ANSI_ON..
005D20: 65 71 75 20 67 75 2B 38 37 0D 0A 41 6C 6C 4F 66 equ gu+87..AllOf
005D30: 66 09 09 65 71 75 20 67 75 2B 39 30 0D 0A 0D 0A f..equ gu+90....
005D40: 0D 0A 3B 54 65 78 74 73 79 73 0D 0A 0D 0A 4E 55 ..;Textsys....NU
005D50: 4D 42 45 52 38 09 09 65 71 75 20 67 75 2B 39 33 MBER8..equ gu+93
005D60: 0D 0A 50 55 4C 4C 5F 50 52 49 4E 54 09 65 71 75 ..PULL_PRINT.equ
005D70: 20 67 75 2B 39 36 0D 0A 57 72 69 74 65 5F 43 68 gu+96..Write_Ch
005D80: 61 72 09 65 71 75 20 67 75 2B 39 39 0D 0A 53 63 ar.equ gu+99..Sc
005D90: 72 65 65 6E 57 72 69 74 65 09 65 71 75 20 67 75 reenWrite.equ gu
005DA0: 2B 31 30 32 0D 0A 63 6C 73 09 09 65 71 75 20 67 +102..cls..equ g
005DB0: 75 2B 31 30 35 0D 0A 43 4C 53 5F 73 63 72 65 65 u+105..CLS_scree
005DC0: 6E 09 65 71 75 20 67 75 2B 31 30 38 0D 0A 2E 54 n.equ gu+108...T
005DD0: 45 58 54 09 09 65 71 75 20 67 75 2B 31 31 31 0D EXT..equ gu+111.
005DE0: 0A 43 48 41 52 09 09 65 71 75 20 67 75 2B 31 31 .CHAR..equ gu+11
005DF0: 34 0D 0A 41 6E 73 69 43 68 61 72 09 65 71 75 20 4..AnsiChar.equ
005E00: 67 75 2B 31 31 37 0D 0A 43 55 52 53 4F 52 09 09 gu+117..CURSOR..
005E10: 65 71 75 20 67 75 2B 31 32 30 0D 0A 43 45 4C 4C equ gu+120..CELL
005E20: 32 09 09 65 71 75 20 67 75 2B 31 32 33 0D 0A 47 2..equ gu+123..G
005E30: 65 74 41 64 64 72 65 73 73 09 65 71 75 20 67 75 etAddress.equ gu
005E40: 2B 31 32 36 0D 0A 53 43 52 5F 41 44 44 52 45 53 +126..SCR_ADDRES
005E50: 53 09 65 71 75 20 67 75 2B 31 32 39 0D 0A 43 6C S.equ gu+129..Cl
005E60: 65 61 72 5F 6B 65 79 73 09 65 71 75 20 67 75 2B ear_keys.equ gu+
005E70: 31 33 32 0D 0A 41 4E 53 49 54 45 58 54 09 65 71 132..ANSITEXT.eq
005E80: 75 20 67 75 2B 31 33 35 0D 0A 59 45 53 4E 4F 09 u gu+135..YESNO.
005E90: 09 65 71 75 20 67 75 2B 31 33 38 0D 0A 4B 45 59 .equ gu+138..KEY
005EA0: 49 4E 50 09 09 65 71 75 20 67 75 2B 31 34 31 0D INP..equ gu+141.
005EB0: 0A 49 4E 50 55 54 4C 49 4E 45 09 65 71 75 20 67 .INPUTLINE.equ g
005EC0: 75 2B 31 34 34 0D 0A 49 4E 50 55 54 4C 49 4E 45 u+144..INPUTLINE
005ED0: 32 09 65 71 75 20 67 75 2B 31 34 37 0D 0A 4B 65 2.equ gu+147..Ke
005EE0: 79 5F 69 6E 70 75 74 32 09 65 71 75 20 67 75 2B y_input2.equ gu+
005EF0: 31 35 30 0D 0A 4B 45 59 5F 4C 49 4E 45 09 65 71 150..KEY_LINE.eq
005F00: 75 20 67 75 2B 31 35 33 0D 0A 44 45 43 38 09 09 u gu+153..DEC8..
005F10: 65 71 75 20 67 75 2B 31 35 36 0D 0A 44 45 43 31 equ gu+156..DEC1
005F20: 36 09 09 65 71 75 20 67 75 2B 31 35 39 0D 0A 49 6..equ gu+159..I
005F30: 6E 76 65 72 73 65 5F 6C 69 6E 65 09 65 71 75 20 nverse_line.equ
005F40: 67 75 2B 31 36 32 0D 0A 4E 45 58 54 42 59 54 45 gu+162..NEXTBYTE
005F50: 09 65 71 75 20 67 75 2B 31 36 35 0D 0A 4E 45 58 .equ gu+165..NEX
005F60: 54 4C 49 4E 45 09 65 71 75 20 67 75 2B 31 36 38 TLINE.equ gu+168
005F70: 0D 0A 4E 55 4D 42 45 52 31 36 09 65 71 75 20 67 ..NUMBER16.equ g
005F80: 75 2B 31 37 31 0D 0A 4D 55 4C 54 49 50 4C 59 5F u+171..MULTIPLY_
005F90: 44 45 42 43 09 65 71 75 20 67 75 2B 31 37 34 0D DEBC.equ gu+174.
005FA0: 0A 44 49 56 49 44 45 5F 48 4C 44 45 09 65 71 75 .DIVIDE_HLDE.equ
005FB0: 20 67 75 2B 31 37 37 0D 0A 68 65 78 09 09 65 71 gu+177..hex..eq
005FC0: 75 20 67 75 2B 31 38 30 0D 0A 0D 0A 69 6E 76 65 u gu+180....inve
005FD0: 72 73 65 09 09 65 71 75 20 67 75 2B 31 38 33 0D rse..equ gu+183.
005FE0: 0A 73 65 74 5F 6A 6A 63 68 61 6E 67 65 09 65 71 .set_jjchange.eq
005FF0: 75 20 67 75 2B 31 38 36 0D 0A 70 75 6C 6C 6A 70 u gu+186..pulljp
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 4E E5 05 00 C1 02 00 00 00 02 ......N.........
006020: 05 00 C2 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006030: 05 00 C4 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006040: 05 00 C6 02 00 00 00 02 05 00 C7 02 00 00 00 02 ................
006050: 05 00 C8 02 00 00 00 02 05 00 C9 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 09 09 65 71 75 20 67 75 2B 31 38 39 0D 0A 77 69 ..equ gu+189..wi
006110: 6E 72 65 74 09 09 65 71 75 20 67 75 2B 31 39 32 nret..equ gu+192
006120: 0D 0A 2E 63 6C 65 61 72 5F 42 75 66 09 65 71 75 ...clear_Buf.equ
006130: 20 67 75 2B 31 39 35 0D 0A 53 43 52 5F 42 75 66 gu+195..SCR_Buf
006140: 5F 4F 4E 09 65 71 75 20 67 75 2B 31 39 38 0D 0A _ON.equ gu+198..
006150: 53 43 52 5F 42 75 66 5F 4F 46 46 09 65 71 75 20 SCR_Buf_OFF.equ
006160: 67 75 2B 32 30 31 0D 0A 2E 47 65 74 43 68 61 72 gu+201...GetChar
006170: 61 63 74 65 72 09 65 71 75 20 67 75 2B 32 30 34 acter.equ gu+204
006180: 0D 0A 57 61 69 74 5F 66 6C 79 09 65 71 75 20 67 ..Wait_fly.equ g
006190: 75 2B 32 30 37 0D 0A 63 65 6C 6C 09 09 65 71 75 u+207..cell..equ
0061A0: 20 67 75 2B 32 31 30 0D 0A 46 57 5F 6D 75 6C 74 gu+210..FW_mult
0061B0: 31 36 09 65 71 75 20 67 75 2B 32 31 33 0D 0A 46 16.equ gu+213..F
0061C0: 57 5F 64 69 76 69 64 65 31 36 09 65 71 75 20 67 W_divide16.equ g
0061D0: 75 2B 32 31 36 0D 0A 46 57 5F 4D 6F 64 31 36 09 u+216..FW_Mod16.
0061E0: 65 71 75 20 67 75 2B 32 31 39 0D 0A 46 57 5F 43 equ gu+219..FW_C
0061F0: 6F 6D 70 31 36 09 65 71 75 20 67 75 2B 32 32 32 omp16.equ gu+222
006200: 0D 0A 46 57 5F 54 65 73 74 48 4C 09 65 71 75 20 ..FW_TestHL.equ
006210: 67 75 2B 32 32 35 0D 0A 61 6E 79 6B 65 79 09 09 gu+225..anykey..
006220: 65 71 75 20 67 75 2B 32 32 38 0D 0A 70 61 75 73 equ gu+228..paus
006230: 65 33 30 30 09 65 71 75 20 67 75 2B 32 33 31 0D e300.equ gu+231.
006240: 0A 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B .;++++++++++++++
006250: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
006260: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
006270: 2B 2B 2B 2B 2B 2B 2B 2B 2B 0D 0A 0D 0A 2E 50 52 +++++++++.....PR
006280: 4F 47 52 41 4D 5F 53 54 41 52 54 0D 0A 09 4C 44 OGRAM_START...LD
006290: 20 28 53 54 41 52 54 5F 53 54 41 43 4B 29 2C 53 (START_STACK),S
0062A0: 50 0D 0A 09 63 61 6C 6C 20 49 6E 69 74 5F 50 72 P...call Init_Pr
0062B0: 6F 67 72 61 6D 0D 0A 09 63 61 6C 6C 20 6E 65 77 ogram...call new
0062C0: 5F 73 74 61 72 74 0D 0A 0D 0A 0D 0A 2E 4E 45 57 _start.......NEW
0062D0: 5F 53 54 41 52 54 09 09 09 3B 49 46 20 54 4F 54 _START...;IF TOT
0062E0: 41 4C 20 52 45 53 45 54 20 54 48 45 4E 20 53 54 AL RESET THEN ST
0062F0: 41 52 54 20 48 45 52 45 21 0D 0A 09 58 4F 52 20 ART HERE!...XOR
006300: 41 0D 0A 20 20 20 20 20 20 20 20 63 61 6C 6C 20 A.. call
006310: 73 65 74 5F 6A 6A 63 68 61 6E 67 65 09 3B 65 6E set_jjchange.;en
006320: 61 62 6C 65 20 63 75 72 73 6F 72 0D 0A 09 4C 44 able cursor...LD
006330: 20 48 4C 2C 28 44 59 29 0D 0A 09 4C 44 20 28 59 HL,(DY)...LD (Y
006340: 29 2C 48 4C 09 09 3B 73 65 74 20 63 75 72 73 6F ),HL..;set curso
006350: 72 0D 0A 2E 6D 61 69 6E 5F 6C 6F 6F 70 31 0D 0A r...main_loop1..
006360: 09 63 61 6C 6C 20 74 61 6C 6B 69 6E 70 0D 0A 09 .call talkinp...
006370: 63 61 6C 6C 20 74 61 6C 6B 6F 75 74 0D 0A 09 63 call talkout...c
006380: 70 20 26 65 30 0D 0A 09 63 61 6C 6C 20 7A 2C 64 p &e0...call z,d
006390: 61 74 61 32 0D 0A 09 6A 70 20 6D 61 69 6E 5F 6C ata2...jp main_l
0063A0: 6F 6F 70 31 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D oop1......;-----
0063B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0063C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0063D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0063E0: 2E 54 41 4C 4B 49 4E 50 0D 0A 09 43 41 4C 4C 20 .TALKINP...CALL
0063F0: 49 4E 50 55 54 09 09 3B 72 65 63 65 76 65 20 63 INPUT..;receve c
006400: 68 61 72 0D 0A 20 09 72 65 74 20 4E 43 09 09 3B har.. .ret NC..;
006410: 6E 6F 20 63 68 61 72 20 74 68 65 6E 20 72 65 61 no char then rea
006420: 64 20 6B 65 79 62 6F 61 72 64 0D 0A 09 4C 44 20 d keyboard...LD
006430: 42 2C 43 68 61 72 49 6E 54 61 62 6C 65 2F 26 31 B,CharInTable/&1
006440: 30 30 0D 0A 09 4C 44 20 43 2C 41 0D 0A 09 4C 44 00...LD C,A...LD
006450: 20 41 2C 28 42 43 29 0D 0A 0D 0A 09 43 41 4C 4C A,(BC).....CALL
006460: 20 53 43 52 45 45 4E 57 52 49 54 45 09 3B 70 72 SCREENWRITE.;pr
006470: 69 6E 74 20 63 68 61 72 0D 0A 09 6A 70 20 45 63 int char...jp Ec
006480: 68 6F 73 5F 6F 75 74 0D 0A 0D 0A 3B 2D 2D 2D 2D hos_out....;----
006490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0064A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0064B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 54 ------------...T
0064C0: 41 4C 4B 6F 75 74 0D 0A 09 43 41 4C 4C 20 26 42 ALKout...CALL &B
0064D0: 42 31 42 09 09 3B 72 65 61 64 20 63 68 61 72 0D B1B..;read char.
0064E0: 0A 09 72 65 74 20 4E 43 09 09 09 3B 69 66 20 6E ..ret NC...;if n
0064F0: 6F 20 63 68 61 72 20 74 68 65 6E 20 72 65 61 64 o char then read
006500: 20 62 75 66 66 65 72 0D 0A 09 43 50 20 26 45 30 buffer...CP &E0
006510: 0D 0A 09 72 65 74 20 7A 09 09 09 3B 70 75 6C 6C ...ret z...;pull
006520: 20 64 6F 77 6E 20 6C 69 6E 65 20 69 66 20 43 4F down line if CO
006530: 50 59 20 70 72 65 73 73 65 64 0D 0A 09 63 61 6C PY pressed...cal
006540: 6C 20 76 74 31 30 30 5F 6F 75 74 09 09 3B 56 54 l vt100_out..;VT
006550: 31 30 30 20 6B 65 79 73 0D 0A 09 09 09 09 3B 3C 100 keys......;<
006560: 3C 20 61 64 64 20 68 65 72 65 20 63 61 70 74 75 < add here captu
006570: 72 65 20 77 69 6E 64 6F 77 0D 0A 09 4C 44 20 44 re window...LD D
006580: 2C 43 68 61 72 4F 75 74 54 61 62 6C 65 2F 26 31 ,CharOutTable/&1
006590: 30 30 0D 0A 09 4C 44 20 45 2C 41 0D 0A 09 0D 0A 00...LD E,A.....
0065A0: 09 6C 64 20 61 2C 63 0D 0A 09 6F 72 20 61 0D 0A .ld a,c...or a..
0065B0: 09 72 65 74 20 6E 7A 09 3B 20 74 68 65 20 6C 61 .ret nz.; the la
0065C0: 73 74 20 6B 65 79 73 20 77 65 72 65 20 76 74 31 st keys were vt1
0065D0: 30 30 21 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 45 00!.....LD A,(DE
0065E0: 29 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 09 )...CALL OUTPUT.
0065F0: 09 3B 6F 75 74 70 75 74 20 63 68 61 72 0D 0A 09 .;output char...
006600: 6A 70 20 45 63 68 6F 73 5F 69 6E 0D 0A 0D 0A 3B jp Echos_in....;
006610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006640: 2D 0D 0A 2E 45 63 68 6F 73 5F 69 6E 0D 0A 09 63 -...Echos_in...c
006650: 61 6C 6C 20 4A 4C 4F 43 41 4C 5F 45 43 48 4F 0D all JLOCAL_ECHO.
006660: 0A 09 43 50 20 38 0D 0A 09 63 61 6C 6C 20 5A 2C ..CP 8...call Z,
006670: 4A 52 45 4D 4F 54 45 5F 44 45 4C 0D 0A 09 43 50 JREMOTE_DEL...CP
006680: 20 31 33 0D 0A 09 6A 70 20 5A 2C 4A 52 45 4D 4F 13...jp Z,JREMO
006690: 54 45 5F 4C 46 09 3B 65 63 68 6F 0D 0A 09 0D 0A TE_LF.;echo.....
0066A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
0066B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0066C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0066D0: 2D 0D 0A 2E 45 63 68 6F 73 5F 6F 75 74 0D 0A 09 -...Echos_out...
0066E0: 63 61 6C 6C 20 4A 52 45 4D 4F 54 45 5F 45 43 48 call JREMOTE_ECH
0066F0: 4F 0D 0A 20 20 20 20 20 20 20 20 43 50 20 38 0D O.. CP 8.
006700: 0A 09 63 61 6C 6C 20 5A 2C 4A 4C 4F 43 41 4C 5F ..call Z,JLOCAL_
006710: 44 45 4C 0D 0A 09 43 50 20 31 33 0D 0A 09 6A 70 DEL...CP 13...jp
006720: 20 5A 2C 4A 4C 4F 43 41 4C 5F 4C 46 09 3B 65 63 Z,JLOCAL_LF.;ec
006730: 68 6F 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ho..;-----------
006740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006760: 2D 2D 2D 2D 2D 2D 0D 0A 2E 56 54 31 30 30 5F 6F ------...VT100_o
006770: 75 74 09 3B 20 69 66 20 63 3D 30 20 74 68 65 6E ut.; if c=0 then
006780: 20 6E 6F 74 20 76 74 31 30 30 20 6B 65 79 73 0D not vt100 keys.
006790: 0A 09 4C 44 20 43 2C 22 41 22 09 09 3B 55 50 0D ..LD C,"A"..;UP.
0067A0: 0A 09 43 50 20 26 46 34 0D 0A 09 6A 70 20 5A 2C ..CP &F4...jp Z,
0067B0: 56 54 31 30 30 5F 43 55 52 0D 0A 09 69 6E 63 20 VT100_CUR...inc
0067C0: 43 09 09 09 3B 42 20 2D 20 44 4F 57 4E 0D 0A 09 C...;B - DOWN...
0067D0: 43 50 20 26 46 35 0D 0A 09 6A 70 20 5A 2C 56 54 CP &F5...jp Z,VT
0067E0: 31 30 30 5F 43 55 52 0D 0A 09 69 6E 63 20 43 09 100_CUR...inc C.
0067F0: 09 09 3B 43 20 52 49 47 48 54 0D 0A 09 43 50 20 ..;C RIGHT...CP
006800: 26 46 37 0D 0A 09 6A 70 20 5A 2C 56 54 31 30 30 &F7...jp Z,VT100
006810: 5F 43 55 52 0D 0A 09 49 4E 43 20 43 09 09 09 3B _CUR...INC C...;
006820: 44 20 4C 45 46 54 0D 0A 09 43 50 20 26 46 36 0D D LEFT...CP &F6.
006830: 0A 09 6A 70 20 5A 2C 56 54 31 30 30 5F 43 55 52 ..jp Z,VT100_CUR
006840: 0D 0A 09 6C 64 20 63 2C 30 0D 0A 09 72 65 74 0D ...ld c,0...ret.
006850: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
006860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006880: 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4A 4C 4F 43 41 4C -------...JLOCAL
006890: 5F 45 43 48 4F 0D 0A 09 52 45 54 0D 0A 09 43 41 _ECHO...RET...CA
0068A0: 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 45 0D 0A LL SCREENWRITE..
0068B0: 09 43 50 20 38 0D 0A 09 4A 52 20 5A 2C 4A 4C 4F .CP 8...JR Z,JLO
0068C0: 43 41 4C 5F 44 45 4C 0D 0A 20 20 20 20 20 20 20 CAL_DEL..
0068D0: 20 43 50 20 31 33 0D 0A 09 4A 52 20 5A 2C 4A 4C CP 13...JR Z,JL
0068E0: 4F 43 41 4C 5F 4C 46 0D 0A 20 20 20 20 20 20 20 OCAL_LF..
0068F0: 20 52 45 54 0D 0A 0D 0A 2E 4A 4C 4F 43 41 4C 5F RET.....JLOCAL_
006900: 44 45 4C 0D 0A 09 52 45 54 0D 0A 09 4C 44 20 41 DEL...RET...LD A
006910: 2C 22 20 22 0D 0A 09 43 41 4C 4C 20 53 43 52 45 ," "...CALL SCRE
006920: 45 4E 57 52 49 54 45 0D 0A 09 4C 44 20 41 2C 38 ENWRITE...LD A,8
006930: 0D 0A 09 4A 50 20 53 43 52 45 45 4E 57 52 49 54 ...JP SCREENWRIT
006940: 45 0D 0A 0D 0A 2E 4A 4C 4F 43 41 4C 5F 4C 46 0D E.....JLOCAL_LF.
006950: 0A 09 52 45 54 0D 0A 09 4C 44 20 41 2C 31 30 0D ..RET...LD A,10.
006960: 0A 09 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 ..CALL SCREENWRI
006970: 54 45 0D 0A 09 4C 44 20 41 2C 31 33 0D 0A 09 52 TE...LD A,13...R
006980: 45 54 0D 0A 0D 0A 4A 52 45 4D 4F 54 45 5F 45 43 ET....JREMOTE_EC
006990: 48 4F 0D 0A 20 20 20 20 20 20 20 20 52 45 54 0D HO.. RET.
0069A0: 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 ..CALL OUTPUT...
0069B0: 43 50 20 38 0D 0A 09 4A 52 20 5A 2C 4A 52 45 4D CP 8...JR Z,JREM
0069C0: 4F 54 45 5F 44 45 4C 0D 0A 09 43 50 20 31 33 0D OTE_DEL...CP 13.
0069D0: 0A 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 4A 52 . JR Z,JR
0069E0: 45 4D 4F 54 45 5F 4C 46 0D 0A 09 52 45 54 0D 0A EMOTE_LF...RET..
0069F0: 2E 4A 52 45 4D 4F 54 45 5F 44 45 4C 0D 0A 09 52 .JREMOTE_DEL...R
006A00: 45 54 0D 0A 09 4C 44 20 41 2C 22 20 22 0D 0A 09 ET...LD A," "...
006A10: 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 4C 44 CALL OUTPUT...LD
006A20: 20 41 2C 38 0D 0A 09 4A 50 20 4F 55 54 50 55 54 A,8...JP OUTPUT
006A30: 0D 0A 2E 4A 52 45 4D 4F 54 45 5F 4C 46 0D 0A 09 ...JREMOTE_LF...
006A40: 52 45 54 0D 0A 09 4C 44 20 41 2C 31 30 0D 0A 09 RET...LD A,10...
006A50: 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 4C 44 CALL OUTPUT...LD
006A60: 20 41 2C 31 33 0D 0A 09 52 45 54 0D 0A 0D 0A 3B A,13...RET....;
006A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006AA0: 2D 2D 2D 2D 0D 0A 2E 56 54 31 30 30 5F 43 55 52 ----...VT100_CUR
006AB0: 0D 0A 09 4C 44 20 41 2C 32 37 0D 0A 09 43 41 4C ...LD A,27...CAL
006AC0: 4C 20 4F 55 54 50 55 54 0D 0A 09 4C 44 20 41 2C L OUTPUT...LD A,
006AD0: 22 5B 22 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 "["...CALL OUTPU
006AE0: 54 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 6A 70 20 T...LD A,C...jp
006AF0: 4F 55 54 50 55 54 0D 0A 09 09 09 3B 73 65 6E 64 OUTPUT.....;send
006B00: 20 6F 75 74 20 56 54 31 30 30 20 63 6F 64 65 73 out VT100 codes
006B10: 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ....;-----------
006B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 45 58 -----------...EX
006B50: 50 41 4E 44 5F 4B 45 59 53 0D 0A 09 53 55 42 20 PAND_KEYS...SUB
006B60: 31 32 38 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 4C 128...LD L,A...L
006B70: 44 20 48 2C 30 0D 0A 09 41 44 44 20 48 4C 2C 48 D H,0...ADD HL,H
006B80: 4C 09 3B 32 0D 0A 09 4C 44 20 44 45 2C 45 58 50 L.;2...LD DE,EXP
006B90: 41 4E 44 5F 54 41 42 4C 45 0D 0A 09 41 44 44 20 AND_TABLE...ADD
006BA0: 48 4C 2C 44 45 0D 0A 09 4C 44 20 45 2C 28 48 4C HL,DE...LD E,(HL
006BB0: 29 3A 49 4E 43 20 48 4C 3A 4C 44 20 44 2C 28 48 ):INC HL:LD D,(H
006BC0: 4C 29 0D 0A 09 45 58 20 48 4C 2C 44 45 0D 0A 2E L)...EX HL,DE...
006BD0: 45 58 4B 59 31 09 4C 44 20 41 2C 28 48 4C 29 0D EXKY1.LD A,(HL).
006BE0: 0A 09 49 4E 43 20 48 4C 0D 0A 09 4F 52 20 41 0D ..INC HL...OR A.
006BF0: 0A 09 72 65 74 20 5A 0D 0A 09 43 41 4C 4C 20 4F ..ret Z...CALL O
006C00: 55 54 50 55 54 09 09 3B 6F 75 74 70 75 74 20 63 UTPUT..;output c
006C10: 68 61 72 0D 0A 09 43 41 4C 4C 20 45 63 68 6F 5F har...CALL Echo_
006C20: 4F 75 74 0D 0A 09 4A 50 20 45 58 4B 59 31 0D 0A Out...JP EXKY1..
006C30: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
006C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006C60: 2D 2D 0D 0A 2E 45 53 43 41 50 45 2E 0D 0A 09 43 --...ESCAPE....C
006C70: 41 4C 4C 20 26 42 42 30 30 09 09 3B 4B 4D 20 49 ALL &BB00..;KM I
006C80: 4E 49 54 20 2D 20 6A 75 73 74 20 63 72 61 73 68 NIT - just crash
006C90: 20 6F 75 74 21 21 21 21 0D 0A 09 4C 44 20 41 2C out!!!!...LD A,
006CA0: 32 0D 0A 09 43 41 4C 4C 20 26 42 43 30 45 0D 0A 2...CALL &BC0E..
006CB0: 20 20 20 20 20 20 20 09 4C 44 20 53 50 2C 28 53 .LD SP,(S
006CC0: 54 41 52 54 5F 53 54 41 43 4B 29 0D 0A 09 4A 50 TART_STACK)...JP
006CD0: 20 4F 46 46 49 4E 54 45 52 55 50 54 0D 0A 3B 2D OFFINTERUPT..;-
006CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006D10: 2D 0D 0A 0D 0A 2E 44 41 54 41 32 0D 0A 09 58 4F -.....DATA2...XO
006D20: 52 20 41 0D 0A 09 4C 44 20 28 43 4F 4D 29 2C 41 R A...LD (COM),A
006D30: 09 09 3B 72 65 73 65 74 20 64 61 74 61 6C 69 6E ..;reset datalin
006D40: 65 20 20 0D 0A 09 4C 44 20 28 50 55 4C 4C 5F 53 e ...LD (PULL_S
006D50: 54 41 43 4B 29 2C 53 50 09 3B 73 61 76 65 20 73 TACK),SP.;save s
006D60: 74 61 63 6B 20 6A 75 73 74 20 69 6E 20 63 61 73 tack just in cas
006D70: 65 0D 0A 09 43 41 4C 4C 20 41 6E 73 69 5F 6F 66 e...CALL Ansi_of
006D80: 66 09 09 3B 72 65 73 65 74 20 61 6E 73 69 2F 72 f..;reset ansi/r
006D90: 65 6D 6F 76 65 20 63 75 72 73 6F 72 0D 0A 09 4C emove cursor...L
006DA0: 44 20 48 4C 2C 28 59 29 0D 0A 09 4C 44 20 28 44 D HL,(Y)...LD (D
006DB0: 59 29 2C 48 4C 09 09 3B 73 61 76 65 20 78 2C 79 Y),HL..;save x,y
006DC0: 0D 0A 09 43 41 4C 4C 20 44 41 54 41 4C 49 4E 45 ...CALL DATALINE
006DD0: 09 09 3B 70 75 6C 6C 20 64 6F 77 6E 20 64 61 74 ..;pull down dat
006DE0: 61 6C 69 6E 65 0D 0A 09 43 41 4C 4C 20 41 6E 73 aline...CALL Ans
006DF0: 69 5F 6F 6E 09 09 3B 73 65 74 20 61 6E 73 69 20 i_on..;set ansi
006E00: 62 61 63 6B 20 74 6F 20 6E 6F 72 6D 61 6C 0D 0A back to normal..
006E10: 09 4C 44 20 48 4C 2C 28 44 59 29 0D 0A 09 4C 44 .LD HL,(DY)...LD
006E20: 20 28 59 29 2C 48 4C 0D 0A 09 63 61 6C 6C 20 50 (Y),HL...call P
006E30: 6C 61 63 65 5F 43 75 72 73 6F 72 09 3B 70 6C 61 lace_Cursor.;pla
006E40: 63 65 20 74 68 65 20 63 75 72 73 6F 72 2F 72 65 ce the cursor/re
006E50: 74 0D 0A 09 78 6F 72 20 61 0D 0A 09 72 65 74 0D t...xor a...ret.
006E60: 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .....;----------
006E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006E80: 2D 2D 2D 2D 2D 0D 0A 3B 09 55 53 45 20 41 20 44 -----..;.USE A D
006E90: 41 54 41 4C 49 4E 45 0D 0A 3B 09 65 6E 74 72 79 ATALINE..;.entry
006EA0: 20 48 4C 3D 61 64 64 72 65 73 73 20 6F 66 20 69 HL=address of i
006EB0: 6E 66 6F 0D 0A 3B 09 65 78 69 74 20 3F 3F 09 0D nfo..;.exit ??..
006EC0: 0A 3B 09 75 73 65 64 20 3F 3F 0D 0A 3B 2D 2D 2D .;.used ??..;---
006ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A ------------....
006EF0: 2E 44 41 54 41 4C 49 4E 45 09 09 09 09 3B 6E 6F .DATALINE....;no
006F00: 77 20 61 75 74 6F 6D 61 74 69 63 6C 79 20 66 6F w automaticly fo
006F10: 72 63 65 73 20 70 75 6C 6C 64 6F 77 6E 21 0D 0A rces pulldown!..
006F20: 09 43 41 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 .CALL PRINT_DATA
006F30: 4C 49 4E 45 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D LINE...LD A,(COM
006F40: 29 0D 0A 09 43 41 4C 4C 20 44 4C 5F 43 55 52 53 )...CALL DL_CURS
006F50: 4F 52 09 09 09 3B 70 72 69 6E 74 20 63 75 72 73 OR...;print curs
006F60: 6F 72 0D 0A 2E 45 4E 54 0D 0A 09 4C 44 20 41 2C or...ENT...LD A,
006F70: 28 43 4F 4D 29 0D 0A 09 4C 44 20 4C 2C 41 0D 0A (COM)...LD L,A..
006F80: 09 4C 44 20 48 2C 30 0D 0A 09 41 44 44 20 48 4C .LD H,0...ADD HL
006F90: 2C 48 4C 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 0D ,HL...ADD HL,HL.
006FA0: 0A 09 49 4E 43 20 48 4C 0D 0A 09 49 4E 43 20 48 ..INC HL...INC H
006FB0: 4C 09 09 09 09 3B 68 6C 20 70 6F 69 6E 74 73 20 L....;hl points
006FC0: 74 6F 20 6A 70 0D 0A 09 4C 44 20 44 45 2C 4D 41 to jp...LD DE,MA
006FD0: 49 4E 5F 53 54 41 52 54 0D 0A 09 41 44 44 20 48 IN_START...ADD H
006FE0: 4C 2C 44 45 0D 0A 09 4C 44 20 45 2C 28 48 4C 29 L,DE...LD E,(HL)
006FF0: 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 44 ...INC HL...LD D
007000: 2C 28 48 4C 29 09 09 09 0D 0A 09 09 09 09 3B 69 ,(HL).........;i
007010: 78 3D 61 64 64 72 65 73 73 20 74 6F 20 6A 75 6D x=address to jum
007020: 70 2F 63 61 6C 6C 0D 0A 09 50 55 53 48 20 44 45 p/call...PUSH DE
007030: 0D 0A 09 50 4F 50 20 49 58 20 20 20 20 20 20 20 ...POP IX
007040: 20 0D 0A 09 0D 0A 09 4C 44 20 28 49 58 2B 31 30 ......LD (IX+10
007050: 29 2C 30 09 09 3B 52 45 53 45 54 20 43 55 52 53 ),0..;RESET CURS
007060: 4F 52 0D 0A 09 43 41 4C 4C 20 50 55 4C 4C 44 4F OR...CALL PULLDO
007070: 57 4E 0D 0A 0D 0A 09 4A 50 20 43 2C 44 4C 5F 4C WN.....JP C,DL_L
007080: 45 46 54 52 49 47 48 54 0D 0A 09 43 50 20 26 46 EFTRIGHT...CP &F
007090: 46 0D 0A 09 4A 52 20 5A 2C 45 4E 54 20 0D 0A 20 F...JR Z,ENT ..
0070A0: 20 20 20 20 20 20 20 43 50 20 26 46 43 0D 0A 09 CP &FC...
0070B0: 4A 52 20 4E 5A 2C 45 4E 54 20 09 09 3B 20 49 66 JR NZ,ENT ..; If
0070C0: 20 45 73 63 20 74 68 65 6E 20 73 74 61 79 20 6F Esc then stay o
0070D0: 6E 20 6C 69 6E 65 0D 0A 0D 0A 2E 44 41 54 41 45 n line.....DATAE
0070E0: 09 4C 44 20 48 4C 2C 30 0D 0A 09 43 41 4C 4C 20 .LD HL,0...CALL
0070F0: 44 41 45 09 09 3B 65 72 61 73 65 20 64 61 74 61 DAE..;erase data
007100: 6C 69 6E 65 0D 0A 09 4C 44 20 48 4C 2C 32 34 0D line...LD HL,24.
007110: 0A 2E 44 41 45 09 4C 44 20 42 2C 38 30 0D 0A 09 ..DAE.LD B,80...
007120: 4C 44 20 43 2C 31 0D 0A 09 43 41 4C 4C 20 57 49 LD C,1...CALL WI
007130: 4E 44 4F 57 0D 0A 09 52 45 54 09 0D 0A 0D 0A 2E NDOW...RET......
007140: 44 4C 5F 4C 45 46 54 52 49 47 48 54 0D 0A 09 43 DL_LEFTRIGHT...C
007150: 50 20 39 0D 0A 09 43 41 4C 4C 20 5A 2C 44 4C 5F P 9...CALL Z,DL_
007160: 52 49 47 48 54 09 3B 20 49 66 20 39 20 74 68 65 RIGHT.; If 9 the
007170: 6E 20 6D 6F 76 65 20 72 69 67 68 74 0D 0A 09 43 n move right...C
007180: 50 20 38 0D 0A 09 43 41 4C 4C 20 5A 2C 44 4C 5F P 8...CALL Z,DL_
007190: 4C 45 46 54 09 09 3B 20 49 66 20 38 20 74 68 65 LEFT..; If 8 the
0071A0: 6E 20 6D 6F 76 65 20 6C 65 66 74 0D 0A 09 4C 44 n move left...LD
0071B0: 20 28 49 58 2B 31 30 29 2C 30 0D 0A 09 4A 50 20 (IX+10),0...JP
0071C0: 45 4E 54 0D 0A 0D 0A 2E 44 4C 5F 4C 45 46 54 0D ENT.....DL_LEFT.
0071D0: 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 0D 0A 09 43 ..LD A,(COM)...C
0071E0: 41 4C 4C 20 44 4C 5F 43 55 52 53 4F 52 09 09 09 ALL DL_CURSOR...
0071F0: 3B 52 45 4D 4F 56 45 20 43 55 52 53 4F 52 0D 0A ;REMOVE CURSOR..
007200: 09 4C 44 20 41 2C 28 43 4F 4D 29 0D 0A 09 44 45 .LD A,(COM)...DE
007210: 43 20 41 09 09 09 09 3B 49 4E 43 20 43 4F 4D 41 C A....;INC COMA
007220: 4E 44 20 4E 55 4D 42 45 52 0D 0A 20 20 20 20 20 ND NUMBER..
007230: 20 20 20 43 50 20 26 46 46 0D 0A 09 4A 52 20 4E CP &FF...JR N
007240: 5A 2C 4D 4C 31 0D 0A 09 58 4F 52 20 41 0D 0A 2E Z,ML1...XOR A...
007250: 4D 4C 31 09 4C 44 20 28 43 4F 4D 29 2C 41 0D 0A ML1.LD (COM),A..
007260: 09 43 41 4C 4C 20 44 4C 5F 43 55 52 53 4F 52 0D .CALL DL_CURSOR.
007270: 0A 09 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 ..XOR A..
007280: 20 52 45 54 0D 0A 0D 0A 2E 44 4C 5F 52 49 47 48 RET.....DL_RIGH
007290: 54 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 09 09 T...LD A,(COM)..
0072A0: 09 3B 42 41 53 49 43 4C 59 20 54 48 45 20 53 41 .;BASICLY THE SA
0072B0: 4D 45 0D 0A 09 43 41 4C 4C 20 44 4C 5F 43 55 52 ME...CALL DL_CUR
0072C0: 53 4F 52 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 SOR...LD A,(COM)
0072D0: 0D 0A 09 49 4E 43 20 41 0D 0A 09 43 50 20 36 0D ...INC A...CP 6.
0072E0: 0A 09 4A 52 20 4E 5A 2C 4D 52 31 0D 0A 20 20 20 ..JR NZ,MR1..
0072F0: 20 20 20 20 20 4C 44 20 41 2C 35 0D 0A 2E 4D 52 LD A,5...MR
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 4E E5 06 00 C1 02 00 00 00 02 ......N.........
007320: 06 00 C2 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007330: 06 00 C4 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007340: 06 00 C6 02 00 00 00 02 06 00 C7 02 00 00 00 02 ................
007350: 06 00 C8 02 00 00 00 02 06 00 C9 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 31 09 4C 44 20 28 43 4F 4D 29 2C 41 0D 0A 09 43 1.LD (COM),A...C
007410: 41 4C 4C 20 44 4C 5F 43 55 52 53 4F 52 0D 0A 09 ALL DL_CURSOR...
007420: 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 52 XOR A.. R
007430: 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ET....;---------
007440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007450: 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 50 52 49 4E 54 20 ------..;.PRINT
007460: 41 20 44 41 54 41 20 4C 49 4E 45 0D 0A 3B 09 45 A DATA LINE..;.E
007470: 4E 54 52 59 20 48 4C 3D 41 44 44 52 45 53 53 20 NTRY HL=ADDRESS
007480: 4F 46 20 49 4E 46 4F 0D 0A 3B 20 20 20 20 20 20 OF INFO..;
007490: 20 09 58 0D 0A 3B 09 09 59 0D 0A 3B 09 09 57 49 .X..;..Y..;..WI
0074A0: 44 54 48 0D 0A 3B 20 20 20 20 20 20 20 09 53 54 DTH..; .ST
0074B0: 52 49 4E 47 0D 0A 3B 09 09 4E 4F 20 4F 46 20 43 RING..;..NO OF C
0074C0: 4F 4D 4D 41 4E 44 53 0D 0A 3B 09 09 58 2C 57 49 OMMANDS..;..X,WI
0074D0: 44 54 48 2C 4A 50 0D 0A 3B 09 09 58 2C 57 49 44 DTH,JP..;..X,WID
0074E0: 54 48 2C 4A 50 09 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D TH,JP...;-------
0074F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 50 52 49 4E ---------...PRIN
007510: 54 5F 44 41 54 41 5F 43 55 52 53 4F 52 0D 0A 09 T_DATA_CURSOR...
007520: 43 41 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 4C CALL PRINT_DATAL
007530: 49 4E 45 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 INE...LD A,(COM)
007540: 0D 0A 09 4A 50 20 44 4C 5F 43 55 52 53 4F 52 0D ...JP DL_CURSOR.
007550: 0A 0D 0A 2E 50 52 49 4E 54 5F 44 41 54 41 4C 49 ....PRINT_DATALI
007560: 4E 45 0D 0A 09 43 41 4C 4C 20 57 41 49 54 5F 46 NE...CALL WAIT_F
007570: 4C 59 09 09 3B 54 69 6D 65 20 77 69 74 68 20 73 LY..;Time with s
007580: 63 72 65 65 6E 0D 0A 0D 0A 2E 44 4C 31 09 50 55 creen.....DL1.PU
007590: 53 48 20 42 43 0D 0A 20 20 20 20 20 20 20 20 50 SH BC.. P
0075A0: 55 53 48 20 44 45 0D 0A 09 50 55 53 48 20 48 4C USH DE...PUSH HL
0075B0: 09 09 09 3B 73 61 76 65 20 77 69 64 74 68 2C 78 ...;save width,x
0075C0: 2C 79 0D 0A 09 4C 44 20 48 4C 2C 30 0D 0A 09 4C ,y...LD HL,0...L
0075D0: 44 20 44 45 2C 54 49 4D 45 4C 49 4E 45 0D 0A 2E D DE,TIMELINE...
0075E0: 44 4C 32 09 50 55 53 48 20 48 4C 0D 0A 09 43 41 DL2.PUSH HL...CA
0075F0: 4C 4C 20 53 43 52 5F 41 44 44 52 45 53 53 09 3B LL SCR_ADDRESS.;
007600: 67 65 74 20 73 63 72 65 65 6E 20 61 64 64 72 65 get screen addre
007610: 73 73 0D 0A 20 09 4C 44 20 41 2C 28 44 45 29 0D ss.. .LD A,(DE).
007620: 0A 09 69 6E 63 20 64 65 0D 0A 09 6F 72 20 61 09 ..inc de...or a.
007630: 09 09 3B 43 4F 52 52 55 50 54 0D 0A 09 6A 72 20 ..;CORRUPT...jr
007640: 7A 2C 64 6C 70 6F 70 0D 0A 09 70 75 73 68 20 64 z,dlpop...push d
007650: 65 0D 0A 09 70 75 73 68 20 68 6C 0D 0A 20 20 20 e...push hl..
007660: 20 20 20 20 20 4C 44 20 43 2C 41 0D 0A 09 42 49 LD C,A...BI
007670: 54 20 37 2C 43 0D 0A 09 4C 44 20 48 4C 2C 44 4C T 7,C...LD HL,DL
007680: 42 55 46 09 09 3B 68 6C 3D 74 65 6D 70 20 62 75 BUF..;hl=temp bu
007690: 66 66 20 66 6F 72 20 63 68 61 72 0D 0A 09 43 41 ff for char...CA
0076A0: 4C 4C 20 5A 2C 47 45 54 43 48 41 52 41 43 54 45 LL Z,GETCHARACTE
0076B0: 52 0D 0A 09 43 41 4C 4C 20 49 4E 56 45 52 53 45 R...CALL INVERSE
0076C0: 09 09 3B 69 6E 76 65 72 73 65 20 74 65 78 74 20 ..;inverse text
0076D0: 0D 0A 20 20 20 20 20 20 20 20 45 58 20 48 4C 2C .. EX HL,
0076E0: 44 45 0D 0A 09 50 4F 50 20 48 4C 0D 0A 20 20 20 DE...POP HL..
0076F0: 20 20 20 20 20 43 41 4C 4C 20 41 4E 53 49 43 48 CALL ANSICH
007700: 41 52 09 09 3B 50 72 69 6E 74 0D 0A 09 50 4F 50 AR..;Print...POP
007710: 20 44 45 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 49 DE...POP HL...I
007720: 4E 43 20 48 0D 0A 09 4A 50 20 44 4C 32 09 0D 0A NC H...JP DL2...
007730: 2E 44 4C 50 4F 50 0D 0A 09 50 4F 50 20 48 4C 0D .DLPOP...POP HL.
007740: 0A 09 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 ..POP HL..
007750: 20 20 50 4F 50 20 44 45 0D 0A 09 50 4F 50 20 42 POP DE...POP B
007760: 43 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 0D 0A 3B C...RET........;
007770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007790: 2D 2D 2D 2D 0D 0A 3B 09 50 72 69 6E 74 20 43 75 ----..;.Print Cu
0077A0: 72 73 6F 72 20 6F 6E 20 64 61 74 61 6C 69 6E 65 rsor on dataline
0077B0: 0D 0A 3B 09 45 6E 74 72 79 20 41 2D 65 6E 74 72 ..;.Entry A-entr
0077C0: 79 20 6E 75 6D 62 65 72 0D 0A 3B 09 55 73 65 64 y number..;.Used
0077D0: 20 41 46 20 0D 0A 3B 09 4E 6F 74 65 20 3B 20 6D AF ..;.Note ; m
0077E0: 75 73 74 20 66 69 72 73 74 20 69 6E 74 20 61 20 ust first int a
0077F0: 6C 69 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D line..;---------
007800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 44 ------------...D
007820: 4C 5F 43 55 52 53 4F 52 0D 0A 20 20 20 20 20 20 L_CURSOR..
007830: 20 20 50 55 53 48 20 48 4C 09 09 0D 0A 20 20 20 PUSH HL....
007840: 20 20 20 20 20 50 55 53 48 20 44 45 09 09 09 3B PUSH DE...;
007850: 73 61 76 65 20 72 65 67 73 0D 0A 09 4C 44 20 4C save regs...LD L
007860: 2C 41 0D 0A 09 4C 44 20 48 2C 30 0D 0A 09 41 44 ,A...LD H,0...AD
007870: 44 20 48 4C 2C 48 4C 09 09 3B 63 75 72 73 6F 72 D HL,HL..;cursor
007880: 20 6E 6F 20 2A 32 0D 0A 09 41 44 44 20 48 4C 2C no *2...ADD HL,
007890: 48 4C 09 09 3B 2A 34 0D 0A 09 4C 44 20 44 45 2C HL..;*4...LD DE,
0078A0: 4D 41 49 4E 5F 53 54 41 52 54 0D 0A 09 41 44 44 MAIN_START...ADD
0078B0: 20 48 4C 2C 44 45 09 09 3B 61 64 64 20 74 6F 20 HL,DE..;add to
0078C0: 73 74 61 72 74 20 74 6F 20 67 69 76 65 20 78 2C start to give x,
0078D0: 77 69 64 74 68 2C 6A 70 0D 0A 09 4C 44 20 44 2C width,jp...LD D,
0078E0: 28 48 4C 29 0D 0A 09 4C 44 20 45 2C 30 0D 0A 20 (HL)...LD E,0..
0078F0: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 09 INC HL...
007900: 4C 44 20 42 2C 28 48 4C 29 09 09 3B 42 3D 77 69 LD B,(HL)..;B=wi
007910: 64 74 68 0D 0A 09 45 58 20 48 4C 2C 44 45 20 20 dth...EX HL,DE
007920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 68 ;h
007930: 6C 3D 78 2C 79 0D 0A 09 43 41 4C 4C 20 49 4E 56 l=x,y...CALL INV
007940: 45 52 53 45 5F 4C 49 4E 45 09 3B 6A 75 73 74 20 ERSE_LINE.;just
007950: 74 68 61 74 21 21 0D 0A 09 50 4F 50 20 44 45 0D that!!...POP DE.
007960: 0A 09 50 4F 50 20 48 4C 0D 0A 09 52 45 54 0D 0A ..POP HL...RET..
007970: 0D 0A 0D 0A 2E 49 6E 69 74 5F 50 72 6F 67 72 61 .....Init_Progra
007980: 6D 0D 0A 2E 50 53 5F 42 59 09 43 50 20 31 0D 0A m...PS_BY.CP 1..
007990: 09 4C 44 20 41 2C 30 0D 0A 09 4A 52 20 4E 5A 2C .LD A,0...JR NZ,
0079A0: 50 53 5F 49 58 0D 0A 09 4C 44 20 41 2C 28 49 58 PS_IX...LD A,(IX
0079B0: 2B 30 29 0D 0A 2E 50 53 5F 49 58 0D 0A 09 4C 44 +0)...PS_IX...LD
0079C0: 20 28 52 53 32 33 32 5F 53 45 4C 45 43 54 29 2C (RS232_SELECT),
0079D0: 41 0D 0A 09 4C 44 20 41 2C 26 46 46 0D 0A 09 52 A...LD A,&FF...R
0079E0: 53 54 20 33 2C 53 4D 4A 50 0D 0A 2E 50 53 5F 52 ST 3,SMJP...PS_R
0079F0: 53 58 31 0D 0A 09 0D 0A 09 43 41 4C 4C 20 53 45 SX1......CALL SE
007A00: 54 55 50 5F 52 53 32 33 32 09 3B 53 65 74 75 70 TUP_RS232.;Setup
007A10: 20 74 68 65 20 72 73 32 33 32 20 61 63 63 6F 72 the rs232 accor
007A20: 64 69 6E 67 20 74 6F 20 0D 0A 09 09 09 09 3B 77 ding to ......;w
007A30: 68 61 74 20 74 79 70 65 20 69 74 20 69 73 0D 0A hat type it is..
007A40: 0D 0A 09 43 41 4C 4C 20 53 4F 55 4E 44 5F 52 45 ...CALL SOUND_RE
007A50: 53 45 54 0D 0A 09 4C 44 20 48 4C 2C 45 4E 54 42 SET...LD HL,ENTB
007A60: 4C 4B 0D 0A 09 4C 44 20 41 2C 31 0D 0A 09 43 41 LK...LD A,1...CA
007A70: 4C 4C 20 26 42 43 42 46 09 09 3B 53 45 54 20 54 LL &BCBF..;SET T
007A80: 4F 4E 45 20 45 4E 56 45 4C 4F 50 45 0D 0A 0D 0A ONE ENVELOPE....
007A90: 09 43 41 4C 4C 20 4B 4B 45 59 09 09 3B 20 52 45 .CALL KKEY..; RE
007AA0: 53 45 54 2F 53 45 54 20 4B 45 59 53 0D 0A 0D 0A SET/SET KEYS....
007AB0: 09 4C 44 20 41 2C 32 0D 0A 09 43 41 4C 4C 20 26 .LD A,2...CALL &
007AC0: 42 43 30 45 09 09 3B 53 65 74 20 74 6F 20 6D 6F BC0E..;Set to mo
007AD0: 64 65 20 32 0D 0A 09 63 61 6C 6C 20 73 65 74 69 de 2...call seti
007AE0: 6E 69 74 33 30 30 70 6C 75 73 0D 0A 09 43 41 4C nit300plus...CAL
007AF0: 4C 20 53 65 74 69 6E 74 65 72 75 70 74 20 09 3B L Setinterupt .;
007B00: 74 75 72 6E 20 6F 6E 20 69 6E 74 65 72 75 70 74 turn on interupt
007B10: 73 20 63 75 72 73 6F 72 2F 73 72 09 0D 0A 09 43 s cursor/sr....C
007B20: 41 4C 4C 20 53 63 72 5F 62 75 66 5F 6F 6E 09 09 ALL Scr_buf_on..
007B30: 3B 74 75 72 6E 20 6F 6E 20 62 75 66 66 65 72 73 ;turn on buffers
007B40: 0D 0A 09 43 41 4C 4C 20 43 6C 6F 63 6B 5F 52 65 ...CALL Clock_Re
007B50: 73 0D 0A 09 43 41 4C 4C 20 63 6C 73 5F 73 63 72 s...CALL cls_scr
007B60: 65 65 6E 09 09 3B 63 6C 65 61 72 20 73 63 72 65 een..;clear scre
007B70: 65 6E 20 61 6E 64 20 62 75 66 66 65 72 0D 0A 09 en and buffer...
007B80: 43 41 4C 4C 20 72 65 73 65 74 5F 61 6E 73 69 09 CALL reset_ansi.
007B90: 09 3B 73 65 74 20 61 6E 73 69 20 74 6F 20 6E 6F .;set ansi to no
007BA0: 72 6D 61 6C 2B 73 61 76 65 20 76 61 72 73 20 69 rmal+save vars i
007BB0: 6E 20 63 61 73 65 0D 0A 09 09 09 09 3B 6F 66 20 n case......;of
007BC0: 63 61 6C 6C 20 74 6F 20 73 65 74 5F 61 6E 73 69 call to set_ansi
007BD0: 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 20 20 20 ...LD A,&C9..
007BE0: 20 20 20 20 20 63 61 6C 6C 20 73 65 74 5F 6A 6A call set_jj
007BF0: 63 68 61 6E 67 65 09 3B 63 75 72 73 6F 72 20 74 change.;cursor t
007C00: 6F 74 61 6C 79 20 64 69 73 61 62 6C 65 64 0D 0A otaly disabled..
007C10: 0D 0A 09 4C 44 20 48 4C 2C 4C 4F 47 4F 4E 0D 0A ...LD HL,LOGON..
007C20: 09 43 41 4C 4C 20 41 4E 53 49 54 45 58 54 0D 0A .CALL ANSITEXT..
007C30: 0D 0A 20 09 43 41 4C 4C 20 45 52 41 53 45 5F 44 .. .CALL ERASE_D
007C40: 49 52 09 09 3B 65 72 61 73 65 20 64 69 72 0D 0A IR..;erase dir..
007C50: 0D 0A 3B 20 20 20 20 20 20 20 43 41 4C 4C 09 43 ..; CALL.C
007C60: 4C 45 41 52 53 42 0D 0A 09 0D 0A 09 4C 44 20 41 LEARSB......LD A
007C70: 2C 26 43 39 0D 0A 20 20 20 20 20 20 20 20 4C 44 ,&C9.. LD
007C80: 20 28 44 49 52 5F 45 52 52 4F 52 29 2C 41 0D 0A (DIR_ERROR),A..
007C90: 09 0D 0A 09 43 41 4C 4C 20 4C 4F 41 44 5F 44 49 ....CALL LOAD_DI
007CA0: 52 0D 0A 0D 0A 09 58 4F 52 20 41 0D 0A 20 20 20 R.....XOR A..
007CB0: 20 20 20 20 20 4C 44 20 28 44 49 52 5F 45 52 52 LD (DIR_ERR
007CC0: 4F 52 29 2C 41 0D 0A 0D 0A 09 4C 44 20 48 4C 2C OR),A.....LD HL,
007CD0: 52 5F 42 75 66 66 65 72 5F 53 74 61 72 74 0D 0A R_Buffer_Start..
007CE0: 09 4C 44 20 28 49 6E 70 75 74 4C 6F 77 29 2C 48 .LD (InputLow),H
007CF0: 4C 0D 0A 09 4C 44 20 28 49 6E 70 75 74 48 69 67 L...LD (InputHig
007D00: 68 29 2C 48 4C 0D 0A 0D 0A 09 43 41 4C 4C 20 43 h),HL.....CALL C
007D10: 4C 53 5F 53 43 52 45 45 4E 0D 0A 09 4C 44 20 48 LS_SCREEN...LD H
007D20: 4C 2C 4C 4F 47 4F 4E 32 0D 0A 09 43 41 4C 4C 20 L,LOGON2...CALL
007D30: 41 4E 53 49 54 45 58 54 0D 0A 09 4C 44 20 48 4C ANSITEXT...LD HL
007D40: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
007D50: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
007D60: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
007D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D80: 43 41 4C 4C 20 72 65 73 65 74 5F 61 6E 73 69 09 CALL reset_ansi.
007D90: 09 3B 73 65 74 20 61 6E 73 69 20 74 6F 20 6E 6F .;set ansi to no
007DA0: 72 6D 61 6C 2B 73 61 76 65 20 76 61 72 73 20 69 rmal+save vars i
007DB0: 6E 20 63 61 73 65 0D 0A 09 09 09 09 3B 6F 66 20 n case......;of
007DC0: 63 61 6C 6C 20 74 6F 20 73 65 74 5F 61 6E 73 69 call to set_ansi
007DD0: 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 20 20 20 ...LD A,&C9..
007DE0: 20 20 20 20 20 63 61 6C 6C 20 73 65 74 5F 6A 6A call set_jj
007DF0: 63 68 61 6E 67 65 09 3B 63 75 72 73 6F 72 20 74 change.;cursor t
007E00: 00 99 E7 38 38 7C 7C 18 E7 66 99 CC 18 70 67 3C ...88||..f...pg<
007E10: E0 0E 7E 00 1B 38 7E 3C 18 3C 18 30 FE 24 FF 18 ..~..8~<.<.0.$..
007E20: 00 00 00 36 7E 77 66 00 1C 1C 7F 1C 1C 00 1C 70 ...6~wf........p
007E30: 77 1C 38 77 0E 77 77 38 77 0E 1C 1C 1C 7F 1C 00 w.8w.ww8w.......
007E40: 70 77 77 77 7E 70 70 73 77 1C 6E 7E 70 6B 73 77 pwww~ppsw.n~pksw
007E50: 70 76 77 77 1C 77 3E 77 77 1C 70 70 07 07 00 00 pvww.w>ww.pp....
007E60: 00 77 77 77 77 70 38 3F 77 1C 1C 7E 1C 6B 77 77 .wwwwp8?w..~.kww
007E70: 7E 3F 70 07 38 77 3E 7F 3E 3F 38 1C 1C 1C 00 C6 ~?p.8w>.>?8.....
007E80: 81 81 FF 10 10 38 38 00 FF 3C C3 CC 7E F0 E6 5A .....88..<..~..Z
007E90: 80 02 3C 66 1B CC 7E 18 18 18 00 00 00 00 00 00 ..<f..~.........
007EA0: 00 08 00 38 08 43 3D 00 08 08 49 00 10 00 10 40 ...8.C=...I....@
007EB0: 3E 3E 7F 3E 02 3E 3E 08 3E 3C 08 08 04 00 10 08 >>.>.>>.><......
007EC0: 3E 41 7E 3E 7E 7F 40 1F 41 3E 38 41 7F 41 41 1C >A~>~.@.A>8A.AA.
007ED0: 40 1D 42 3E 08 3E 08 22 41 08 7F 1E 01 3C 00 00 @.B>.>."A....<..
007EE0: 00 3E 5C 3C 3A 3E 10 02 42 1C 24 42 38 41 42 3C .>\<:>..B.$B8AB<
007EF0: 40 02 40 7C 0C 3A 18 22 42 02 7E 0E 08 38 00 FE @.@|.:."B.~..8..
007F00: 00 81 FF 10 10 38 38 00 FF 3C C3 CC 7E F0 E6 5A .....88..<..~..Z
007F10: 80 02 3C 66 1B CC 7E 18 18 18 00 00 00 00 00 00 ..<f..~.........
007F20: 00 1C 00 36 18 07 3B 00 0E 38 1C 00 1C 00 1C 00 ...6..;..8......
007F30: 3E 7F 7F 3E 0E 3E 3E 38 3E 3C 1C 1C 0E 7F 38 1C >..>.>>8><....8.
007F40: 3E 77 7E 3E 7C 7F 70 3E 77 7F 3C 77 7F 63 73 3E >w~>|.p>w.<w.cs>
007F50: 70 3B 77 3E 1C 3E 1C 63 77 1C 7F 7F 00 7F 00 00 p;w>.>.cw.......
007F60: 00 3F 7E 3E 3F 3E 38 07 77 3E 1C 77 3E 63 77 3E .?~>?>8.w>.w>cw>
007F70: 70 07 70 7E 1E 3F 1C 36 77 07 7F 0E 1C 38 00 FE p.p~.?.6w....8..
007F80: FF 7E 7E 00 00 7C 7C 00 FF 00 FF 78 18 E0 C0 99 .~~..||....x....
007F90: 00 00 18 00 00 78 00 FF 00 00 00 00 00 00 00 00 .....x..........
007FA0: 00 00 00 7F 00 00 00 00 00 00 00 00 20 00 00 00 ............ ...
007FB0: 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 00 ................
007FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF ................
007FE0: 00 00 00 00 00 00 00 3C 00 00 1C 00 00 00 00 00 .......<........
007FF0: 40 03 00 00 00 00 00 00 00 3C 00 00 00 00 00 00 @........<......
008000: 31 20 70 72 69 6E 74 20 22 47 6C 6F 62 61 6C 20 1 print "Global
008010: 64 61 74 61 20 63 6F 6D 6D 6F 6E 20 74 6F 20 61 data common to a
008020: 6C 6C 22 0D 0A 0D 0A 0D 0A 3B 20 20 20 20 09 26 ll"......; .&
008030: 34 30 30 09 42 55 46 46 45 52 20 53 54 41 52 54 400.BUFFER START
008040: 0D 0A 3B 09 26 32 30 30 30 09 42 55 46 46 45 52 ..;.&2000.BUFFER
008050: 20 45 4E 44 0D 0A 3B 09 26 32 30 30 30 09 43 68 END..;.&2000.Ch
008060: 61 72 2F 61 6E 73 69 20 66 6F 72 6E 74 20 62 75 ar/ansi fornt bu
008070: 66 66 65 72 0D 0A 3B 09 26 33 30 30 30 09 43 48 ffer..;.&3000.CH
008080: 41 52 53 45 54 53 0D 0A 3B 09 26 34 30 30 30 09 ARSETS..;.&4000.
008090: 44 49 52 45 43 54 4F 52 59 20 42 55 46 46 45 52 DIRECTORY BUFFER
0080A0: 0D 0A 3B 09 26 34 38 30 30 09 58 4D 4F 44 45 4D ..;.&4800.XMODEM
0080B0: 0D 0A 3B 09 26 34 43 30 30 09 43 52 43 20 54 41 ..;.&4C00.CRC TA
0080C0: 42 4C 45 53 0D 0A 0D 0A 3B 09 26 35 30 30 30 20 BLES....;.&5000
0080D0: 09 67 72 61 70 68 69 63 73 20 73 74 61 72 74 0D .graphics start.
0080E0: 0A 3B 09 26 37 30 30 30 09 70 72 6F 67 72 61 6D .;.&7000.program
0080F0: 6D 65 20 73 74 61 72 74 0D 0A 3B 09 26 36 62 30 me start..;.&6b0
008100: 30 09 67 6C 6F 62 61 6C 20 64 61 74 61 0D 0A 0D 0.global data...
008110: 0A 2E 43 48 41 52 4D 41 50 09 09 45 51 55 20 09 ..CHARMAP..EQU .
008120: 26 33 30 30 30 0D 0A 2E 73 63 72 65 65 6E 5F 63 &3000...screen_c
008130: 09 09 65 71 75 09 26 32 30 30 30 0D 0A 2E 73 63 ..equ.&2000...sc
008140: 72 65 65 6E 5F 61 09 09 65 71 75 09 26 32 38 30 reen_a..equ.&280
008150: 30 0D 0A 2E 43 48 41 52 4D 41 50 32 09 09 45 51 0...CHARMAP2..EQ
008160: 55 20 09 43 48 41 52 4D 41 50 20 2F 20 26 31 30 U .CHARMAP / &10
008170: 30 0D 0A 2E 53 43 52 45 45 4E 5F 43 32 09 09 45 0...SCREEN_C2..E
008180: 51 55 09 53 43 52 45 45 4E 5F 43 20 2F 20 26 31 QU.SCREEN_C / &1
008190: 30 30 0D 0A 2E 53 43 52 45 45 4E 5F 41 32 09 09 00...SCREEN_A2..
0081A0: 45 51 55 09 53 43 52 45 45 4E 5F 41 20 2F 20 26 EQU.SCREEN_A / &
0081B0: 31 30 30 0D 0A 2E 43 52 43 54 61 62 6C 65 09 09 100...CRCTable..
0081C0: 45 51 55 09 26 34 43 30 30 0D 0A 2E 43 52 43 54 EQU.&4C00...CRCT
0081D0: 61 62 6C 65 32 09 09 45 51 55 09 43 52 43 54 61 able2..EQU.CRCTa
0081E0: 62 6C 65 20 2F 20 26 31 30 30 0D 0A 2E 43 68 61 ble / &100...Cha
0081F0: 72 49 6E 54 61 62 6C 65 09 09 45 51 55 09 43 52 rInTable..EQU.CR
008200: 43 54 61 62 6C 65 2B 26 32 30 30 0D 0A 2E 43 68 CTable+&200...Ch
008210: 61 72 4F 75 74 54 61 62 6C 65 09 09 45 51 55 09 arOutTable..EQU.
008220: 43 68 61 72 49 6E 54 61 62 6C 65 2B 26 31 30 30 CharInTable+&100
008230: 0D 0A 2E 52 5F 42 75 66 66 65 72 5F 73 74 61 72 ...R_Buffer_star
008240: 74 09 09 45 51 55 09 26 34 30 30 0D 0A 2E 52 5F t..EQU.&400...R_
008250: 42 75 66 66 65 72 5F 65 6E 64 09 09 45 51 55 09 Buffer_end..EQU.
008260: 26 32 30 30 30 0D 0A 2E 52 5F 42 75 66 66 65 72 &2000...R_Buffer
008270: 5F 6C 65 6E 67 74 68 09 45 51 55 20 09 52 5F 62 _length.EQU .R_b
008280: 75 66 66 65 72 5F 65 6E 64 2D 52 5F 62 75 66 66 uffer_end-R_buff
008290: 65 72 5F 73 74 61 72 74 0D 0A 2E 52 5F 42 55 46 er_start...R_BUF
0082A0: 46 45 52 5F 4C 45 4E 47 54 48 32 09 45 51 55 09 FER_LENGTH2.EQU.
0082B0: 52 5F 42 55 46 46 45 52 5F 4C 45 4E 47 54 48 20 R_BUFFER_LENGTH
0082C0: 2F 20 26 31 30 30 0D 0A 2E 52 5F 42 75 66 66 65 / &100...R_Buffe
0082D0: 72 5F 65 6E 64 32 09 09 45 51 55 09 52 5F 62 75 r_end2..EQU.R_bu
0082E0: 66 66 65 72 5F 65 6E 64 20 2F 20 26 31 30 30 0D ffer_end / &100.
0082F0: 0A 2E 52 5F 42 75 66 66 65 72 5F 73 74 61 72 74 ..R_Buffer_start
008300: 32 09 45 51 55 09 52 5F 62 75 66 66 65 72 5F 73 2.EQU.R_buffer_s
008310: 74 61 72 74 20 2F 20 26 31 30 30 0D 0A 2E 58 6D tart / &100...Xm
008320: 6F 64 65 6D 09 09 09 45 51 55 09 26 34 38 30 30 odem...EQU.&4800
008330: 0D 0A 2E 44 69 61 6C 5F 44 69 72 09 09 45 51 55 ...Dial_Dir..EQU
008340: 09 26 34 30 30 30 0D 0A 0D 0A 2E 62 6F 6C 64 66 .&4000.....boldf
008350: 69 6E 74 09 09 65 71 75 09 63 68 61 72 6D 61 70 int..equ.charmap
008360: 2B 26 38 30 30 0D 0A 2E 62 6F 6C 64 66 69 6E 74 +&800...boldfint
008370: 32 09 09 65 71 75 09 62 6F 6C 64 66 69 6E 74 20 2..equ.boldfint
008380: 2F 20 26 31 30 30 0D 0A 0D 0A 2E 6B 6D 5F 77 61 / &100.....km_wa
008390: 69 74 5F 63 68 61 72 09 09 65 71 75 09 26 62 62 it_char..equ.&bb
0083A0: 30 36 0D 0A 2E 6B 6D 5F 72 65 61 64 5F 63 68 61 06...km_read_cha
0083B0: 72 09 09 65 71 75 09 26 62 62 30 39 0D 0A 2E 4D r..equ.&bb09...M
0083C0: 43 5F 57 41 49 54 5F 46 4C 59 42 41 43 4B 09 45 C_WAIT_FLYBACK.E
0083D0: 51 55 09 26 42 44 31 39 0D 0A 2E 53 43 52 5F 53 QU.&BD19...SCR_S
0083E0: 45 54 5F 49 4E 4B 09 09 45 51 55 09 26 42 43 33 ET_INK..EQU.&BC3
0083F0: 32 0D 0A 2E 4D 43 5F 57 41 49 54 5F 46 4C 59 42 2...MC_WAIT_FLYB
008400: 41 43 4B 09 45 51 55 09 26 42 44 31 39 0D 0A 2E ACK.EQU.&BD19...
008410: 4B 4C 5F 44 49 53 41 52 4D 5F 45 56 45 4E 54 09 KL_DISARM_EVENT.
008420: 45 51 55 09 26 42 44 30 41 0D 0A 2E 4B 4C 5F 44 EQU.&BD0A...KL_D
008430: 45 4C 5F 46 52 41 4D 45 5F 46 4C 59 09 45 51 55 EL_FRAME_FLY.EQU
008440: 09 26 42 43 44 44 0D 0A 2E 4B 4C 5F 4E 45 57 5F .&BCDD...KL_NEW_
008450: 46 52 41 4D 45 5F 46 4C 59 09 45 51 55 09 26 42 FRAME_FLY.EQU.&B
008460: 43 44 37 0D 0A 2E 4B 4C 5F 44 45 4C 5F 46 41 53 CD7...KL_DEL_FAS
008470: 54 5F 54 49 43 4B 45 52 09 45 51 55 09 26 42 43 T_TICKER.EQU.&BC
008480: 45 36 0D 0A 2E 4B 4C 5F 4E 45 57 5F 46 41 53 54 E6...KL_NEW_FAST
008490: 5F 54 49 43 4B 45 52 09 45 51 55 09 26 42 43 45 _TICKER.EQU.&BCE
0084A0: 30 0D 0A 2E 4B 4C 5F 41 44 44 5F 54 49 43 4B 45 0...KL_ADD_TICKE
0084B0: 52 09 09 45 51 55 09 26 42 43 45 39 0D 0A 2E 4B R..EQU.&BCE9...K
0084C0: 4C 5F 44 45 4C 5F 54 49 43 4B 45 52 09 09 45 51 L_DEL_TICKER..EQ
0084D0: 55 09 26 42 43 45 43 0D 0A 2E 4B 4C 5F 49 4E 54 U.&BCEC...KL_INT
0084E0: 5F 45 56 45 4E 54 09 09 45 51 55 09 26 42 43 45 _EVENT..EQU.&BCE
0084F0: 46 0D 0A 2E 4B 4D 5F 41 52 4D 5F 42 52 45 41 4B F...KM_ARM_BREAK
008500: 53 09 09 45 51 55 09 26 42 42 34 35 0D 0A 2E 4B S..EQU.&BB45...K
008510: 4D 5F 53 45 54 5F 52 45 50 45 41 54 09 09 45 51 M_SET_REPEAT..EQ
008520: 55 09 26 42 42 33 39 0D 0A 2E 4B 4D 5F 49 4E 49 U.&BB39...KM_INI
008530: 54 09 09 45 51 55 09 26 42 42 30 30 0D 0A 2E 43 T..EQU.&BB00...C
008540: 41 53 5F 43 41 54 41 4C 4F 55 47 45 09 09 45 51 AS_CATALOUGE..EQ
008550: 55 09 26 42 43 39 42 0D 0A 2E 43 41 53 5F 49 4E U.&BC9B...CAS_IN
008560: 5F 4F 50 45 4E 09 09 45 51 55 09 26 42 43 37 37 _OPEN..EQU.&BC77
008570: 0D 0A 2E 43 41 53 5F 49 4E 5F 43 4C 4F 53 45 09 ...CAS_IN_CLOSE.
008580: 09 45 51 55 09 26 42 43 37 41 0D 0A 2E 43 41 53 .EQU.&BC7A...CAS
008590: 5F 49 4E 5F 41 42 41 4E 44 4F 4E 09 09 45 51 55 _IN_ABANDON..EQU
0085A0: 09 26 42 43 37 44 0D 0A 2E 43 41 53 5F 49 4E 5F .&BC7D...CAS_IN_
0085B0: 43 48 41 52 09 09 45 51 55 09 26 42 43 38 30 0D CHAR..EQU.&BC80.
0085C0: 0A 2E 43 41 53 5F 49 4E 5F 44 49 52 45 43 54 09 ..CAS_IN_DIRECT.
0085D0: 09 45 51 55 09 26 42 43 38 33 0D 0A 2E 43 41 53 .EQU.&BC83...CAS
0085E0: 5F 54 45 53 54 5F 45 4F 46 09 09 45 51 55 09 26 _TEST_EOF..EQU.&
0085F0: 42 43 38 39 0D 0A 2E 43 41 53 5F 4F 55 54 5F 4F BC89...CAS_OUT_O
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 4E E5 07 00 C1 02 00 00 00 02 ......N.........
008620: 07 00 C2 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008630: 07 00 C4 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008640: 07 00 C6 02 00 00 00 02 07 00 C7 02 00 00 00 02 ................
008650: 07 00 C8 02 00 00 00 02 07 00 C9 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 50 45 4E 09 09 45 51 55 09 26 42 43 38 43 0D 0A PEN..EQU.&BC8C..
008710: 2E 43 41 53 5F 4F 55 54 5F 43 4C 4F 53 45 09 09 .CAS_OUT_CLOSE..
008720: 45 51 55 09 26 42 43 38 46 0D 0A 2E 43 41 53 5F EQU.&BC8F...CAS_
008730: 4F 55 54 5F 41 42 41 4E 44 4F 4E 09 45 51 55 09 OUT_ABANDON.EQU.
008740: 26 42 43 39 32 0D 0A 2E 43 41 53 5F 4F 55 54 5F &BC92...CAS_OUT_
008750: 43 48 41 52 09 09 45 51 55 09 26 42 43 39 35 0D CHAR..EQU.&BC95.
008760: 0A 2E 43 41 53 5F 4F 55 54 5F 44 49 52 45 43 54 ..CAS_OUT_DIRECT
008770: 09 09 45 51 55 09 26 42 43 39 38 0D 0A 2E 53 4F ..EQU.&BC98...SO
008780: 55 4E 44 5F 52 45 53 45 54 09 09 45 51 55 09 26 UND_RESET..EQU.&
008790: 42 43 41 41 0D 0A 0D 0A 0D 0A 2E 54 49 4D 45 4C BCAA.......TIMEL
0087A0: 49 4E 45 0D 0A 62 79 74 65 20 22 20 41 4E 53 49 INE..byte " ANSI
0087B0: 20 54 45 52 4D 49 4E 41 4C 20 20 20 44 69 61 6C TERMINAL Dial
0087C0: 20 20 20 20 20 46 69 6C 65 73 20 20 20 20 20 42 Files B
0087D0: 75 66 66 65 72 20 20 20 20 20 44 69 72 65 63 74 uffer Direct
0087E0: 6F 72 79 20 20 20 20 20 50 72 69 6E 74 20 20 20 ory Print
0087F0: 20 20 53 65 74 75 70 20 20 20 20 22 2C 30 0D 0A Setup ",0..
008800: 0D 0A 2E 54 49 4D 45 33 30 30 09 09 42 59 54 45 ...TIME300..BYTE
008810: 20 30 0D 0A 2E 43 55 53 5F 53 50 09 09 09 57 4F 0...CUS_SP...WO
008820: 52 44 20 30 0D 0A 2E 4D 63 75 72 59 09 42 59 54 RD 0...McurY.BYT
008830: 45 20 30 0D 0A 2E 43 6F 6D 09 09 09 42 59 54 45 E 0...Com...BYTE
008840: 20 30 0D 0A 2E 59 09 09 09 42 59 54 45 20 30 0D 0...Y...BYTE 0.
008850: 0A 2E 58 09 09 09 42 59 54 45 20 30 0D 0A 2E 52 ..X...BYTE 0...R
008860: 4C 5F 4F 46 46 53 45 54 09 09 57 4F 52 44 20 30 L_OFFSET..WORD 0
008870: 0D 0A 2E 57 49 4E 41 44 44 09 09 09 57 4F 52 44 ...WINADD...WORD
008880: 20 30 0D 0A 2E 57 49 4E 58 59 09 09 09 57 4F 52 0...WINXY...WOR
008890: 44 20 30 0D 0A 2E 57 49 4E 57 49 44 54 48 09 09 D 0...WINWIDTH..
0088A0: 42 59 54 45 20 30 0D 0A 2E 57 49 4E 44 4F 57 43 BYTE 0...WINDOWC
0088B0: 48 41 52 09 09 44 45 46 53 20 38 0D 0A 2E 54 49 HAR..DEFS 8...TI
0088C0: 4D 45 52 09 09 09 42 59 54 45 20 30 0D 0A 2E 53 MER...BYTE 0...S
0088D0: 45 43 4F 4E 44 09 09 09 42 59 54 45 20 30 0D 0A ECOND...BYTE 0..
0088E0: 2E 4D 49 4E 09 09 09 42 59 54 45 20 30 0D 0A 2E .MIN...BYTE 0...
0088F0: 48 4F 55 52 09 09 09 42 59 54 45 20 30 0D 0A 2E HOUR...BYTE 0...
008900: 4C 41 53 54 5F 53 54 41 54 45 09 09 42 59 54 45 LAST_STATE..BYTE
008910: 20 30 0D 0A 2E 46 6C 79 63 6F 75 6E 74 09 09 42 0...Flycount..B
008920: 59 54 45 20 30 0D 0A 2E 4F 75 74 70 75 74 4C 6F YTE 0...OutputLo
008930: 77 20 20 09 09 42 59 54 45 20 30 0D 0A 2E 4F 75 w ..BYTE 0...Ou
008940: 74 70 75 74 48 69 67 68 09 09 42 59 54 45 20 30 tputHigh..BYTE 0
008950: 0D 0A 2E 49 6E 70 75 74 48 69 67 68 09 09 57 4F ...InputHigh..WO
008960: 52 44 20 52 5F 42 55 46 46 45 52 5F 53 54 41 52 RD R_BUFFER_STAR
008970: 54 0D 0A 2E 49 6E 70 75 74 4C 6F 77 09 09 57 4F T...InputLow..WO
008980: 52 44 20 52 5F 42 55 46 46 45 52 5F 53 54 41 52 RD R_BUFFER_STAR
008990: 54 0D 0A 2E 54 49 43 4B 42 4C 09 09 09 52 4D 45 T...TICKBL...RME
0089A0: 4D 09 36 0D 0A 2E 45 56 45 4E 54 09 09 09 52 4D M.6...EVENT...RM
0089B0: 45 4D 20 09 31 30 0D 0A 2E 46 72 65 65 09 09 09 EM .10...Free...
0089C0: 44 45 46 53 20 31 30 0D 0A 2E 43 75 72 73 6F 72 DEFS 10...Cursor
0089D0: 62 6C 6F 63 6B 20 09 09 44 45 46 53 20 31 30 0D block ..DEFS 10.
0089E0: 0A 2E 43 75 72 73 6F 72 6F 6E 09 09 42 59 54 45 ..Cursoron..BYTE
0089F0: 20 30 0D 0A 2E 43 75 72 73 6F 72 63 6F 75 6E 74 0...Cursorcount
008A00: 09 09 42 59 54 45 20 30 0D 0A 2E 4C 41 53 54 4B ..BYTE 0...LASTK
008A10: 45 59 09 09 42 59 54 45 20 30 0D 0A 2E 44 45 4C EY..BYTE 0...DEL
008A20: 43 48 41 52 09 09 42 59 54 45 20 22 5F 22 0D 0A CHAR..BYTE "_"..
008A30: 2E 4B 45 59 5F 4F 4C 44 53 54 09 09 57 4F 52 44 .KEY_OLDST..WORD
008A40: 20 30 0D 0A 2E 4B 45 59 5F 53 54 43 55 52 09 09 0...KEY_STCUR..
008A50: 57 4F 52 44 20 30 0D 0A 2E 4B 45 59 5F 4F 4C 44 WORD 0...KEY_OLD
008A60: 43 55 52 09 09 57 4F 52 44 20 30 0D 0A 2E 50 6F CUR..WORD 0...Po
008A70: 72 74 09 09 09 57 4F 52 44 20 26 46 41 44 44 0D rt...WORD &FADD.
008A80: 0A 2E 43 6C 6F 63 6B 78 79 09 09 57 4F 52 44 20 ..Clockxy..WORD
008A90: 26 36 30 30 0D 0A 2E 43 41 44 44 09 09 09 57 4F &600...CADD...WO
008AA0: 52 44 20 30 0D 0A 2E 4E 55 4D 42 55 46 20 09 09 RD 0...NUMBUF ..
008AB0: 44 45 46 53 20 39 0D 0A 2E 53 4D 4A 50 09 09 09 DEFS 9...SMJP...
008AC0: 57 4F 52 44 20 26 43 41 37 32 0D 0A 2E 53 4D 52 WORD &CA72...SMR
008AD0: 4F 4D 09 09 09 42 59 54 45 20 37 09 0D 0A 2E 43 OM...BYTE 7....C
008AE0: 75 72 73 6F 72 5F 53 74 61 72 74 09 09 57 4F 52 ursor_Start..WOR
008AF0: 44 20 30 0D 0A 2E 44 4C 42 75 66 09 09 09 52 4D D 0...DLBuf...RM
008B00: 45 4D 20 38 0D 0A 2E 44 4C 5F 43 75 72 73 6F 72 EM 8...DL_Cursor
008B10: 59 09 09 42 59 54 45 20 30 0D 0A 2E 41 4E 59 33 Y..BYTE 0...ANY3
008B20: 09 09 09 42 59 54 45 20 31 30 2C 31 30 2C 31 33 ...BYTE 10,10,13
008B30: 0D 0A 2E 50 72 65 73 73 09 09 09 42 59 54 45 20 ...Press...BYTE
008B40: 26 38 30 2C 26 38 31 2C 22 20 50 72 65 73 73 20 &80,&81," Press
008B50: 61 6E 79 20 6B 65 79 20 22 2C 26 38 30 2C 30 0D any key ",&80,0.
008B60: 0A 2E 44 52 49 56 45 41 09 09 09 53 54 52 20 22 ..DRIVEA...STR "
008B70: 41 22 0D 0A 2E 44 52 49 56 45 42 09 09 09 53 54 A"...DRIVEB...ST
008B80: 52 20 22 42 22 0D 0A 2E 44 52 49 56 45 53 09 09 R "B"...DRIVES..
008B90: 09 42 59 54 45 20 30 0D 0A 2E 47 45 54 44 52 53 .BYTE 0...GETDRS
008BA0: 54 41 54 09 09 57 4F 52 44 20 26 43 36 33 30 3A TAT..WORD &C630:
008BB0: 42 59 54 45 20 37 0D 0A 2E 55 53 45 52 44 4F 53 BYTE 7...USERDOS
008BC0: 20 09 09 42 59 54 45 20 30 2C 30 0D 0A 0D 0A 0D ..BYTE 0,0.....
008BD0: 0A 2E 45 4E 54 42 4C 4B 09 09 09 42 59 54 45 20 ..ENTBLK...BYTE
008BE0: 35 0D 0A 09 09 09 42 59 54 45 20 31 2C 35 2C 31 5.....BYTE 1,5,1
008BF0: 0D 0A 09 09 09 42 59 54 45 20 31 2C 30 2C 33 30 .....BYTE 1,0,30
008C00: 0D 0A 09 09 09 42 59 54 45 20 31 2C 2D 31 30 2C .....BYTE 1,-10,
008C10: 31 0D 0A 09 09 09 42 59 54 45 20 31 2C 30 2C 33 1.....BYTE 1,0,3
008C20: 30 0D 0A 09 09 09 42 59 54 45 20 31 2C 35 2C 31 0.....BYTE 1,5,1
008C30: 0D 0A 2E 53 4F 55 4E 44 42 4C 4B 09 09 42 59 54 ...SOUNDBLK..BYT
008C40: 45 20 37 2C 30 2C 31 0D 0A 09 09 09 57 4F 52 44 E 7,0,1.....WORD
008C50: 20 31 32 35 0D 0A 09 09 09 42 59 54 45 20 30 2C 125.....BYTE 0,
008C60: 31 35 0D 0A 09 09 09 57 4F 52 44 20 33 30 30 0D 15.....WORD 300.
008C70: 0A 70 72 65 66 69 78 5F 6C 65 6E 09 09 62 79 74 .prefix_len..byt
008C80: 65 20 34 0D 0A 2E 64 69 61 6C 70 72 65 66 69 78 e 4...dialprefix
008C90: 09 09 62 79 74 65 20 22 41 54 44 54 20 20 20 20 ..byte "ATDT
008CA0: 20 20 20 20 20 20 20 20 22 0D 0A 09 09 09 20 20 ".....
008CB0: 20 20 20 3B 31 32 33 34 35 36 37 38 39 30 31 32 ;123456789012
008CC0: 33 34 35 36 0D 0A 0D 0A 2E 45 58 50 41 4E 44 5F 3456.....EXPAND_
008CD0: 53 54 41 52 54 0D 0A 3B 09 20 20 20 20 20 22 31 START..;. "1
008CE0: 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 2345678901234567
008CF0: 38 39 30 31 32 33 34 35 22 0D 0A 2E 46 4B 30 09 89012345"...FK0.
008D00: 42 59 54 45 20 22 30 22 2C 30 2C 22 20 20 20 20 BYTE "0",0,"
008D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008D20: 20 20 20 22 2C 30 0D 0A 2E 46 4B 31 09 42 59 54 ",0...FK1.BYT
008D30: 45 20 22 31 22 2C 30 2C 22 20 20 20 20 20 20 20 E "1",0,"
008D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008D50: 22 2C 30 0D 0A 2E 46 4B 32 09 42 59 54 45 20 22 ",0...FK2.BYTE "
008D60: 32 22 2C 30 2C 22 20 20 20 20 20 20 20 20 20 20 2",0,"
008D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 30 ",0
008D80: 0D 0A 2E 46 4B 33 09 42 59 54 45 20 22 33 22 2C ...FK3.BYTE "3",
008D90: 30 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 0,"
008DA0: 20 20 20 20 20 20 20 20 20 20 22 2C 30 0D 0A 2E ",0...
008DB0: 46 4B 34 09 42 59 54 45 20 22 34 22 2C 30 2C 22 FK4.BYTE "4",0,"
008DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008DD0: 20 20 20 20 20 20 20 22 2C 30 0D 0A 2E 46 4B 35 ",0...FK5
008DE0: 09 42 59 54 45 20 22 35 22 2C 30 2C 22 20 20 20 .BYTE "5",0,"
008DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008E00: 20 20 20 20 22 2C 30 0D 0A 2E 46 4B 36 09 42 59 ",0...FK6.BY
008E10: 54 45 20 22 36 22 2C 30 2C 22 20 20 20 20 20 20 TE "6",0,"
008E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008E30: 20 22 2C 30 0D 0A 2E 46 4B 37 09 42 59 54 45 20 ",0...FK7.BYTE
008E40: 22 37 22 2C 30 2C 22 20 20 20 20 20 20 20 20 20 "7",0,"
008E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C ",
008E60: 30 0D 0A 2E 46 4B 38 09 42 59 54 45 20 22 38 22 0...FK8.BYTE "8"
008E70: 2C 30 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 ,0,"
008E80: 20 20 20 20 20 20 20 20 20 20 20 22 2C 30 0D 0A ",0..
008E90: 2E 46 4B 39 09 42 59 54 45 20 22 39 22 2C 30 2C .FK9.BYTE "9",0,
008EA0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
008EB0: 20 20 20 20 20 20 20 20 22 2C 30 0D 0A 0D 0A 1A ",0.....
008EC0: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
008ED0: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
008EE0: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
008EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008F00: 81 81 FF FE 38 7C 10 00 FF 3C C3 07 66 33 63 5A ....8|...<..f3cZ
008F10: E0 0E 3C 66 DB 63 00 3C 3C 18 18 30 00 24 18 FF ..<f.c.<<..0.$..
008F20: 00 18 6C 6C 7C C6 6C 60 30 30 66 30 00 00 00 0C ..ll|.l`00f0....
008F30: C6 70 CC CC 3C C0 60 CC CC CC 30 30 30 00 30 CC .p..<.`...000.0.
008F40: C6 78 66 66 6C 62 62 66 CC 30 0C 66 60 EE E6 6C .xfflbbf.0.f`..l
008F50: 66 CC 66 CC B4 CC CC C6 C6 CC C6 60 60 18 38 00 f.f........``.8.
008F60: 30 00 60 00 0C 00 6C 00 60 00 00 60 30 00 00 00 0.`...l.`..`0...
008F70: 00 00 00 00 30 00 00 00 00 00 00 30 18 30 DC 10 ....0......0.0..
008F80: 00 A5 DB FE 7C 38 38 18 E7 66 99 0F 66 3F 7F 3C ....|88..f..f?.<
008F90: F8 3E 7E 66 DB 38 00 7E 7E 18 0C 60 C0 66 3C FF .>~f.8.~~..`.f<.
008FA0: 00 10 28 FE 90 08 50 80 40 04 38 10 00 00 00 08 ..(...P.@.8.....
008FB0: 8A 10 04 02 24 FC 80 04 82 82 10 10 20 FE 08 04 ....$....... ...
008FC0: 9A 82 42 80 42 80 80 80 82 10 08 88 80 AA A2 82 ..B.B...........
008FD0: 82 82 82 80 10 82 82 82 28 44 08 20 20 08 44 00 ........(D. .D.
008FE0: 08 78 B8 78 74 78 20 74 F8 30 08 84 20 EC B8 78 .x.xtx t.0.. ..x
008FF0: B8 74 B8 7C F8 84 84 82 84 84 FC 20 10 08 0C 28 .t.|....... ...(
009000: 81 A5 DB FE 7C 38 38 18 E7 66 99 0F 66 3F 7F 3C ....|88..f..f?.<
009010: F8 3E 7E 66 DB 38 00 7E 7E 18 0C 60 C0 66 3C FF .>~f.8.~~..`.f<.
009020: 00 18 6C FE C0 CC 38 C0 60 18 3C 30 00 00 00 18 ..l...8.`.<0....
009030: CE 30 0C 0C 6C F8 C0 0C CC CC 30 30 60 FC 18 0C .0..l.....00`...
009040: DE CC 66 C0 66 68 68 C0 CC 30 0C 6C 60 FE F6 C6 ..f.fhh..0.l`...
009050: 66 CC 66 E0 30 CC CC C6 6C CC 8C 60 30 18 6C 00 f.f.0...l..`0.l.
009060: 18 78 60 78 0C 78 60 76 6C 70 0C 66 30 CC F8 78 .x`x.x`vlp.f0..x
009070: DC 76 DC 7C 7C CC CC C6 C6 CC FC 30 18 30 00 38 .v.||......0.0.8
009080: 00 81 FF FE FE FE 7C 3C C3 42 BD 7D 66 30 63 E7 ......|<.B.}f0c.
009090: FE FE 18 66 7B 6C 00 18 18 18 FE FE C0 FF 7E 7E ...f{l........~~
0090A0: 00 10 00 28 7C 10 20 00 40 04 FE FE 00 FE 00 10 ...(|. .@.......
0090B0: 92 10 38 3C 44 02 FC 08 7C 7E 10 10 40 00 04 08 ..8<D...|~..@...
0090C0: AA FE 7C 80 42 FC FC 8E FE 10 08 F0 80 92 92 82 ..|.B...........
0090D0: FC 82 FC 7C 10 82 82 92 10 28 10 20 10 08 00 00 ...|.....(. ....
0090E0: 00 04 C4 84 8C 84 F8 8C 84 10 08 88 20 92 C4 84 ............ ...
0090F0: C4 8C C4 80 20 84 84 82 48 84 08 C0 00 06 00 44 .... ...H......D
009100: 31 20 70 72 69 6E 74 20 22 58 6D 6F 64 65 6D 22 1 print "Xmodem"
009110: 0D 0A 09 0D 0A 53 4F 48 09 45 51 55 09 31 0D 0A .....SOH.EQU.1..
009120: 45 4F 54 09 45 51 55 09 34 0D 0A 41 43 4B 09 45 EOT.EQU.4..ACK.E
009130: 51 55 09 36 0D 0A 4E 41 4B 09 45 51 55 09 26 31 QU.6..NAK.EQU.&1
009140: 35 0D 0A 43 41 4E 09 45 51 55 09 26 31 38 0D 0A 5..CAN.EQU.&18..
009150: 53 54 58 09 45 51 55 09 32 0D 0A 0D 0A 2E 46 49 STX.EQU.2.....FI
009160: 4C 45 5F 42 4F 52 44 45 52 0D 0A 42 59 54 45 20 LE_BORDER..BYTE
009170: 32 34 2C 32 32 0D 0A 42 59 54 45 20 33 0D 0A 42 24,22..BYTE 3..B
009180: 59 54 45 20 33 30 0D 0A 42 59 54 45 20 31 2C 30 YTE 30..BYTE 1,0
009190: 0D 0A 42 59 54 45 20 32 35 2C 32 33 0D 0A 57 4F ..BYTE 25,23..WO
0091A0: 52 44 20 30 3A 42 59 54 45 20 30 0D 0A 42 59 54 RD 0:BYTE 0..BYT
0091B0: 45 09 22 20 46 69 6C 65 6E 61 6D 65 20 3A 22 2C E." Filename :",
0091C0: 30 0D 0A 0D 0A 2E 58 6D 6F 64 65 6D 5F 53 74 61 0.....Xmodem_Sta
0091D0: 72 74 09 45 51 55 09 52 5F 42 75 66 66 65 72 5F rt.EQU.R_Buffer_
0091E0: 53 74 61 72 74 2B 26 34 30 30 0D 0A 2E 58 6D 6F Start+&400...Xmo
0091F0: 64 65 6D 5F 45 6E 64 09 45 51 55 09 52 5F 42 75 dem_End.EQU.R_Bu
009200: 66 66 65 72 5F 45 6E 64 0D 0A 2E 58 6D 6F 64 65 ffer_End...Xmode
009210: 6D 5F 45 6E 64 32 09 45 51 55 09 58 6D 6F 64 65 m_End2.EQU.Xmode
009220: 6D 5F 45 6E 64 20 2F 20 26 31 30 30 0D 0A 2E 58 m_End / &100...X
009230: 6D 6F 64 65 6D 5F 53 74 61 72 74 32 09 45 51 55 modem_Start2.EQU
009240: 09 58 6D 6F 64 65 6D 5F 53 74 61 72 74 20 2F 20 .Xmodem_Start /
009250: 26 31 30 30 0D 0A 0D 0A 3B 2A 2A 2A 2A 2A 2A 2A &100....;*******
009260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009270: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A 2E 58 4D 4F ********.....XMO
009280: 44 45 4D 5F 51 55 49 54 32 0D 0A 20 09 43 41 4C DEM_QUIT2.. .CAL
009290: 4C 20 57 49 4E 44 4F 57 5F 50 41 47 45 09 09 3B L WINDOW_PAGE..;
0092A0: 70 72 69 6E 74 20 70 61 67 65 0D 0A 09 43 41 4C print page...CAL
0092B0: 4C 20 50 52 49 4E 54 5F 44 41 54 41 5F 43 55 52 L PRINT_DATA_CUR
0092C0: 53 4F 52 0D 0A 09 4C 44 20 41 2C 26 46 46 0D 0A SOR...LD A,&FF..
0092D0: 09 52 45 54 0D 0A 0D 0A 2E 58 4D 4F 44 45 4D 5F .RET.....XMODEM_
0092E0: 51 55 49 54 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 QUIT...CALL WIND
0092F0: 4F 57 5F 57 49 50 45 0D 0A 09 4C 44 20 41 2C 26 OW_WIPE...LD A,&
009300: 46 45 0D 0A 09 52 45 54 0D 0A 2E 54 52 46 49 4C FE...RET...TRFIL
009310: 45 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 49 4E 5F E...CALL CAS_IN_
009320: 41 42 41 4E 44 4F 4E 0D 0A 09 4C 44 20 41 2C 31 ABANDON...LD A,1
009330: 0D 0A 09 4C 44 20 28 42 4C 4F 43 4B 29 2C 41 0D ...LD (BLOCK),A.
009340: 0A 09 4C 44 20 48 4C 2C 31 0D 0A 09 4C 44 20 28 ..LD HL,1...LD (
009350: 4E 55 4D 4F 46 42 4C 4F 43 4B 29 2C 48 4C 0D 0A NUMOFBLOCK),HL..
009360: 09 4C 44 20 48 4C 2C 30 09 0D 0A 09 4C 44 20 28 .LD HL,0....LD (
009370: 42 59 54 45 53 29 2C 48 4C 09 09 09 3B 20 4E 6F BYTES),HL...; No
009380: 20 6C 65 6E 67 74 68 0D 0A 0D 0A 09 58 4F 52 20 length.....XOR
009390: 41 0D 0A 09 4C 44 20 28 54 45 6E 64 5F 46 6C 61 A...LD (TEnd_Fla
0093A0: 67 29 2C 41 0D 0A 0D 0A 20 09 43 41 4C 4C 20 4F g),A.... .CALL O
0093B0: 50 45 4E 5F 46 49 4C 45 0D 0A 20 20 20 20 20 20 PEN_FILE..
0093C0: 20 20 43 50 20 26 46 43 0D 0A 09 4A 50 20 5A 2C CP &FC...JP Z,
0093D0: 58 4D 4F 44 45 4D 5F 51 55 49 54 32 0D 0A 09 50 XMODEM_QUIT2...P
0093E0: 55 53 48 20 49 58 0D 0A 09 43 41 4C 4C 20 43 41 USH IX...CALL CA
0093F0: 53 5F 49 4E 5F 4F 50 45 4E 09 09 3B 20 4F 70 65 S_IN_OPEN..; Ope
009400: 6E 20 66 69 6C 65 0D 0A 09 50 4F 50 20 49 58 0D n file...POP IX.
009410: 0A 09 4A 50 20 4E 43 2C 57 69 6E 64 6F 77 5F 70 ..JP NC,Window_p
009420: 61 67 65 0D 0A 0D 0A 09 4C 44 20 28 46 49 4C 45 age.....LD (FILE
009430: 48 2B 31 29 2C 48 4C 09 09 09 3B 20 53 61 76 65 H+1),HL...; Save
009440: 20 61 64 64 72 65 73 73 20 6F 66 20 62 75 66 66 address of buff
009450: 65 72 0D 0A 0D 0A 09 50 55 53 48 20 41 46 0D 0A er.....PUSH AF..
009460: 0D 0A 09 43 41 4C 4C 20 53 45 54 5F 43 48 45 43 ...CALL SET_CHEC
009470: 4B 53 55 4D 0D 0A 0D 0A 09 50 4F 50 20 41 46 0D KSUM.....POP AF.
009480: 0A 0D 0A 09 43 50 20 26 31 36 0D 0A 09 4A 52 20 ....CP &16...JR
009490: 5A 2C 54 41 53 43 49 49 09 09 09 3B 20 41 73 63 Z,TASCII...; Asc
0094A0: 69 69 20 66 69 6C 65 0D 0A 0D 0A 09 4C 44 20 41 ii file.....LD A
0094B0: 2C 28 48 45 41 44 5F 46 4C 41 47 29 0D 0A 09 4F ,(HEAD_FLAG)...O
0094C0: 52 20 41 0D 0A 09 4A 52 20 4E 5A 2C 54 41 53 43 R A...JR NZ,TASC
0094D0: 49 49 09 09 09 3B 20 48 65 61 64 65 72 73 20 4F II...; Headers O
0094E0: 66 66 0D 0A 0D 0A 09 43 41 4C 4C 20 43 4F 4D 50 ff.....CALL COMP
0094F0: 49 4C 45 5F 48 45 41 44 44 45 52 0D 0A 09 4A 50 ILE_HEADDER...JP
009500: 20 54 41 53 43 49 0D 0A 2E 54 41 73 63 69 69 0D TASCI...TAscii.
009510: 0A 09 43 41 4C 4C 20 43 4F 4D 50 49 4C 45 5F 58 ..CALL COMPILE_X
009520: 4D 4F 44 45 4D 0D 0A 2E 54 41 53 43 49 0D 0A 09 MODEM...TASCI...
009530: 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 50 41 47 45 CALL WINDOW_PAGE
009540: 0D 0A 0D 0A 09 4C 44 20 49 58 2C 28 52 45 43 5F .....LD IX,(REC_
009550: 42 4F 52 44 45 52 29 0D 0A 20 20 20 20 20 20 20 BORDER)..
009560: 20 43 41 4C 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 CALL MBORDER...
009570: 43 41 4C 4C 20 4D 50 52 49 4E 54 09 09 09 3B 20 CALL MPRINT...;
009580: 58 6D 6F 64 65 6D 20 69 6E 66 6F 20 77 69 6E 64 Xmodem info wind
009590: 6F 77 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 ow.. LD A
0095A0: 2C 28 57 52 49 54 45 5F 49 4E 46 4F 29 0D 0A 09 ,(WRITE_INFO)...
0095B0: 4F 52 20 41 0D 0A 09 4A 50 20 4E 5A 2C 54 72 5F OR A...JP NZ,Tr_
0095C0: 77 61 69 74 0D 0A 09 4C 44 20 48 4C 2C 33 30 2A wait...LD HL,30*
0095D0: 32 35 36 2B 31 36 0D 0A 09 4C 44 20 28 59 29 2C 256+16...LD (Y),
0095E0: 48 4C 0D 0A 09 4C 44 20 48 4C 2C 28 58 54 59 50 HL...LD HL,(XTYP
0095F0: 45 29 0D 0A 09 43 41 4C 4C 20 41 4E 53 49 54 45 E)...CALL ANSITE
009600: 58 54 0D 0A 09 4A 50 20 54 72 5F 77 61 69 74 0D XT...JP Tr_wait.
009610: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
009620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009630: 2D 2D 2D 0D 0A 2E 54 72 5F 4C 6F 6F 70 0D 0A 09 ---...Tr_Loop...
009640: 4C 44 20 48 4C 2C 28 42 59 54 45 53 29 0D 0A 09 LD HL,(BYTES)...
009650: 4C 44 20 42 43 2C 28 54 4C 65 6E 67 74 68 29 0D LD BC,(TLength).
009660: 0A 09 41 44 44 20 48 4C 2C 42 43 0D 0A 09 4C 44 ..ADD HL,BC...LD
009670: 20 28 42 59 54 45 53 29 2C 48 4C 09 09 09 3B 49 (BYTES),HL...;I
009680: 4E 43 20 42 59 54 45 53 20 0D 0A 0D 0A 09 4C 44 NC BYTES .....LD
009690: 20 41 2C 28 42 4C 4F 43 4B 29 0D 0A 09 49 4E 43 A,(BLOCK)...INC
0096A0: 20 41 0D 0A 09 4C 44 20 28 42 4C 4F 43 4B 29 2C A...LD (BLOCK),
0096B0: 41 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 28 4E 55 4D A.....LD HL,(NUM
0096C0: 4F 46 42 4C 4F 43 4B 29 0D 0A 09 49 4E 43 20 48 OFBLOCK)...INC H
0096D0: 4C 0D 0A 09 4C 44 20 28 4E 55 4D 4F 46 42 4C 4F L...LD (NUMOFBLO
0096E0: 43 4B 29 2C 48 4C 0D 0A 0D 0A 09 43 41 4C 4C 20 CK),HL.....CALL
0096F0: 57 72 69 74 65 5F 69 6E 66 6F 0D 0A 0D 0A 09 43 Write_info.....C
009700: 41 4C 4C 20 43 4F 4D 50 49 4C 45 5F 58 4D 4F 44 ALL COMPILE_XMOD
009710: 45 4D 0D 0A 0D 0A 2E 54 72 5F 73 65 6E 64 0D 0A EM.....Tr_send..
009720: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 65 6E CALL Sen
009730: 64 5F 78 6D 6F 64 65 6D 0D 0A 09 43 41 4C 4C 20 d_xmodem...CALL
009740: 4A 53 65 6E 64 5F 43 52 43 0D 0A 09 43 41 4C 4C JSend_CRC...CALL
009750: 20 4A 53 65 6E 64 5F 43 68 65 63 6B 0D 0A 09 4C JSend_Check...L
009760: 44 20 41 2C 28 54 45 6E 64 5F 46 6C 61 67 29 0D D A,(TEnd_Flag).
009770: 0A 09 4F 52 20 41 0D 0A 09 4A 50 20 4E 5A 2C 53 ..OR A...JP NZ,S
009780: 45 4E 44 5F 45 4F 54 0D 0A 2E 54 72 5F 77 61 69 END_EOT...Tr_wai
009790: 74 0D 0A 09 4C 44 20 41 2C 36 30 0D 0A 09 43 41 t...LD A,60...CA
0097A0: 4C 4C 20 49 6E 70 75 74 58 6D 6F 64 65 6D 0D 0A LL InputXmodem..
0097B0: 09 4A 50 20 43 2C 53 65 6E 64 5F 46 61 74 61 6C .JP C,Send_Fatal
0097C0: 0D 0A 0D 0A 2E 54 72 5F 73 6F 72 74 0D 0A 09 43 .....Tr_sort...C
0097D0: 50 20 41 43 4B 0D 0A 09 4A 50 20 5A 2C 54 72 5F P ACK...JP Z,Tr_
0097E0: 6C 6F 6F 70 0D 0A 09 43 50 20 4E 41 4B 0D 0A 09 loop...CP NAK...
0097F0: 4A 50 20 5A 2C 54 72 5F 73 65 6E 64 0D 0A 09 43 JP Z,Tr_send...C
009800: 50 20 43 41 4E 0D 0A 09 4A 50 20 5A 2C 46 61 74 P CAN...JP Z,Fat
009810: 61 6C 5F 65 72 72 6F 72 0D 0A 09 43 50 20 22 43 al_error...CP "C
009820: 22 0D 0A 09 4A 50 20 4E 5A 2C 54 72 5F 77 61 69 "...JP NZ,Tr_wai
009830: 74 0D 0A 09 4F 52 20 41 0D 0A 09 43 41 4C 4C 20 t...OR A...CALL
009840: 4A 53 45 54 5F 43 52 43 0D 0A 09 4A 50 20 43 2C JSET_CRC...JP C,
009850: 54 52 5F 53 45 4E 44 09 09 3B 53 45 4E 44 20 49 TR_SEND..;SEND I
009860: 46 20 49 54 20 57 41 53 20 53 45 54 55 50 0D 0A F IT WAS SETUP..
009870: 09 4A 50 20 54 52 5F 57 41 49 54 0D 0A 0D 0A 3B .JP TR_WAIT....;
009880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4A 53 65 6E ---------...JSen
0098A0: 64 5F 43 68 65 63 6B 0D 0A 09 4E 4F 50 0D 0A 09 d_Check...NOP...
0098B0: 4C 44 20 41 2C 45 0D 0A 09 4A 50 20 4F 55 54 50 LD A,E...JP OUTP
0098C0: 55 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D UT..;-----------
0098D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E -------------...
0098E0: 4A 53 65 6E 64 5F 43 52 43 0D 0A 09 52 45 54 0D JSend_CRC...RET.
0098F0: 0A 09 58 4F 52 09 41 0D 0A 09 43 41 4C 4C 09 55 ..XOR.A...CALL.U
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 4E E5 08 00 C1 02 00 00 00 02 ......N.........
009920: 08 00 C2 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009930: 08 00 C4 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009940: 08 00 C6 02 00 00 00 02 08 00 C7 02 00 00 00 02 ................
009950: 08 00 C8 02 00 00 00 02 08 00 C9 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 50 44 41 54 45 5F 43 52 43 0D 0A 09 58 4F 52 09 PDATE_CRC...XOR.
009A10: 41 0D 0A 09 43 41 4C 4C 09 55 50 44 41 54 45 5F A...CALL.UPDATE_
009A20: 43 52 43 0D 0A 09 09 09 09 3B 20 55 70 64 61 74 CRC......; Updat
009A30: 65 20 43 52 43 0D 0A 09 4C 44 20 41 2C 44 0D 0A e CRC...LD A,D..
009A40: 09 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 4C .CALL OUTPUT...L
009A50: 44 20 41 2C 45 0D 0A 09 4A 50 20 4F 55 54 50 55 D A,E...JP OUTPU
009A60: 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D T..;------------
009A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E -------------...
009A80: 53 65 6E 64 5F 78 6D 6F 64 65 6D 0D 0A 09 4C 44 Send_xmodem...LD
009A90: 20 41 2C 28 53 4F 48 53 54 58 29 0D 0A 09 43 41 A,(SOHSTX)...CA
009AA0: 4C 4C 20 4F 55 54 50 55 54 0D 0A 0D 0A 09 4C 44 LL OUTPUT.....LD
009AB0: 20 41 2C 28 62 6C 6F 63 6B 29 0D 0A 09 43 41 4C A,(block)...CAL
009AC0: 4C 20 4F 55 54 50 55 54 0D 0A 09 43 50 4C 0D 0A L OUTPUT...CPL..
009AD0: 09 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 0D 0A .CALL OUTPUT....
009AE0: 09 4C 44 20 42 43 2C 28 54 4C 65 6E 67 74 68 29 .LD BC,(TLength)
009AF0: 0D 0A 09 4C 44 20 48 4C 2C 58 6D 6F 64 65 6D 0D ...LD HL,Xmodem.
009B00: 0A 09 4C 44 20 44 45 2C 30 0D 0A 2E 53 58 5F 6C ..LD DE,0...SX_l
009B10: 6F 6F 70 0D 0A 09 4C 44 20 41 2C 28 48 4C 29 0D oop...LD A,(HL).
009B20: 0A 09 49 4E 43 20 48 4C 0D 0A 09 43 41 4C 4C 20 ..INC HL...CALL
009B30: 4F 55 54 50 55 54 0D 0A 0D 0A 09 43 41 4C 4C 20 OUTPUT.....CALL
009B40: 4A 55 50 44 41 54 45 5F 43 48 45 43 4B 0D 0A 09 JUPDATE_CHECK...
009B50: 43 41 4C 4C 20 4A 55 50 44 41 54 45 5F 43 52 43 CALL JUPDATE_CRC
009B60: 0D 0A 0D 0A 09 44 45 43 20 42 43 0D 0A 09 4C 44 .....DEC BC...LD
009B70: 20 41 2C 42 0D 0A 09 4F 52 20 43 0D 0A 09 4A 52 A,B...OR C...JR
009B80: 20 4E 5A 2C 53 58 5F 4C 6F 6F 70 0D 0A 09 52 45 NZ,SX_Loop...RE
009B90: 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D T....;----------
009BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009BB0: 2D 2D 2D 0D 0A 2E 43 6F 6D 70 69 6C 65 5F 48 65 ---...Compile_He
009BC0: 61 64 64 65 72 0D 0A 09 4C 44 20 48 4C 2C 28 54 adder...LD HL,(T
009BD0: 4C 65 6E 67 74 68 29 0D 0A 09 4C 44 20 42 43 2C Length)...LD BC,
009BE0: 31 32 38 0D 0A 20 20 20 20 20 20 20 20 4F 52 20 128.. OR
009BF0: 41 0D 0A 09 53 42 43 20 48 4C 2C 42 43 0D 0A 09 A...SBC HL,BC...
009C00: 50 55 53 48 20 48 4C 09 09 09 3B 20 53 61 76 65 PUSH HL...; Save
009C10: 20 6C 65 6E 67 74 68 0D 0A 2E 46 49 4C 45 48 09 length...FILEH.
009C20: 4C 44 20 48 4C 2C 30 20 20 20 20 20 09 09 3B 20 LD HL,0 ..;
009C30: 46 69 6C 65 20 48 3D 61 64 64 72 65 73 73 0D 0A File H=address..
009C40: 09 4C 44 20 44 45 2C 58 6D 6F 64 65 6D 09 09 3B .LD DE,Xmodem..;
009C50: 20 44 65 73 74 0D 0A 09 4C 44 20 42 43 2C 31 32 Dest...LD BC,12
009C60: 38 09 09 3B 20 4C 65 6E 67 74 68 20 66 6F 72 20 8..; Length for
009C70: 31 32 38 20 62 79 74 65 73 20 6F 66 20 68 65 61 128 bytes of hea
009C80: 64 65 72 0D 0A 09 4C 44 49 52 09 09 09 3B 20 63 der...LDIR...; c
009C90: 6F 70 79 0D 0A 09 50 4F 50 20 42 43 09 09 09 3B opy...POP BC...;
009CA0: 20 42 43 3D 4C 65 6E 67 74 68 0D 0A 20 20 20 20 BC=Length..
009CB0: 20 20 20 20 45 58 20 48 4C 2C 44 45 09 09 3B 20 EX HL,DE..;
009CC0: 48 4C 3D 58 6D 6F 64 65 6D 2B 31 32 38 0D 0A 09 HL=Xmodem+128...
009CD0: 4A 50 20 43 58 5F 63 6F 75 6E 74 09 09 0D 0A 3B JP CX_count....;
009CE0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
009CF0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 0D 0A - - - - - - - ..
009D00: 2E 43 6F 6D 70 69 6C 65 5F 78 6D 6F 64 65 6D 0D .Compile_xmodem.
009D10: 0A 09 4C 44 20 48 4C 2C 58 6D 6F 64 65 6D 09 09 ..LD HL,Xmodem..
009D20: 3B 20 58 6D 6F 64 65 6D 0D 0A 09 4C 44 20 42 43 ; Xmodem...LD BC
009D30: 2C 28 54 4C 65 6E 67 74 68 29 0D 0A 2E 43 58 5F ,(TLength)...CX_
009D40: 6C 6F 6F 70 0D 0A 09 43 41 4C 4C 20 43 41 53 5F loop...CALL CAS_
009D50: 49 4E 5F 43 48 41 52 09 3B 20 47 65 74 20 63 68 IN_CHAR.; Get ch
009D60: 61 72 0D 0A 09 4A 50 20 43 2C 43 58 0D 0A 09 43 ar...JP C,CX...C
009D70: 50 20 26 31 41 0D 0A 09 4A 50 20 4E 5A 2C 43 6F P &1A...JP NZ,Co
009D80: 6D 70 69 6C 65 5F 70 61 63 6B 0D 0A 2E 43 58 09 mpile_pack...CX.
009D90: 4C 44 20 28 48 4C 29 2C 41 0D 0A 20 20 20 20 20 LD (HL),A..
009DA0: 20 20 20 49 4E 43 20 48 4C 0D 0A 09 44 45 43 20 INC HL...DEC
009DB0: 42 43 0D 0A 2E 43 58 5F 63 6F 75 6E 74 0D 0A 20 BC...CX_count..
009DC0: 20 20 09 4C 44 20 41 2C 42 0D 0A 09 4F 52 20 43 .LD A,B...OR C
009DD0: 0D 0A 09 4A 52 20 4E 5A 2C 43 58 5F 6C 6F 6F 70 ...JR NZ,CX_loop
009DE0: 0D 0A 09 52 45 54 0D 0A 2E 43 6F 6D 70 69 6C 65 ...RET...Compile
009DF0: 5F 70 61 63 6B 0D 0A 09 4C 44 20 28 48 4C 29 2C _pack...LD (HL),
009E00: 26 31 41 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 44 &1A...INC HL...D
009E10: 45 43 20 42 43 0D 0A 09 4C 44 20 41 2C 42 0D 0A EC BC...LD A,B..
009E20: 09 4F 52 20 43 0D 0A 09 4A 52 20 4E 5A 2C 43 6F .OR C...JR NZ,Co
009E30: 6D 70 69 6C 65 5F 70 61 63 6B 0D 0A 09 4C 44 20 mpile_pack...LD
009E40: 41 2C 26 46 46 0D 0A 09 4C 44 20 28 54 45 6E 64 A,&FF...LD (TEnd
009E50: 5F 46 6C 61 67 29 2C 41 0D 0A 09 52 45 54 0D 0A _Flag),A...RET..
009E60: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
009E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
009E80: 2E 53 65 6E 64 5F 45 4F 54 0D 0A 09 4C 44 20 41 .Send_EOT...LD A
009E90: 2C 36 30 0D 0A 09 43 41 4C 4C 20 49 6E 70 75 74 ,60...CALL Input
009EA0: 58 6D 6F 64 65 6D 0D 0A 09 4A 50 20 43 2C 53 65 Xmodem...JP C,Se
009EB0: 6E 64 5F 46 61 74 61 6C 0D 0A 09 43 50 20 4E 41 nd_Fatal...CP NA
009EC0: 4B 0D 0A 09 4A 50 20 5A 2C 54 72 5F 73 65 6E 64 K...JP Z,Tr_send
009ED0: 0D 0A 09 4C 44 20 41 2C 45 4F 54 0D 0A 09 43 41 ...LD A,EOT...CA
009EE0: 4C 4C 20 4F 55 54 50 55 54 0D 0A 20 09 4C 44 20 LL OUTPUT.. .LD
009EF0: 41 2C 36 30 0D 0A 20 09 43 41 4C 4C 20 49 6E 70 A,60.. .CALL Inp
009F00: 75 74 58 6D 6F 64 65 6D 0D 0A 20 09 4A 50 20 43 utXmodem.. .JP C
009F10: 2C 53 65 6E 64 5F 46 61 74 61 6C 0D 0A 3B 09 4C ,Send_Fatal..;.L
009F20: 44 20 41 2C 45 4F 54 0D 0A 3B 09 43 41 4C 4C 20 D A,EOT..;.CALL
009F30: 4F 55 54 50 55 54 0D 0A 3B 2D 20 20 2D 20 20 2D OUTPUT..;- - -
009F40: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 - - - - -
009F50: 20 2D 20 20 2D 0D 0A 2E 53 65 6E 64 5F 46 61 74 - -...Send_Fat
009F60: 61 6C 0D 0A 09 4C 44 20 41 2C 43 41 4E 0D 0A 09 al...LD A,CAN...
009F70: 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 43 41 CALL OUTPUT...CA
009F80: 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 43 41 4C 4C LL OUTPUT...CALL
009F90: 20 4F 55 54 50 55 54 0D 0A 09 43 41 4C 4C 20 4F OUTPUT...CALL O
009FA0: 55 54 50 55 54 0D 0A 09 43 41 4C 4C 20 4F 55 54 UTPUT...CALL OUT
009FB0: 50 55 54 0D 0A 0D 0A 2E 53 45 4E 44 5F 45 58 49 PUT.....SEND_EXI
009FC0: 54 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 49 4E 5F T...CALL CAS_IN_
009FD0: 43 4C 4F 53 45 0D 0A 09 4C 44 20 49 58 2C 28 52 CLOSE...LD IX,(R
009FE0: 45 43 5F 42 4F 52 44 45 52 29 0D 0A 09 4A 50 20 EC_BORDER)...JP
009FF0: 57 69 6E 64 6F 77 5F 77 69 70 65 0D 0A 3B 2D 2D Window_wipe..;--
00A000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00A010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A ------------....
00A020: 2E 57 52 49 54 45 5F 49 4E 46 4F 0D 0A 09 4E 4F .WRITE_INFO...NO
00A030: 50 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 50 55 P...PUSH HL...PU
00A040: 53 48 20 42 43 0D 0A 09 50 55 53 48 20 44 45 0D SH BC...PUSH DE.
00A050: 0A 09 4C 44 20 48 4C 2C 34 30 2A 32 35 36 2B 31 ..LD HL,40*256+1
00A060: 38 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 8...LD (Y),HL...
00A070: 4C 44 20 48 4C 2C 28 4E 55 4D 4F 46 42 4C 4F 43 LD HL,(NUMOFBLOC
00A080: 4B 29 0D 0A 09 43 41 4C 4C 20 4E 55 4D 42 45 52 K)...CALL NUMBER
00A090: 31 36 0D 0A 09 4C 44 20 48 4C 2C 34 30 2A 32 35 16...LD HL,40*25
00A0A0: 36 2B 31 39 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 6+19...LD (Y),HL
00A0B0: 0D 0A 09 4C 44 20 48 4C 2C 28 42 59 54 45 53 29 ...LD HL,(BYTES)
00A0C0: 0D 0A 09 43 41 4C 4C 20 4E 55 4D 42 45 52 31 36 ...CALL NUMBER16
00A0D0: 09 09 3B 50 52 49 4E 54 0D 0A 09 50 4F 50 20 44 ..;PRINT...POP D
00A0E0: 45 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 50 4F 50 E...POP BC...POP
00A0F0: 20 48 4C 0D 0A 09 52 45 54 0D 0A 3B 2D 20 2D 20 HL...RET..;- -
00A100: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00A110: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 0D - - - - - - - -.
00A120: 0A 2E 53 61 76 65 5F 58 6D 6F 64 65 6D 0D 0A 09 ..Save_Xmodem...
00A130: 4C 44 20 44 45 2C 28 52 45 43 5F 41 44 44 29 0D LD DE,(REC_ADD).
00A140: 0A 09 4C 44 20 48 4C 2C 58 4D 4F 44 45 4D 0D 0A ..LD HL,XMODEM..
00A150: 2E 53 58 31 09 4C 44 20 41 2C 28 48 4C 29 0D 0A .SX1.LD A,(HL)..
00A160: 09 49 4E 43 20 48 4C 0D 0A 09 43 41 4C 4C 20 43 .INC HL...CALL C
00A170: 41 53 5F 4F 55 54 5F 43 48 41 52 0D 0A 09 4A 50 AS_OUT_CHAR...JP
00A180: 20 4E 43 2C 46 41 54 41 4C 5F 45 52 52 4F 52 0D NC,FATAL_ERROR.
00A190: 0A 09 44 45 43 20 44 45 0D 0A 09 4C 44 20 41 2C ..DEC DE...LD A,
00A1A0: 44 0D 0A 09 4F 52 20 45 0D 0A 09 4A 52 20 4E 5A D...OR E...JR NZ
00A1B0: 2C 53 58 31 0D 0A 09 52 45 54 09 09 09 09 3B 20 ,SX1...RET....;
00A1C0: 53 61 76 65 20 62 75 66 66 65 72 20 28 31 31 4B Save buffer (11K
00A1D0: 20 77 6F 72 74 68 29 0D 0A 3B 2D 20 2D 20 2D 20 worth)..;- - -
00A1E0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00A1F0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 0D 0A 0D 0A - - - - - - ....
00A200: 2E 58 6D 6F 64 65 6D 5F 52 65 63 0D 0A 09 43 41 .Xmodem_Rec...CA
00A210: 4C 4C 20 47 45 54 5F 42 4C 4F 43 4B 0D 0A 09 52 LL GET_BLOCK...R
00A220: 45 54 20 43 0D 0A 0D 0A 09 4C 44 20 44 45 2C 30 ET C.....LD DE,0
00A230: 0D 0A 09 4C 44 20 28 52 45 43 5F 41 44 44 29 2C ...LD (REC_ADD),
00A240: 42 43 0D 0A 09 4C 44 20 48 4C 2C 58 4D 4F 44 45 BC...LD HL,XMODE
00A250: 4D 0D 0A 2E 58 31 4B 09 4C 44 20 41 2C 32 0D 0A M...X1K.LD A,2..
00A260: 20 20 20 20 20 20 09 43 41 4C 4C 20 49 6E 70 75 .CALL Inpu
00A270: 74 58 6D 6F 64 65 6D 09 0D 0A 09 52 45 54 20 43 tXmodem....RET C
00A280: 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 49 ...LD (HL),A...I
00A290: 4E 43 20 48 4C 0D 0A 0D 0A 09 43 41 4C 4C 20 4A NC HL.....CALL J
00A2A0: 55 50 44 41 54 45 5F 43 52 43 0D 0A 09 43 41 4C UPDATE_CRC...CAL
00A2B0: 4C 20 4A 55 50 44 41 54 45 5F 43 48 45 43 4B 0D L JUPDATE_CHECK.
00A2C0: 0A 0D 0A 09 44 45 43 20 42 43 0D 0A 09 4C 44 20 ....DEC BC...LD
00A2D0: 41 2C 42 0D 0A 09 4F 52 20 43 0D 0A 09 4A 50 20 A,B...OR C...JP
00A2E0: 4E 5A 2C 58 31 4B 0D 0A 09 52 45 54 0D 0A 3B 2D NZ,X1K...RET..;-
00A2F0: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D - - - - - - - -
00A300: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 0D 0A - - - - - - -..
00A310: 0D 0A 2E 47 65 74 5F 42 6C 6F 63 6B 0D 0A 09 4C ...Get_Block...L
00A320: 44 20 41 2C 32 0D 0A 09 43 41 4C 4C 20 49 6E 70 D A,2...CALL Inp
00A330: 75 74 58 6D 6F 64 65 6D 0D 0A 09 4A 50 20 43 2C utXmodem...JP C,
00A340: 47 65 74 5F 42 6C 6F 63 6B 5F 45 72 72 6F 72 0D Get_Block_Error.
00A350: 0A 09 4C 44 20 28 42 4C 4F 43 4B 29 2C 41 0D 0A ..LD (BLOCK),A..
00A360: 0D 0A 09 4C 44 20 41 2C 32 0D 0A 09 43 41 4C 4C ...LD A,2...CALL
00A370: 20 49 6E 70 75 74 58 6D 6F 64 65 6D 0D 0A 09 4A InputXmodem...J
00A380: 50 20 43 2C 47 65 74 5F 42 6C 6F 63 6B 5F 45 72 P C,Get_Block_Er
00A390: 72 6F 72 0D 0A 09 4C 44 20 28 46 46 5F 42 4C 4F ror...LD (FF_BLO
00A3A0: 43 4B 29 2C 41 0D 0A 09 4F 52 20 41 0D 0A 09 52 CK),A...OR A...R
00A3B0: 45 54 0D 0A 2E 47 65 74 5F 42 6C 6F 63 6B 5F 45 ET...Get_Block_E
00A3C0: 72 72 6F 72 0D 0A 09 53 43 46 0D 0A 09 52 45 54 rror...SCF...RET
00A3D0: 0D 0A 3B 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D ..;- - - - - - -
00A3E0: 20 2D 20 2D 20 2D 20 2D 20 2D 0D 0A 2E 50 75 72 - - - - -...Pur
00A3F0: 67 65 5F 42 75 66 66 65 72 0D 0A 09 50 55 53 48 ge_Buffer...PUSH
00A400: 20 41 46 0D 0A 2E 50 42 09 4C 44 20 41 2C 32 0D AF...PB.LD A,2.
00A410: 0A 09 43 41 4C 4C 20 49 6E 70 75 74 58 6D 6F 64 ..CALL InputXmod
00A420: 65 6D 0D 0A 09 4A 52 20 4E 43 2C 50 42 09 0D 0A em...JR NC,PB...
00A430: 09 50 4F 50 20 41 46 0D 0A 20 09 52 45 54 0D 0A .POP AF.. .RET..
00A440: 3B 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D ;- - - - - - - -
00A450: 20 2D 20 2D 20 2D 20 2D 0D 0A 2E 4A 55 50 44 41 - - - -...JUPDA
00A460: 54 45 5F 43 52 43 0D 0A 09 52 45 54 0D 0A 2E 55 TE_CRC...RET...U
00A470: 50 44 41 54 45 5F 43 52 43 0D 0A 0D 0A 3B 45 6E PDATE_CRC....;En
00A480: 74 72 79 3A 0D 0A 3B 20 42 43 20 3D 20 43 52 43 try:..; BC = CRC
00A490: 0D 0A 3B 20 41 20 3D 20 62 79 74 65 0D 0A 3B 45 ..; A = byte..;E
00A4A0: 78 69 74 3A 0D 0A 3B 20 44 45 20 3D 20 43 52 43 xit:..; DE = CRC
00A4B0: 0D 0A 3B 55 73 65 64 3A 0D 0A 3B 20 41 46 2C 44 ..;Used:..; AF,D
00A4C0: 45 2C 48 4C 0D 0A 3B 0D 0A 3B 20 54 61 62 6C 65 E,HL..;..; Table
00A4D0: 20 6D 75 73 74 20 62 65 20 70 61 67 65 20 61 6C must be page al
00A4E0: 69 67 6E 65 64 2E 20 20 4C 6F 77 20 62 79 74 65 igned. Low byte
00A4F0: 73 20 69 6E 20 66 69 72 73 74 20 70 61 72 74 2C s in first part,
00A500: 20 68 69 67 68 20 62 79 74 65 73 20 69 6E 0D 0A high bytes in..
00A510: 3B 20 73 65 63 6F 6E 64 20 70 61 72 74 2E 0D 0A ; second part...
00A520: 3B 0D 0A 50 55 53 48 20 48 4C 09 0D 0A 50 55 53 ;..PUSH HL...PUS
00A530: 48 20 42 43 0D 0A 4C 44 20 48 2C 43 72 63 54 61 H BC..LD H,CrcTa
00A540: 62 6C 65 32 09 09 3B 20 42 61 73 65 20 6F 66 20 ble2..; Base of
00A550: 74 61 62 6C 65 0D 0A 4C 44 20 4C 2C 44 09 09 09 table..LD L,D...
00A560: 3B 20 49 6E 64 65 78 20 77 69 74 68 20 74 6F 70 ; Index with top
00A570: 20 62 79 74 65 73 20 6F 66 20 6F 6C 64 20 43 52 bytes of old CR
00A580: 43 0D 0A 4C 44 20 43 2C 28 48 4C 29 09 09 3B 20 C..LD C,(HL)..;
00A590: 43 20 69 73 20 6C 6F 77 20 62 79 74 65 0D 0A 49 C is low byte..I
00A5A0: 4E 43 20 48 09 09 09 3B 20 4E 65 78 74 20 70 61 NC H...; Next pa
00A5B0: 72 74 20 6F 66 20 70 61 67 65 20 61 6C 69 67 6E rt of page align
00A5C0: 65 64 0D 0A 4C 44 20 42 2C 28 48 4C 29 09 09 3B ed..LD B,(HL)..;
00A5D0: 20 42 20 69 73 20 68 69 67 68 20 62 79 74 65 0D B is high byte.
00A5E0: 0A 0D 0A 58 4F 52 20 43 09 09 09 3B 20 58 4F 52 ...XOR C...; XOR
00A5F0: 20 6C 6F 77 65 72 20 70 61 72 74 20 6F 66 20 43 lower part of C
00A600: 52 43 20 77 69 74 68 20 64 61 74 61 0D 0A 4C 44 RC with data..LD
00A610: 20 43 2C 41 09 09 09 3B 20 70 75 74 20 62 61 63 C,A...; put bac
00A620: 6B 20 69 6E 74 6F 20 43 52 43 0D 0A 4C 44 20 41 k into CRC..LD A
00A630: 2C 45 09 09 09 3B 20 41 20 69 73 20 62 6F 74 74 ,E...; A is bott
00A640: 6F 6D 20 62 79 74 65 20 6F 66 20 43 52 43 0D 0A om byte of CRC..
00A650: 58 4F 52 20 42 09 09 09 3B 20 58 4F 52 20 77 69 XOR B...; XOR wi
00A660: 74 68 20 74 6F 70 20 70 61 72 74 20 6F 66 20 6E th top part of n
00A670: 65 77 20 43 52 43 0D 0A 4C 44 20 44 2C 41 0D 0A ew CRC..LD D,A..
00A680: 4C 44 20 45 2C 43 09 09 09 3B 20 43 52 43 20 62 LD E,C...; CRC b
00A690: 61 63 6B 20 69 6E 74 6F 20 44 45 0D 0A 50 4F 50 ack into DE..POP
00A6A0: 20 42 43 0D 0A 50 4F 50 20 48 4C 0D 0A 52 45 54 BC..POP HL..RET
00A6B0: 0D 0A 0D 0A 0D 0A 0D 0A 3B 2D 20 2D 20 2D 20 2D ........;- - - -
00A6C0: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D - - - - - - - -
00A6D0: 0D 0A 4A 43 52 43 09 0D 0A 09 52 45 54 0D 0A 09 ..JCRC....RET...
00A6E0: 58 4F 52 09 41 0D 0A 09 43 41 4C 4C 09 55 50 44 XOR.A...CALL.UPD
00A6F0: 41 54 45 5F 43 52 43 0D 0A 09 58 4F 52 09 41 0D ATE_CRC...XOR.A.
00A700: 0A 09 43 41 4C 4C 09 55 50 44 41 54 45 5F 43 52 ..CALL.UPDATE_CR
00A710: 43 0D 0A 0D 0A 09 4C 44 20 41 2C 32 0D 0A 09 43 C.....LD A,2...C
00A720: 41 4C 4C 20 49 6E 70 75 74 58 6D 6F 64 65 6D 0D ALL InputXmodem.
00A730: 0A 09 52 45 54 20 43 09 09 09 0D 0A 09 4C 44 20 ..RET C......LD
00A740: 42 2C 41 09 09 09 3B 20 43 52 43 20 48 49 0D 0A B,A...; CRC HI..
00A750: 0D 0A 09 4C 44 20 41 2C 32 0D 0A 09 43 41 4C 4C ...LD A,2...CALL
00A760: 20 49 6E 70 75 74 58 6D 6F 64 65 6D 0D 0A 09 52 InputXmodem...R
00A770: 45 54 20 43 09 09 09 3B 20 43 52 43 20 4C 4F 0D ET C...; CRC LO.
00A780: 0A 09 43 50 20 45 09 09 09 3B 20 43 50 20 43 52 ..CP E...; CP CR
00A790: 43 20 4C 4F 0D 0A 09 4A 50 20 4E 5A 2C 43 52 43 C LO...JP NZ,CRC
00A7A0: 5F 45 72 72 6F 72 0D 0A 0D 0A 09 4C 44 20 41 2C _Error.....LD A,
00A7B0: 42 0D 0A 09 43 50 20 44 09 09 09 3B 20 43 50 20 B...CP D...; CP
00A7C0: 43 52 43 20 48 49 0D 0A 09 4A 50 20 4E 5A 2C 43 CRC HI...JP NZ,C
00A7D0: 52 43 5F 45 72 72 6F 72 0D 0A 09 4F 52 20 41 0D RC_Error...OR A.
00A7E0: 0A 09 52 45 54 0D 0A 2E 43 52 43 5F 45 72 72 6F ..RET...CRC_Erro
00A7F0: 72 0D 0A 09 53 43 46 20 09 0D 0A 09 52 45 54 0D r...SCF ....RET.
00A800: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
00A810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4A 43 48 45 ---------...JCHE
00A820: 43 4B 53 55 4D 09 0D 0A 09 4E 4F 50 0D 0A 0D 0A CKSUM....NOP....
00A830: 09 4C 44 20 41 2C 32 0D 0A 09 43 41 4C 4C 20 49 .LD A,2...CALL I
00A840: 6E 70 75 74 58 6D 6F 64 65 6D 0D 0A 09 52 45 54 nputXmodem...RET
00A850: 20 43 0D 0A 09 43 50 20 45 09 09 09 3B 63 70 20 C...CP E...;cp
00A860: 63 68 65 63 6B 73 75 6D 0D 0A 09 4A 50 20 4E 5A checksum...JP NZ
00A870: 2C 43 52 43 5F 45 72 72 6F 72 09 09 3B 4A 75 73 ,CRC_Error..;Jus
00A880: 74 20 73 65 74 73 20 63 61 72 72 79 0D 0A 09 4F t sets carry...O
00A890: 52 20 41 0D 0A 09 52 45 54 0D 0A 3B 2D 20 2D 20 R A...RET..;- -
00A8A0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00A8B0: 2D 20 2D 20 0D 0A 2E 4A 55 50 44 41 54 45 5F 43 - - ...JUPDATE_C
00A8C0: 48 45 43 4B 0D 0A 09 4E 4F 50 0D 0A 09 0D 0A 09 HECK...NOP......
00A8D0: 41 44 44 20 45 0D 0A 09 4C 44 20 45 2C 41 0D 0A ADD E...LD E,A..
00A8E0: 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D .RET..;---------
00A8F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
00A900: 0A 0D 0A 2E 4A 41 53 4B 5F 43 52 43 0D 0A 09 4E ....JASK_CRC...N
00A910: 4F 50 20 20 20 20 09 0D 0A 09 4C 44 20 42 2C 33 OP ....LD B,3
00A920: 0D 0A 2E 4A 41 43 52 43 09 4C 44 20 41 2C 22 43 ...JACRC.LD A,"C
00A930: 22 0D 0A 09 43 41 4C 4C 20 4F 75 74 50 75 74 09 "...CALL OutPut.
00A940: 09 09 3B 20 53 65 6E 64 20 4E 41 4B 0D 0A 09 4C ..; Send NAK...L
00A950: 44 20 41 2C 33 09 09 09 09 3B 20 33 20 73 65 63 D A,3....; 3 sec
00A960: 73 0D 0A 09 43 41 4C 4C 20 49 6E 70 75 74 58 6D s...CALL InputXm
00A970: 6F 64 65 6D 09 09 3B 20 49 6E 70 75 74 0D 0A 09 odem..; Input...
00A980: 4A 52 20 4E 43 2C 53 45 54 5F 43 52 43 09 09 09 JR NC,SET_CRC...
00A990: 3B 20 49 66 20 61 20 63 68 61 72 20 77 61 73 20 ; If a char was
00A9A0: 72 65 63 65 76 65 64 20 74 68 65 6E 20 2E 2E 0D receved then ...
00A9B0: 0A 09 44 4A 4E 5A 20 4A 41 43 52 43 0D 0A 09 4F ..DJNZ JACRC...O
00A9C0: 52 20 41 0D 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D R A...RET..;----
00A9D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00A9E0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 53 65 74 5F 43 --------...Set_C
00A9F0: 68 65 63 6B 53 75 6D 0D 0A 09 58 4F 52 20 41 09 heckSum...XOR A.
00AA00: 09 09 09 3B 20 43 61 6E 74 20 73 65 74 20 69 74 ...; Cant set it
00AA10: 20 6F 6E 0D 0A 09 4C 44 20 28 4A 43 48 45 43 4B on...LD (JCHECK
00AA20: 53 55 4D 29 2C 41 0D 0A 09 4C 44 20 28 4A 55 50 SUM),A...LD (JUP
00AA30: 44 41 54 45 5F 43 48 45 43 4B 29 2C 41 09 09 3B DATE_CHECK),A..;
00AA40: 20 43 68 65 63 6B 73 75 6D 20 4F 4E 0D 0A 09 4C Checksum ON...L
00AA50: 44 20 28 4A 53 65 6E 64 5F 43 68 65 63 6B 29 2C D (JSend_Check),
00AA60: 41 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 09 4C A...LD A,&C9...L
00AA70: 44 20 28 4A 43 52 43 29 2C 41 09 09 09 3B 20 43 D (JCRC),A...; C
00AA80: 52 43 20 4F 4E 0D 0A 09 4C 44 20 28 4A 55 70 64 RC ON...LD (JUpd
00AA90: 61 74 65 5F 43 52 43 29 2C 41 0D 0A 09 4C 44 20 ate_CRC),A...LD
00AAA0: 28 4A 53 65 6E 64 5F 43 52 43 29 2C 41 0D 0A 09 (JSend_CRC),A...
00AAB0: 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RET..;----------
00AAC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00AAD0: 2D 2D 0D 0A 2E 4A 53 65 74 5F 43 52 43 0D 0A 09 --...JSet_CRC...
00AAE0: 4E 4F 50 0D 0A 2E 53 65 74 5F 43 52 43 0D 0A 09 NOP...Set_CRC...
00AAF0: 50 55 53 48 20 41 46 0D 0A 09 58 4F 52 20 41 0D PUSH AF...XOR A.
00AB00: 0A 09 4C 44 20 28 4A 43 52 43 29 2C 41 09 09 09 ..LD (JCRC),A...
00AB10: 3B 20 43 52 43 20 4F 4E 0D 0A 09 4C 44 20 28 4A ; CRC ON...LD (J
00AB20: 55 70 64 61 74 65 5F 43 52 43 29 2C 41 0D 0A 09 Update_CRC),A...
00AB30: 4C 44 20 28 4A 53 65 6E 64 5F 43 52 43 29 2C 41 LD (JSend_CRC),A
00AB40: 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 09 4C 44 ...LD A,&C9...LD
00AB50: 20 28 4A 43 68 65 63 6B 53 75 6D 29 2C 41 09 09 (JCheckSum),A..
00AB60: 3B 20 43 48 45 43 4B 53 55 4D 20 4F 46 46 0D 0A ; CHECKSUM OFF..
00AB70: 09 4C 44 20 28 4A 55 70 64 61 74 65 5F 43 68 65 .LD (JUpdate_Che
00AB80: 63 6B 29 2C 41 0D 0A 09 4C 44 20 28 4A 53 65 6E ck),A...LD (JSen
00AB90: 64 5F 43 68 65 63 6B 29 2C 41 0D 0A 09 4C 44 20 d_Check),A...LD
00ABA0: 41 2C 28 57 52 49 54 45 5F 49 4E 46 4F 29 0D 0A A,(WRITE_INFO)..
00ABB0: 09 4F 52 20 41 0D 0A 09 4A 52 20 4E 5A 2C 53 43 .OR A...JR NZ,SC
00ABC0: 52 43 09 09 09 3B 20 57 69 6E 64 6F 77 20 69 73 RC...; Window is
00ABD0: 20 74 72 75 6E 65 64 20 6F 66 66 0D 0A 20 20 20 truned off..
00ABE0: 20 20 20 20 20 4C 44 20 48 4C 2C 34 32 2A 32 35 LD HL,42*25
00ABF0: 36 2B 31 37 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 6+17...LD (Y),HL
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 4E E5 09 00 C1 02 00 00 00 02 ......N.........
00AC20: 09 00 C2 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC30: 09 00 C4 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC40: 09 00 C6 02 00 00 00 02 09 00 C7 02 00 00 00 02 ................
00AC50: 09 00 C8 02 00 00 00 02 09 00 C9 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 0D 0A 09 4C 44 20 48 4C 2C 43 52 43 59 45 53 0D ...LD HL,CRCYES.
00AD10: 0A 09 43 41 4C 4C 20 54 45 58 54 0D 0A 2E 53 43 ..CALL TEXT...SC
00AD20: 52 43 09 50 4F 50 20 41 46 0D 0A 09 53 43 46 0D RC.POP AF...SCF.
00AD30: 0A 09 52 45 54 0D 0A 2E 43 52 43 59 45 53 09 53 ..RET...CRCYES.S
00AD40: 54 52 09 22 59 65 73 22 0D 0A 3B 2D 2D 2D 2D 2D TR."Yes"..;-----
00AD50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00AD60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 58 45 52 52 ---------...XERR
00AD70: 4F 52 0D 0A 3B 09 4C 44 20 48 4C 2C 28 4C 41 53 OR..;.LD HL,(LAS
00AD80: 54 5F 42 4C 4F 43 4B 5F 41 44 44 29 0D 0A 20 20 T_BLOCK_ADD)..
00AD90: 20 20 20 20 20 20 43 41 4C 4C 20 50 55 52 47 45 CALL PURGE
00ADA0: 5F 42 55 46 46 45 52 0D 0A 09 43 50 20 26 46 43 _BUFFER...CP &FC
00ADB0: 0D 0A 09 4A 50 20 4E 5A 2C 53 45 4E 44 5F 4E 41 ...JP NZ,SEND_NA
00ADC0: 4B 0D 0A 09 4A 50 20 58 4D 4F 44 45 4D 5F 45 58 K...JP XMODEM_EX
00ADD0: 49 54 0D 0A 0D 0A 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D IT....;=========
00ADE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00ADF0: 3D 3D 3D 3D 3D 20 0D 0A 09 0D 0A 2E 52 43 46 49 ===== ......RCFI
00AE00: 4C 45 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 4F 55 LE...CALL CAS_OU
00AE10: 54 5F 41 42 41 4E 44 4F 4E 0D 0A 3B 09 43 41 4C T_ABANDON..;.CAL
00AE20: 4C 20 57 69 6E 64 6F 77 5F 77 69 70 65 0D 0A 09 L Window_wipe...
00AE30: 43 41 4C 4C 20 4F 70 65 6E 5F 66 69 6C 65 5F 62 CALL Open_file_b
00AE40: 6F 72 64 0D 0A 09 43 50 20 26 46 43 0D 0A 09 4A ord...CP &FC...J
00AE50: 50 20 5A 2C 58 4D 4F 44 45 4D 5F 51 55 49 54 0D P Z,XMODEM_QUIT.
00AE60: 0A 09 4C 44 20 41 2C 43 0D 0A 09 4F 52 20 41 0D ..LD A,C...OR A.
00AE70: 0A 09 4A 50 20 5A 2C 58 4D 4F 44 45 4D 5F 51 55 ..JP Z,XMODEM_QU
00AE80: 49 54 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 4F 55 IT...CALL CAS_OU
00AE90: 54 5F 4F 50 45 4E 09 09 3B 20 4F 70 65 6E 20 6F T_OPEN..; Open o
00AEA0: 75 74 20 66 69 6C 65 0D 0A 20 20 20 20 20 20 20 ut file..
00AEB0: 20 4A 50 20 4E 43 2C 58 65 69 74 31 0D 0A 0D 0A JP NC,Xeit1....
00AEC0: 09 4C 44 20 49 58 2C 46 69 6C 65 5F 62 6F 72 64 .LD IX,File_bord
00AED0: 65 72 0D 0A 09 43 41 4C 4C 20 57 69 6E 64 6F 77 er...CALL Window
00AEE0: 5F 77 69 70 65 0D 0A 09 4C 44 20 49 58 2C 46 49 _wipe...LD IX,FI
00AEF0: 4C 45 53 4D 45 4E 55 0D 0A 09 43 41 4C 4C 20 57 LESMENU...CALL W
00AF00: 69 6E 64 6F 77 5F 57 69 70 65 0D 0A 09 09 0D 0A indow_Wipe......
00AF10: 09 4C 44 20 49 58 2C 28 52 45 43 5F 42 4F 52 44 .LD IX,(REC_BORD
00AF20: 45 52 29 0D 0A 20 20 20 20 20 20 20 20 43 41 4C ER).. CAL
00AF30: 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 43 41 4C 4C L MBORDER...CALL
00AF40: 20 4D 50 52 49 4E 54 09 09 09 3B 20 58 6D 6F 64 MPRINT...; Xmod
00AF50: 65 6D 20 69 6E 66 6F 20 77 69 6E 64 6F 77 0D 0A em info window..
00AF60: 0D 0A 09 4C 44 20 48 4C 2C 33 30 2A 32 35 36 2B ...LD HL,30*256+
00AF70: 31 36 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 16...LD (Y),HL..
00AF80: 09 4C 44 20 48 4C 2C 28 58 54 59 50 45 29 0D 0A .LD HL,(XTYPE)..
00AF90: 09 43 41 4C 4C 20 41 4E 53 49 54 45 58 54 0D 0A .CALL ANSITEXT..
00AFA0: 0D 0A 09 43 41 4C 4C 20 53 45 54 5F 43 48 45 43 ...CALL SET_CHEC
00AFB0: 4B 53 55 4D 0D 0A 0D 0A 09 4C 44 20 41 2C 31 0D KSUM.....LD A,1.
00AFC0: 0A 09 4C 44 20 28 45 58 50 45 43 54 45 44 5F 42 ..LD (EXPECTED_B
00AFD0: 4C 4F 43 4B 29 2C 41 09 09 3B 20 42 6C 6F 63 6B LOCK),A..; Block
00AFE0: 20 31 0D 0A 09 4C 44 20 48 4C 2C 30 09 0D 0A 09 1...LD HL,0....
00AFF0: 4C 44 20 28 42 59 54 45 53 29 2C 48 4C 09 09 09 LD (BYTES),HL...
00B000: 3B 20 4E 6F 20 6C 65 6E 67 74 68 0D 0A 09 4C 44 ; No length...LD
00B010: 20 48 4C 2C 31 0D 0A 09 4C 44 20 28 4E 55 4D 4F HL,1...LD (NUMO
00B020: 46 42 4C 4F 43 4B 29 2C 48 4C 0D 0A 0D 0A 09 43 FBLOCK),HL.....C
00B030: 41 4C 4C 20 50 55 52 47 45 5F 42 55 46 46 45 52 ALL PURGE_BUFFER
00B040: 0D 0A 0D 0A 09 43 41 4C 4C 20 4A 41 53 4B 5F 43 .....CALL JASK_C
00B050: 52 43 09 09 09 3B 20 41 73 6B 20 66 6F 72 20 63 RC...; Ask for c
00B060: 72 63 0D 0A 20 09 4A 50 20 43 2C 53 4F 52 54 09 rc.. .JP C,SORT.
00B070: 09 09 3B 20 53 65 65 20 77 68 61 74 20 69 74 20 ..; See what it
00B080: 69 73 0D 0A 0D 0A 2E 53 45 4E 44 5F 4E 41 4B 0D is.....SEND_NAK.
00B090: 0A 09 4C 44 20 41 2C 4E 41 4B 0D 0A 09 43 41 4C ..LD A,NAK...CAL
00B0A0: 4C 20 4F 55 54 50 55 54 09 09 09 3B 20 53 65 6E L OUTPUT...; Sen
00B0B0: 64 20 4E 41 4B 0D 0A 09 4C 44 20 41 2C 31 30 0D d NAK...LD A,10.
00B0C0: 0A 09 43 41 4C 4C 20 49 6E 70 75 74 58 6D 6F 64 ..CALL InputXmod
00B0D0: 65 6D 09 09 3B 20 57 61 69 74 20 66 6F 72 20 63 em..; Wait for c
00B0E0: 68 61 72 0D 0A 09 4A 50 20 43 2C 58 45 52 52 4F har...JP C,XERRO
00B0F0: 52 09 09 09 3B 20 54 69 6D 65 6F 75 74 21 0D 0A R...; Timeout!..
00B100: 0D 0A 2E 53 4F 52 54 0D 0A 09 43 50 20 45 4F 54 ...SORT...CP EOT
00B110: 0D 0A 09 4A 50 20 5A 2C 45 6E 64 5F 4F 66 5F 54 ...JP Z,End_Of_T
00B120: 72 61 6E 73 0D 0A 09 43 50 20 53 4F 48 0D 0A 09 rans...CP SOH...
00B130: 4A 50 20 5A 2C 58 4D 31 0D 0A 09 43 50 20 53 54 JP Z,XM1...CP ST
00B140: 58 0D 0A 09 4A 50 20 5A 2C 58 4D 32 0D 0A 09 43 X...JP Z,XM2...C
00B150: 50 20 43 41 4E 0D 0A 09 4A 50 20 5A 2C 43 41 4E P CAN...JP Z,CAN
00B160: 43 45 4C 58 0D 0A 09 4A 50 20 53 45 4E 44 5F 4E CELX...JP SEND_N
00B170: 41 4B 09 09 09 3B 48 55 48 3F 0D 0A 3B 2D 20 20 AK...;HUH?..;-
00B180: 2D 20 20 2D 0D 0A 2E 58 4D 31 0D 0A 09 4C 44 20 - -...XM1...LD
00B190: 42 43 2C 31 32 38 0D 0A 09 4A 50 20 58 4D 33 0D BC,128...JP XM3.
00B1A0: 0A 3B 2D 20 20 2D 20 20 2D 0D 0A 2E 58 4D 32 20 .;- - -...XM2
00B1B0: 20 20 20 4C 44 20 42 43 2C 31 30 32 34 0D 0A 0D LD BC,1024...
00B1C0: 0A 2E 58 4D 33 09 43 41 4C 4C 20 58 6D 6F 64 65 ..XM3.CALL Xmode
00B1D0: 6D 5F 52 65 63 09 09 09 3B 20 52 65 63 65 69 65 m_Rec...; Receie
00B1E0: 76 65 20 31 30 32 34 2F 31 32 38 20 62 79 74 65 ve 1024/128 byte
00B1F0: 73 0D 0A 09 4A 50 20 43 2C 58 45 52 52 4F 52 09 s...JP C,XERROR.
00B200: 09 09 3B 20 45 72 72 6F 72 0D 0A 3B 2D 20 20 2D ..; Error..;- -
00B210: 20 20 2D 0D 0A 09 43 41 4C 4C 20 4A 43 48 45 43 -...CALL JCHEC
00B220: 4B 53 55 4D 0D 0A 09 43 41 4C 4C 20 4A 43 52 43 KSUM...CALL JCRC
00B230: 09 09 09 3B 20 43 6F 6D 70 61 72 65 20 77 69 74 ...; Compare wit
00B240: 68 20 74 68 65 20 63 68 65 63 6B 73 75 6D 20 6F h the checksum o
00B250: 72 20 43 52 43 0D 0A 09 4A 50 20 43 2C 58 45 52 r CRC...JP C,XER
00B260: 52 4F 52 09 09 09 3B 20 45 72 72 6F 72 0D 0A 0D ROR...; Error...
00B270: 0A 09 4C 44 20 41 2C 28 42 4C 4F 43 4B 29 0D 0A ..LD A,(BLOCK)..
00B280: 09 4C 44 20 44 2C 41 0D 0A 09 4C 44 20 41 2C 28 .LD D,A...LD A,(
00B290: 46 46 5F 42 4C 4F 43 4B 29 0D 0A 09 41 44 44 20 FF_BLOCK)...ADD
00B2A0: 44 0D 0A 09 43 50 20 26 46 46 0D 0A 09 4A 50 20 D...CP &FF...JP
00B2B0: 4E 5A 2C 58 45 72 72 6F 72 09 09 09 3B 20 49 66 NZ,XError...; If
00B2C0: 20 4E 4F 54 20 6F 6B 20 74 68 65 6E 20 58 45 72 NOT ok then XEr
00B2D0: 72 6F 72 0D 0A 0D 0A 09 4C 44 20 41 2C 28 45 58 ror.....LD A,(EX
00B2E0: 50 45 43 54 45 44 5F 42 4C 4F 43 4B 29 0D 0A 20 PECTED_BLOCK)..
00B2F0: 20 20 20 20 20 20 20 4C 44 20 44 2C 41 0D 0A 09 LD D,A...
00B300: 4C 44 20 41 2C 28 42 4C 4F 43 4B 29 0D 0A 09 43 LD A,(BLOCK)...C
00B310: 50 20 44 0D 0A 09 4A 50 20 5A 2C 58 4D 34 09 09 P D...JP Z,XM4..
00B320: 09 3B 20 54 68 65 20 72 69 67 68 74 20 62 6C 6F .; The right blo
00B330: 63 6B 0D 0A 09 44 45 43 20 44 09 09 09 09 3B 20 ck...DEC D....;
00B340: 54 68 65 20 6C 61 73 74 20 62 6C 6F 63 6B 20 6E The last block n
00B350: 75 6D 62 65 72 0D 0A 09 43 50 20 44 09 09 09 09 umber...CP D....
00B360: 3B 20 43 6F 6D 70 61 72 65 0D 0A 09 4A 50 20 4E ; Compare...JP N
00B370: 5A 2C 46 61 74 61 6C 5F 45 72 72 6F 72 09 09 3B Z,Fatal_Error..;
00B380: 20 49 66 20 6E 6F 74 3D 74 68 65 6E 20 66 61 74 If not=then fat
00B390: 61 6C 20 65 72 72 6F 72 0D 0A 09 4A 50 20 58 4D al error...JP XM
00B3A0: 41 43 4B 0D 0A 0D 0A 2E 58 4D 34 09 0D 0A 09 43 ACK.....XM4....C
00B3B0: 41 4C 4C 20 53 61 76 65 5F 58 6D 6F 64 65 6D 09 ALL Save_Xmodem.
00B3C0: 09 3B 20 49 66 20 62 75 66 66 65 72 20 6E 65 65 .; If buffer nee
00B3D0: 64 73 20 73 61 76 69 6E 67 20 74 68 65 6E 20 73 ds saving then s
00B3E0: 61 76 65 0D 0A 0D 0A 09 50 55 53 48 20 48 4C 0D ave.....PUSH HL.
00B3F0: 0A 09 4C 44 20 48 4C 2C 28 42 59 54 45 53 29 0D ..LD HL,(BYTES).
00B400: 0A 09 4C 44 20 42 43 2C 28 52 45 43 5F 41 44 44 ..LD BC,(REC_ADD
00B410: 29 0D 0A 09 41 44 44 20 48 4C 2C 42 43 0D 0A 09 )...ADD HL,BC...
00B420: 4C 44 20 28 42 59 54 45 53 29 2C 48 4C 09 09 09 LD (BYTES),HL...
00B430: 3B 49 4E 43 20 42 59 54 45 53 20 0D 0A 0D 0A 09 ;INC BYTES .....
00B440: 43 41 4C 4C 20 57 72 69 74 65 5F 49 6E 66 6F 09 CALL Write_Info.
00B450: 09 09 3B 20 50 72 69 6E 74 20 49 6E 66 6F 20 2D ..; Print Info -
00B460: 20 69 66 20 6E 65 65 64 65 64 0D 0A 09 50 4F 50 if needed...POP
00B470: 20 48 4C 0D 0A 0D 0A 09 4C 44 20 41 2C 28 45 58 HL.....LD A,(EX
00B480: 50 45 43 54 45 44 5F 42 4C 4F 43 4B 29 09 0D 0A PECTED_BLOCK)...
00B490: 09 49 4E 43 20 41 0D 0A 09 4C 44 20 28 45 58 50 .INC A...LD (EXP
00B4A0: 45 43 54 45 44 5F 42 4C 4F 43 4B 29 2C 41 0D 0A ECTED_BLOCK),A..
00B4B0: 0D 0A 09 4C 44 20 48 4C 2C 28 4E 55 4D 4F 46 42 ...LD HL,(NUMOFB
00B4C0: 4C 4F 43 4B 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A LOCK)...INC HL..
00B4D0: 09 4C 44 20 28 4E 55 4D 4F 46 42 4C 4F 43 4B 29 .LD (NUMOFBLOCK)
00B4E0: 2C 48 4C 0D 0A 0D 0A 2E 58 4D 41 43 4B 09 43 41 ,HL.....XMACK.CA
00B4F0: 4C 4C 20 53 65 6E 64 41 43 4B 09 09 09 3B 20 53 LL SendACK...; S
00B500: 65 6E 64 20 41 43 4B 0D 0A 09 4A 50 20 4E 43 2C end ACK...JP NC,
00B510: 53 4F 52 54 09 09 09 3B 20 49 66 20 63 68 61 72 SORT...; If char
00B520: 20 74 68 65 6E 20 53 4F 52 54 0D 0A 0D 0A 09 43 then SORT.....C
00B530: 50 20 26 46 43 09 09 09 09 3B 20 57 61 73 20 65 P &FC....; Was e
00B540: 73 63 61 70 65 64 20 70 72 65 73 73 65 64 0D 0A scaped pressed..
00B550: 09 4A 50 20 4E 5A 2C 58 4D 41 43 4B 09 09 09 3B .JP NZ,XMACK...;
00B560: 20 4E 6F 20 74 68 65 6E 20 53 65 6E 64 20 41 43 No then Send AC
00B570: 4B 20 0D 0A 09 4A 50 20 58 6D 6F 64 65 6D 5F 45 K ...JP Xmodem_E
00B580: 78 69 74 09 09 09 3B 20 45 78 69 74 0D 0A 3B 2D xit...; Exit..;-
00B590: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D - - - - - - - -
00B5A0: 20 2D 20 2D 20 2D 20 2D 20 2D 0D 0A 2E 53 65 6E - - - - -...Sen
00B5B0: 64 41 43 4B 0D 0A 09 4C 44 20 41 2C 41 43 4B 0D dACK...LD A,ACK.
00B5C0: 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 ..CALL OUTPUT...
00B5D0: 4C 44 20 41 2C 31 30 0D 0A 09 4A 50 20 49 6E 70 LD A,10...JP Inp
00B5E0: 75 74 58 6D 6F 64 65 6D 09 09 09 3B 20 53 65 6E utXmodem...; Sen
00B5F0: 64 20 41 43 4B 0D 0A 3B 2D 20 2D 20 2D 20 2D 20 d ACK..;- - - -
00B600: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00B610: 2D 20 2D 0D 0A 2E 45 6E 64 5F 4F 66 5F 54 72 61 - -...End_Of_Tra
00B620: 6E 73 0D 0A 09 43 41 4C 4C 20 53 65 6E 64 41 43 ns...CALL SendAC
00B630: 4B 09 09 09 3B 20 53 65 6E 64 20 41 43 4B 20 74 K...; Send ACK t
00B640: 6F 20 45 4F 54 0D 0A 09 4A 50 20 43 2C 58 45 52 o EOT...JP C,XER
00B650: 52 4F 52 09 09 09 3B 20 49 66 20 74 69 6D 65 64 ROR...; If timed
00B660: 20 6F 75 74 20 74 68 65 6E 20 65 72 72 6F 72 20 out then error
00B670: 0D 0A 3B 09 4C 44 20 41 2C 41 43 4B 09 09 09 3B ..;.LD A,ACK...;
00B680: 20 53 65 6E 64 20 41 43 4B 20 74 6F 20 4E 41 4B Send ACK to NAK
00B690: 0D 0A 3B 09 43 41 4C 4C 20 4F 55 54 50 55 54 09 ..;.CALL OUTPUT.
00B6A0: 09 09 3B 20 4F 75 74 20 61 6E 20 41 43 4B 0D 0A ..; Out an ACK..
00B6B0: 09 4A 52 20 58 6D 6F 64 65 6D 5F 45 78 69 74 09 .JR Xmodem_Exit.
00B6C0: 09 09 3B 20 45 78 69 74 09 0D 0A 3B 2D 20 2D 20 ..; Exit...;- -
00B6D0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00B6E0: 2D 20 2D 20 2D 20 2D 20 0D 0A 2E 43 61 6E 63 65 - - - - ...Cance
00B6F0: 6C 58 0D 0A 09 4C 44 20 41 2C 32 0D 0A 09 43 41 lX...LD A,2...CA
00B700: 4C 4C 20 49 6E 70 75 74 58 6D 6F 64 65 6D 0D 0A LL InputXmodem..
00B710: 09 4A 50 20 43 2C 58 45 72 72 6F 72 09 09 09 3B .JP C,XError...;
00B720: 20 57 61 69 74 20 66 6F 72 20 61 6E 6F 74 68 65 Wait for anothe
00B730: 72 20 63 68 61 72 0D 0A 09 43 50 20 43 41 4E 09 r char...CP CAN.
00B740: 09 09 09 3B 20 57 61 73 20 69 74 20 43 41 4E 0D ...; Was it CAN.
00B750: 0A 09 4A 50 20 4E 5A 2C 58 45 72 72 6F 72 09 09 ..JP NZ,XError..
00B760: 09 3B 20 4E 6F 20 74 68 65 6E 20 45 52 52 4F 52 .; No then ERROR
00B770: 0D 0A 09 4A 50 20 58 6D 6F 64 65 6D 5F 45 78 69 ...JP Xmodem_Exi
00B780: 74 09 09 09 3B 20 45 6C 73 65 20 65 78 69 74 0D t...; Else exit.
00B790: 0A 3B 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 .;- - - - - - -
00B7A0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 0D 0A 2E - - - - - - -...
00B7B0: 46 61 74 61 6C 5F 45 72 72 6F 72 0D 0A 09 4C 44 Fatal_Error...LD
00B7C0: 20 41 2C 43 41 4E 0D 0A 09 43 41 4C 4C 20 4F 55 A,CAN...CALL OU
00B7D0: 54 50 55 54 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 TPUT...CALL OUTP
00B7E0: 55 54 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 UT...CALL OUTPUT
00B7F0: 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A ...CALL OUTPUT..
00B800: 09 43 41 4C 4C 20 4F 55 54 50 55 54 09 09 09 3B .CALL OUTPUT...;
00B810: 20 53 65 6E 64 73 20 33 20 43 61 6E 73 0D 0A 3B Sends 3 Cans..;
00B820: 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D - - - - - -
00B830: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 0D 0A 0D 0A - - - -....
00B840: 2E 58 6D 6F 64 65 6D 5F 45 78 69 74 0D 0A 2E 58 .Xmodem_Exit...X
00B850: 45 49 54 31 09 43 41 4C 4C 20 43 41 53 5F 4F 55 EIT1.CALL CAS_OU
00B860: 54 5F 43 4C 4F 53 45 0D 0A 09 4C 44 20 49 58 2C T_CLOSE...LD IX,
00B870: 28 52 45 43 5F 42 4F 52 44 45 52 29 0D 0A 09 4A (REC_BORDER)...J
00B880: 50 20 57 69 6E 64 6F 77 5F 77 69 70 65 0D 0A 3B P Window_wipe..;
00B890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00B8A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
00B8B0: 0D 0A 2E 49 6E 70 75 74 58 6D 6F 64 65 6D 0D 0A ...InputXmodem..
00B8C0: 09 50 55 53 48 20 48 4C 0D 0A 09 50 55 53 48 20 .PUSH HL...PUSH
00B8D0: 44 45 0D 0A 09 50 55 53 48 20 42 43 0D 0A 0D 0A DE...PUSH BC....
00B8E0: 09 4C 44 20 28 49 58 54 49 4D 45 52 2B 31 29 2C .LD (IXTIMER+1),
00B8F0: 41 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 28 A...XOR A...LD (
00B900: 54 49 4D 45 52 29 2C 41 0D 0A 2E 49 58 4C 4F 4F TIMER),A...IXLOO
00B910: 50 0D 0A 09 4C 44 20 41 2C 36 36 0D 0A 09 43 41 P...LD A,66...CA
00B920: 4C 4C 20 26 42 42 31 45 0D 0A 09 4C 44 20 41 2C LL &BB1E...LD A,
00B930: 26 46 43 0D 0A 09 4A 50 20 4E 5A 2C 49 58 43 41 &FC...JP NZ,IXCA
00B940: 52 52 59 0D 0A 0D 0A 09 43 41 4C 4C 20 49 4E 50 RRY.....CALL INP
00B950: 55 54 0D 0A 09 4A 52 20 43 2C 49 58 52 45 54 0D UT...JR C,IXRET.
00B960: 0A 09 0D 0A 09 4C 44 20 41 2C 28 54 49 4D 45 52 .....LD A,(TIMER
00B970: 29 0D 0A 2E 49 58 54 49 4D 45 52 0D 0A 09 43 50 )...IXTIMER...CP
00B980: 20 30 0D 0A 09 4A 52 20 4E 5A 2C 49 58 4C 4F 4F 0...JR NZ,IXLOO
00B990: 50 0D 0A 2E 49 58 43 41 52 52 59 0D 0A 09 50 4F P...IXCARRY...PO
00B9A0: 50 20 42 43 0D 0A 09 50 4F 50 20 44 45 0D 0A 09 P BC...POP DE...
00B9B0: 50 4F 50 20 48 4C 0D 0A 09 53 43 46 0D 0A 09 52 POP HL...SCF...R
00B9C0: 45 54 0D 0A 2E 49 58 52 45 54 0D 0A 09 50 4F 50 ET...IXRET...POP
00B9D0: 20 42 43 0D 0A 09 50 4F 50 20 44 45 0D 0A 09 50 BC...POP DE...P
00B9E0: 4F 50 20 48 4C 0D 0A 09 4F 52 20 41 0D 0A 09 52 OP HL...OR A...R
00B9F0: 45 54 0D 0A 0D 0A 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D ET....;=========
00BA00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00BA10: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2E 50 57 49 4E 44 4F =======...PWINDO
00BA20: 57 0D 0A 42 59 54 45 20 09 34 33 2C 35 0D 0A 42 W..BYTE .43,5..B
00BA30: 59 54 45 09 37 2C 31 36 0D 0A 42 59 54 45 09 35 YTE.7,16..BYTE.5
00BA40: 2C 31 34 0D 0A 42 59 54 45 09 34 34 2C 36 0D 0A ,14..BYTE.44,6..
00BA50: 57 4F 52 44 09 50 4A 50 3A 42 59 54 45 20 30 0D WORD.PJP:BYTE 0.
00BA60: 0A 2E 58 58 4B 30 0D 0A 42 59 54 45 09 22 20 58 ..XXK0..BYTE." X
00BA70: 6D 6F 64 65 6D 22 2C 30 0D 0A 2E 58 58 4B 31 0D modem",0...XXK1.
00BA80: 0A 42 59 54 45 09 22 20 58 6D 6F 64 65 6D 20 31 .BYTE." Xmodem 1
00BA90: 4B 22 2C 30 0D 0A 42 59 54 45 09 22 20 43 52 43 K",0..BYTE." CRC
00BAA0: 20 20 20 20 3A 22 2C 30 0D 0A 42 59 54 45 09 22 :",0..BYTE."
00BAB0: 20 57 69 6E 64 6F 77 20 3A 22 2C 30 0D 0A 42 59 Window :",0..BY
00BAC0: 54 45 09 22 20 48 65 61 64 65 72 20 3A 22 2C 30 TE." Header :",0
00BAD0: 0D 0A 2E 50 4A 50 0D 0A 57 4F 52 44 20 58 4E 4F ...PJP..WORD XNO
00BAE0: 52 4D 0D 0A 57 4F 52 44 20 58 4F 4E 45 4B 0D 0A RM..WORD XONEK..
00BAF0: 57 4F 52 44 20 43 52 43 4F 4E 4F 46 46 0D 0A 57 WORD CRCONOFF..W
00BB00: 4F 52 44 20 57 49 4E 44 4F 57 4F 4E 4F 46 46 0D ORD WINDOWONOFF.
00BB10: 0A 57 4F 52 44 20 48 45 41 44 4F 4E 4F 46 46 0D .WORD HEADONOFF.
00BB20: 0A 0D 0A 2E 50 52 4F 54 4F 0D 0A 09 4C 44 20 49 ....PROTO...LD I
00BB30: 58 2C 50 57 49 4E 44 4F 57 0D 0A 09 43 41 4C 4C X,PWINDOW...CALL
00BB40: 20 4D 42 4F 52 44 45 52 0D 0A 09 43 41 4C 4C 20 MBORDER...CALL
00BB50: 4D 50 52 49 4E 54 0D 0A 09 43 41 4C 4C 20 50 52 MPRINT...CALL PR
00BB60: 4F 5F 49 4E 46 4F 0D 0A 0D 0A 2E 50 52 4F 54 32 O_INFO.....PROT2
00BB70: 0D 0A 09 4C 44 20 41 2C 28 49 58 2B 31 30 29 0D ...LD A,(IX+10).
00BB80: 0A 09 4C 44 20 28 4D 43 55 52 59 29 2C 41 0D 0A ..LD (MCURY),A..
00BB90: 09 43 41 4C 4C 20 4D 45 4E 55 5F 43 55 52 53 4F .CALL MENU_CURSO
00BBA0: 52 0D 0A 09 43 50 20 26 46 43 0D 0A 09 4A 52 20 R...CP &FC...JR
00BBB0: 5A 2C 50 52 4F 45 58 49 54 0D 0A 09 4A 50 20 28 Z,PROEXIT...JP (
00BBC0: 48 4C 29 0D 0A 0D 0A 2E 50 52 4F 45 58 49 54 0D HL).....PROEXIT.
00BBD0: 0A 09 4C 44 20 49 58 2C 50 57 49 4E 44 4F 57 0D ..LD IX,PWINDOW.
00BBE0: 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 57 49 ..CALL WINDOW_WI
00BBF0: 50 45 0D 0A 09 4C 44 20 41 2C 26 46 45 0D 0A 09 PE...LD A,&FE...
00BC00: 52 45 54 0D 0A 0D 0A 0D 0A 0D 0A 3B 2D 20 2D 2D RET........;- --
00BC10: 2D 2D 2D 2D 2D 2D 2D 20 20 2D 2D 2D 2D 2D 2D 2D ------- -------
00BC20: 2D 2D 2D 20 2D 0D 0A 2E 50 52 4F 5F 49 4E 46 4F --- -...PRO_INFO
00BC30: 0D 0A 09 4C 44 20 41 2C 28 4A 41 53 4B 5F 43 52 ...LD A,(JASK_CR
00BC40: 43 29 0D 0A 09 4C 44 20 44 45 2C 35 34 2A 32 35 C)...LD DE,54*25
00BC50: 36 2B 38 0D 0A 09 4C 44 20 28 59 29 2C 44 45 0D 6+8...LD (Y),DE.
00BC60: 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 49 . CALL PI
00BC70: 4E 46 4F 0D 0A 0D 0A 09 4C 44 20 41 2C 28 57 72 NFO.....LD A,(Wr
00BC80: 69 74 65 5F 49 6E 66 6F 29 0D 0A 09 4C 44 20 44 ite_Info)...LD D
00BC90: 45 2C 35 34 2A 32 35 36 2B 39 0D 0A 09 4C 44 20 E,54*256+9...LD
00BCA0: 28 59 29 2C 44 45 0D 0A 09 43 41 4C 4C 20 50 49 (Y),DE...CALL PI
00BCB0: 4E 46 4F 0D 0A 0D 0A 09 4C 44 20 41 2C 28 48 45 NFO.....LD A,(HE
00BCC0: 41 44 5F 46 4C 41 47 29 0D 0A 09 4C 44 20 44 45 AD_FLAG)...LD DE
00BCD0: 2C 35 34 2A 32 35 36 2B 31 30 0D 0A 09 4C 44 20 ,54*256+10...LD
00BCE0: 28 59 29 2C 44 45 0D 0A 0D 0A 2E 50 49 4E 46 4F (Y),DE.....PINFO
00BCF0: 09 4F 52 20 41 0D 0A 09 4A 50 20 4E 5A 2C 50 49 .OR A...JP NZ,PI
00BD00: 30 0D 0A 09 4C 44 20 48 4C 2C 4F 4E 32 0D 0A 09 0...LD HL,ON2...
00BD10: 4A 50 20 41 4E 53 49 54 45 58 54 0D 0A 2E 50 49 JP ANSITEXT...PI
00BD20: 30 09 4C 44 20 48 4C 2C 4F 46 46 32 0D 0A 09 4A 0.LD HL,OFF2...J
00BD30: 50 20 41 4E 53 49 54 45 58 54 0D 0A 3B 2D 2D 2D P ANSITEXT..;---
00BD40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00BD50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 58 4E 4F 52 ---------...XNOR
00BD60: 4D 0D 0A 09 4C 44 20 41 2C 53 4F 48 0D 0A 09 4C M...LD A,SOH...L
00BD70: 44 20 28 53 4F 48 53 54 58 29 2C 41 0D 0A 09 4C D (SOHSTX),A...L
00BD80: 44 20 48 4C 2C 31 32 38 0D 0A 09 4C 44 20 28 54 D HL,128...LD (T
00BD90: 4C 45 4E 47 54 48 29 2C 48 4C 09 0D 0A 09 4C 44 LENGTH),HL....LD
00BDA0: 20 48 4C 2C 58 58 4B 30 0D 0A 09 4C 44 20 28 58 HL,XXK0...LD (X
00BDB0: 54 59 50 45 29 2C 48 4C 0D 0A 09 4A 50 20 50 52 TYPE),HL...JP PR
00BDC0: 4F 45 58 49 54 0D 0A 3B 2D 20 2D 20 2D 20 2D 20 OEXIT..;- - - -
00BDD0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00BDE0: 2D 20 2D 20 2D 0D 0A 2E 58 4F 4E 45 4B 0D 0A 09 - - -...XONEK...
00BDF0: 4C 44 20 41 2C 53 54 58 0D 0A 09 4C 44 20 28 53 LD A,STX...LD (S
00BE00: 4F 48 53 54 58 29 2C 41 0D 0A 09 4C 44 20 48 4C OHSTX),A...LD HL
00BE10: 2C 31 30 32 34 0D 0A 09 4C 44 20 28 54 4C 45 4E ,1024...LD (TLEN
00BE20: 47 54 48 29 2C 48 4C 0D 0A 09 4C 44 20 48 4C 2C GTH),HL...LD HL,
00BE30: 58 58 4B 31 0D 0A 09 4C 44 20 28 58 54 59 50 45 XXK1...LD (XTYPE
00BE40: 29 2C 48 4C 0D 0A 09 4A 50 20 50 52 4F 45 58 49 ),HL...JP PROEXI
00BE50: 54 0D 0A 3B 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 T..;- - - - - -
00BE60: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
00BE70: 2D 0D 0A 2E 43 52 43 4F 6E 4F 66 66 0D 0A 09 4C -...CRCOnOff...L
00BE80: 44 20 41 2C 28 4A 41 53 4B 5F 43 52 43 29 0D 0A D A,(JASK_CRC)..
00BE90: 09 4F 52 20 41 0D 0A 09 4A 50 20 5A 2C 58 4E 4F .OR A...JP Z,XNO
00BEA0: 31 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 48 1...XOR A...LD H
00BEB0: 4C 2C 4F 4E 32 0D 0A 09 4A 52 20 58 4E 4F 32 0D L,ON2...JR XNO2.
00BEC0: 0A 2E 58 4E 4F 31 0D 0A 09 4C 44 20 41 2C 26 43 ..XNO1...LD A,&C
00BED0: 39 0D 0A 09 4C 44 20 48 4C 2C 4F 46 46 32 0D 0A 9...LD HL,OFF2..
00BEE0: 2E 58 4E 4F 32 09 4C 44 20 28 4A 41 53 4B 5F 43 .XNO2.LD (JASK_C
00BEF0: 52 43 29 2C 41 09 09 3B 44 4F 4E 54 20 41 53 4B RC),A..;DONT ASK
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 4E E5 0A 00 C1 02 00 00 00 02 ......N.........
00BF20: 0A 00 C2 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF30: 0A 00 C4 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF40: 0A 00 C6 02 00 00 00 02 0A 00 C7 02 00 00 00 02 ................
00BF50: 0A 00 C8 02 00 00 00 02 0A 00 C9 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 20 46 4F 52 20 43 52 43 0D 0A 09 4C 44 20 28 4A FOR CRC...LD (J
00C010: 53 45 54 5F 43 52 43 29 2C 41 09 09 3B 44 4F 4E SET_CRC),A..;DON
00C020: 54 20 53 45 54 20 43 52 43 20 49 46 20 41 53 4B T SET CRC IF ASK
00C030: 45 44 21 0D 0A 0D 0A 09 4C 44 20 44 45 2C 35 34 ED!.....LD DE,54
00C040: 2A 32 35 36 2B 38 0D 0A 09 4C 44 20 28 59 29 2C *256+8...LD (Y),
00C050: 44 45 0D 0A 09 43 41 4C 4C 20 41 4E 53 49 54 45 DE...CALL ANSITE
00C060: 58 54 0D 0A 09 4A 50 20 50 52 4F 54 32 0D 0A 3B XT...JP PROT2..;
00C070: 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D - - - - - -
00C080: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 0D 0A 2E 57 - - - -...W
00C090: 69 6E 64 6F 77 4F 6E 4F 66 66 0D 0A 09 4C 44 20 indowOnOff...LD
00C0A0: 41 2C 28 57 72 69 74 65 5F 49 6E 66 6F 29 0D 0A A,(Write_Info)..
00C0B0: 09 4F 52 20 41 0D 0A 09 4A 50 20 5A 2C 58 57 4E .OR A...JP Z,XWN
00C0C0: 31 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 48 1...XOR A...LD H
00C0D0: 4C 2C 4F 4E 32 0D 0A 09 4C 44 20 44 45 2C 58 6D L,ON2...LD DE,Xm
00C0E0: 6F 64 65 6D 5F 49 6E 66 6F 0D 0A 09 4A 52 20 58 odem_Info...JR X
00C0F0: 57 4E 32 0D 0A 2E 58 57 4E 31 0D 0A 09 4C 44 20 WN2...XWN1...LD
00C100: 41 2C 26 43 39 0D 0A 09 4C 44 20 44 45 2C 58 6D A,&C9...LD DE,Xm
00C110: 6F 64 65 6D 5F 53 69 67 6E 0D 0A 09 4C 44 20 48 odem_Sign...LD H
00C120: 4C 2C 4F 46 46 32 0D 0A 0D 0A 2E 58 57 4E 32 09 L,OFF2.....XWN2.
00C130: 4C 44 20 28 57 72 69 74 65 5F 49 6E 66 6F 29 2C LD (Write_Info),
00C140: 41 0D 0A 09 4C 44 20 28 52 45 43 5F 42 4F 52 44 A...LD (REC_BORD
00C150: 45 52 29 2C 44 45 0D 0A 09 4C 44 20 44 45 2C 35 ER),DE...LD DE,5
00C160: 34 2A 32 35 36 2B 39 0D 0A 09 4C 44 20 28 59 29 4*256+9...LD (Y)
00C170: 2C 44 45 0D 0A 09 43 41 4C 4C 20 41 4E 53 49 54 ,DE...CALL ANSIT
00C180: 45 58 54 0D 0A 09 4A 50 20 50 52 4F 54 32 0D 0A EXT...JP PROT2..
00C190: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
00C1A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 48 65 -----------...He
00C1B0: 61 64 4F 6E 4F 66 66 0D 0A 09 4C 44 20 41 2C 28 adOnOff...LD A,(
00C1C0: 48 65 61 64 5F 46 6C 61 67 29 0D 0A 09 4F 52 20 Head_Flag)...OR
00C1D0: 41 0D 0A 09 4A 50 20 5A 2C 58 48 44 31 0D 0A 09 A...JP Z,XHD1...
00C1E0: 58 4F 52 20 41 0D 0A 09 4C 44 20 48 4C 2C 4F 4E XOR A...LD HL,ON
00C1F0: 32 0D 0A 09 4A 52 20 58 48 44 32 0D 0A 2E 58 48 2...JR XHD2...XH
00C200: 44 31 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 09 D1...LD A,&C9...
00C210: 4C 44 20 48 4C 2C 4F 46 46 32 0D 0A 2E 58 48 44 LD HL,OFF2...XHD
00C220: 32 09 4C 44 20 28 48 65 61 64 5F 46 6C 61 67 29 2.LD (Head_Flag)
00C230: 2C 41 09 09 3B 44 4F 4E 54 20 41 53 4B 20 46 4F ,A..;DONT ASK FO
00C240: 52 20 43 52 43 0D 0A 0D 0A 09 4C 44 20 44 45 2C R CRC.....LD DE,
00C250: 35 34 2A 32 35 36 2B 31 30 0D 0A 09 4C 44 20 28 54*256+10...LD (
00C260: 59 29 2C 44 45 0D 0A 09 43 41 4C 4C 20 41 4E 53 Y),DE...CALL ANS
00C270: 49 54 45 58 54 0D 0A 09 4A 50 20 50 52 4F 54 32 ITEXT...JP PROT2
00C280: 0D 0A 3B 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D ..;- - - - -
00C290: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 0D - - - - -.
00C2A0: 0A 0D 0A 2E 4B 4B 45 59 0D 0A 09 43 41 4C 4C 20 ....KKEY...CALL
00C2B0: 4B 4D 5F 49 4E 49 54 09 09 3B 52 65 73 65 74 20 KM_INIT..;Reset
00C2C0: 6B 65 79 73 0D 0A 09 43 41 4C 4C 20 53 45 54 5F keys...CALL SET_
00C2D0: 4B 45 59 53 09 09 3B 53 65 74 75 70 20 6B 65 79 KEYS..;Setup key
00C2E0: 73 0D 0A 09 4C 44 20 41 2C 39 0D 0A 09 4C 44 20 s...LD A,9...LD
00C2F0: 42 2C 30 0D 0A 09 4A 50 20 4B 4D 5F 53 45 54 5F B,0...JP KM_SET_
00C300: 52 45 50 45 41 54 09 3B 73 6F 20 63 6F 70 79 20 REPEAT.;so copy
00C310: 77 6F 6E 74 20 70 75 6C 6C 20 64 6F 77 6E 20 6D wont pull down m
00C320: 6F 72 65 20 74 68 61 6E 0D 0A 09 09 09 09 3B 6F ore than......;o
00C330: 6E 65 20 6D 65 6E 75 0D 0A 3B 3D 3D 3D 3D 3D 3D ne menu..;======
00C340: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00C350: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00C360: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00C370: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
00C380: 0A 2E 58 4D 4F 44 45 4D 5F 49 4E 46 4F 0D 0A 42 ..XMODEM_INFO..B
00C390: 59 54 45 20 32 39 2C 31 34 0D 0A 42 59 54 45 20 YTE 29,14..BYTE
00C3A0: 37 2C 32 30 0D 0A 42 59 54 45 20 35 0D 0A 42 59 7,20..BYTE 5..BY
00C3B0: 54 45 20 30 0D 0A 42 59 54 45 20 33 31 2C 31 35 TE 0..BYTE 31,15
00C3C0: 0D 0A 57 4F 52 44 20 30 3A 42 59 54 45 20 30 0D ..WORD 0:BYTE 0.
00C3D0: 0A 53 54 52 09 22 58 22 0D 0A 53 54 52 09 22 6D .STR."X"..STR."m
00C3E0: 22 0D 0A 53 54 52 09 22 6F 22 0D 0A 53 54 52 09 "..STR."o"..STR.
00C3F0: 22 64 22 0D 0A 53 54 52 09 22 65 22 0D 0A 53 54 "d"..STR."e"..ST
00C400: 52 09 22 6D 22 0D 0A 53 54 52 09 22 20 22 0D 0A R."m"..STR." "..
00C410: 53 54 52 09 22 56 22 0D 0A 53 54 52 09 22 33 22 STR."V"..STR."3"
00C420: 0D 0A 53 54 52 09 22 2E 22 0D 0A 53 54 52 09 22 ..STR."."..STR."
00C430: 33 22 0D 0A 53 54 52 09 22 20 22 0D 0A 53 54 52 3"..STR." "..STR
00C440: 09 22 31 22 0D 0A 53 54 52 09 22 39 22 0D 0A 53 ."1"..STR."9"..S
00C450: 54 52 09 22 39 22 0D 0A 53 54 52 09 22 31 22 0D TR."9"..STR."1".
00C460: 0A 42 59 54 45 20 09 30 0D 0A 42 59 54 45 09 30 .BYTE .0..BYTE.0
00C470: 0D 0A 42 59 54 45 09 22 43 52 43 20 20 20 20 3A ..BYTE."CRC :
00C480: 20 20 20 4E 6F 20 22 2C 30 0D 0A 42 59 54 45 09 No ",0..BYTE.
00C490: 22 42 6C 6F 63 6B 20 20 3A 22 2C 30 0D 0A 42 59 "Block :",0..BY
00C4A0: 54 45 09 22 42 79 74 65 73 20 20 3A 22 2C 30 0D TE."Bytes :",0.
00C4B0: 0A 0D 0A 2E 58 4D 4F 44 45 4D 5F 53 49 47 4E 0D ....XMODEM_SIGN.
00C4C0: 0A 42 59 54 45 20 32 39 2C 31 34 0D 0A 42 59 54 .BYTE 29,14..BYT
00C4D0: 45 20 33 2C 32 30 0D 0A 42 59 54 45 20 31 0D 0A E 3,20..BYTE 1..
00C4E0: 42 59 54 45 20 30 0D 0A 42 59 54 45 20 33 31 2C BYTE 0..BYTE 31,
00C4F0: 31 35 0D 0A 57 4F 52 44 20 30 3A 42 59 54 45 20 15..WORD 0:BYTE
00C500: 30 0D 0A 53 54 52 09 22 58 22 0D 0A 53 54 52 09 0..STR."X"..STR.
00C510: 22 6D 22 0D 0A 53 54 52 09 22 6F 22 0D 0A 53 54 "m"..STR."o"..ST
00C520: 52 09 22 64 22 0D 0A 53 54 52 09 22 65 22 0D 0A R."d"..STR."e"..
00C530: 53 54 52 09 22 6D 22 0D 0A 53 54 52 09 22 20 22 STR."m"..STR." "
00C540: 0D 0A 53 54 52 09 22 56 22 0D 0A 53 54 52 09 22 ..STR."V"..STR."
00C550: 33 22 0D 0A 53 54 52 09 22 2E 22 0D 0A 53 54 52 3"..STR."."..STR
00C560: 09 22 33 22 0D 0A 53 54 52 09 22 20 22 0D 0A 53 ."3"..STR." "..S
00C570: 54 52 09 22 31 22 0D 0A 53 54 52 09 22 39 22 0D TR."1"..STR."9".
00C580: 0A 53 54 52 09 22 39 22 0D 0A 53 54 52 09 22 31 .STR."9"..STR."1
00C590: 22 0D 0A 42 59 54 45 20 09 30 0D 0A 0D 0A 3B 59 "..BYTE .0....;Y
00C5A0: 54 45 09 22 58 6D 6F 64 65 6D 20 56 33 2E 33 20 TE."Xmodem V3.3
00C5B0: 31 39 39 31 22 2C 30 0D 0A 0D 0A 1A 0A 0D 0A 1A 1991",0.........
00C5C0: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
00C5D0: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
00C5E0: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
00C5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C600: 91 81 B1 A1 D1 C1 F1 E1 10 00 30 20 50 40 70 60 ..........0 P@p`
00C610: 83 93 A3 B3 C3 D3 E3 F3 02 12 22 32 42 52 62 72 ..£......."2BRbr
00C620: B5 A5 95 85 F5 E5 D5 C5 34 24 14 04 74 64 54 44 ........4$..tdTD
00C630: A7 B7 87 97 E7 F7 C7 D7 26 36 06 16 66 76 46 56 ........&6..fvFV
00C640: D9 C9 F9 E9 99 89 B9 A9 58 48 78 68 18 08 38 28 ........XHxh..8(
00C650: CB DB EB FB 8B 9B AB BB 4A 5A 6A 7A 0A 1A 2A 3A ........JZjz..*:
00C660: FD ED DD CD BD AD 9D 8D 7C 6C 5C 4C 3C 2C 1C 0C ........|l\L<,..
00C670: EF FF CF DF AF BF 8F 9F 6E 7E 4E 5E 2E 3E 0E 1E ........n~N^.>..
00C680: 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ................
00C690: 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F ................
00C6A0: 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F !"#$%&'()*+,-./
00C6B0: 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 0123456789:;<=>?
00C6C0: 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F @ABCDEFGHIJKLMNO
00C6D0: 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F PQRSTUVWXYZ[\]^_
00C6E0: 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F `abcdefghijklmno
00C6F0: 70 71 72 73 74 75 76 77 78 79 7A 7B 7C 7D 7E 7F pqrstuvwxyz{|}~.
00C700: 80 81 82 83 84 85 86 87 88 89 8A 8B 8C 8D 8E 8F ................
00C710: 90 91 92 93 94 95 96 97 98 99 9A 9B 9C 9D 9E 9F ................
00C720: A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE AF ...£............
00C730: B0 B1 B2 B3 B4 B5 B6 B7 B8 B9 BA BB BC BD BE BF ................
00C740: C0 C1 C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC CD CE CF ................
00C750: D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA DB DC DD DE DF ................
00C760: E0 E1 E2 E3 E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF ................
00C770: F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF ................
00C780: 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ................
00C790: 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F ................
00C7A0: 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F !"#$%&'()*+,-./
00C7B0: 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 0123456789:;<=>?
00C7C0: 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F @ABCDEFGHIJKLMNO
00C7D0: 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F PQRSTUVWXYZ[\]^_
00C7E0: 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F `abcdefghijklmno
00C7F0: 70 71 72 73 74 75 76 77 78 79 7A 7B 7C 7D 7E 08 pqrstuvwxyz{|}~.
00C800: 31 20 50 52 49 4E 54 20 22 53 74 61 72 74 69 6E 1 PRINT "Startin
00C810: 67 3E 3E 3E 22 0D 0A 0D 0A 0D 0A 4F 52 47 20 26 g>>>"......ORG &
00C820: 35 30 30 30 0D 0A 6E 6F 6C 69 73 74 0D 0A 0D 0A 5000..nolist....
00C830: 3B 20 20 20 20 09 26 34 30 30 09 42 55 46 46 45 ; .&400.BUFFE
00C840: 52 20 53 54 41 52 54 0D 0A 3B 09 26 31 30 30 30 R START..;.&1000
00C850: 09 42 55 46 46 45 52 20 45 4E 44 0D 0A 3B 09 26 .BUFFER END..;.&
00C860: 31 30 36 30 09 53 43 52 4F 4C 4C 20 42 41 43 4B 1060.SCROLL BACK
00C870: 20 53 54 41 52 54 0D 0A 3B 09 26 32 30 30 30 09 START..;.&2000.
00C880: 43 68 61 72 2F 61 6E 73 69 20 66 6F 72 6E 74 20 Char/ansi fornt
00C890: 62 75 66 66 65 72 0D 0A 3B 09 26 33 30 30 30 09 buffer..;.&3000.
00C8A0: 43 48 41 52 53 45 54 53 0D 0A 3B 09 26 34 30 30 CHARSETS..;.&400
00C8B0: 30 09 44 49 52 45 43 54 4F 52 59 20 42 55 46 46 0.DIRECTORY BUFF
00C8C0: 45 52 0D 0A 3B 09 26 34 38 30 30 09 58 4D 4F 44 ER..;.&4800.XMOD
00C8D0: 45 4D 0D 0A 3B 09 26 34 43 30 30 09 43 52 43 20 EM..;.&4C00.CRC
00C8E0: 54 41 42 4C 45 53 0D 0A 0D 0A 3B 09 26 35 30 30 TABLES....;.&500
00C8F0: 30 20 09 67 72 61 70 68 69 63 73 20 73 74 61 72 0 .graphics star
00C900: 74 0D 0A 3B 09 26 37 30 30 30 09 70 72 6F 67 72 t..;.&7000.progr
00C910: 61 6D 6D 65 20 73 74 61 72 74 0D 0A 3B 09 26 39 amme start..;.&9
00C920: 30 30 30 09 67 6C 6F 62 61 6C 20 64 61 74 61 0D 000.global data.
00C930: 0A 0D 0A 0D 0A 3B 67 72 61 70 68 69 63 73 20 75 .....;graphics u
00C940: 6E 69 74 20 73 74 61 72 74 0D 0A 67 75 20 65 71 nit start..gu eq
00C950: 75 20 26 35 30 30 30 0D 0A 0D 0A 3B 2D 2D 2D 2D u &5000....;----
00C960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00C970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
00C980: 0D 0A 6F 72 67 20 26 36 62 30 30 0D 0A 09 77 72 ..org &6b00...wr
00C990: 69 74 65 20 22 62 3A 74 65 72 6D 64 61 74 61 2E ite "b:termdata.
00C9A0: 62 69 6E 22 0D 0A 09 72 65 61 64 20 20 22 63 6F bin"...read "co
00C9B0: 6D 6D 6F 6E 22 09 09 09 3B 63 6F 6D 6D 6F 6E 20 mmon"...;common
00C9C0: 64 61 74 61 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D data......;-----
00C9D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00C9E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A ------------....
00C9F0: 6F 72 67 20 26 37 30 30 30 20 09 09 0D 0A 09 77 org &7000 .....w
00CA00: 72 69 74 65 20 22 62 3A 74 65 72 6D 65 78 63 2E rite "b:termexc.
00CA10: 62 69 6E 22 20 20 0D 0A 09 20 20 72 65 61 64 20 bin" ... read
00CA20: 22 6D 61 69 6E 22 0D 0A 09 20 20 20 20 72 65 61 "main"... rea
00CA30: 64 20 20 22 6D 65 6E 75 73 22 0D 0A 09 20 20 20 d "menus"...
00CA40: 20 72 65 61 64 20 20 22 66 69 6C 65 22 0D 0A 09 read "file"...
00CA50: 20 20 20 20 72 65 61 64 20 20 22 78 6D 6F 64 65 read "xmode
00CA60: 6D 22 0D 0A 09 20 20 20 20 72 65 61 64 20 20 22 m"... read "
00CA70: 72 73 32 33 32 22 0D 0A 09 20 20 72 65 61 64 20 rs232"... read
00CA80: 20 22 64 61 74 61 70 72 6F 67 22 0D 0A 0D 0A 3B "dataprog"....;
00CA90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CAA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CAB0: 2D 2D 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 0D 0A 1A --..end.........
00CAC0: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
00CAD0: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
00CAE0: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
00CAF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CB00: 74 0D 0A 3B 09 26 37 30 30 30 09 70 72 6F 67 72 t..;.&7000.progr
00CB10: 61 6D 6D 65 20 73 74 61 72 74 0D 0A 3B 09 26 39 amme start..;.&9
00CB20: 30 30 30 09 67 6C 6F 62 61 6C 20 64 61 74 61 0D 000.global data.
00CB30: 0A 0D 0A 0D 0A 3B 67 72 61 70 68 69 63 73 20 75 .....;graphics u
00CB40: 6E 69 74 20 73 74 61 72 74 0D 0A 67 75 20 65 71 nit start..gu eq
00CB50: 75 20 26 35 30 30 30 0D 0A 0D 0A 3B 2D 2D 2D 2D u &5000....;----
00CB60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CB70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
00CB80: 0D 0A 6F 72 67 20 26 36 62 30 30 0D 0A 09 77 72 ..org &6b00...wr
00CB90: 69 74 65 20 22 62 3A 74 65 72 6D 64 61 74 61 2E ite "b:termdata.
00CBA0: 62 69 6E 22 0D 0A 09 72 65 61 64 20 20 22 63 6F bin"...read "co
00CBB0: 6D 6D 6F 6E 22 09 09 09 3B 63 6F 6D 6D 6F 6E 20 mmon"...;common
00CBC0: 64 61 74 61 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D data......;-----
00CBD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CBE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A ------------....
00CBF0: 6F 72 67 20 26 37 30 30 30 20 09 09 0D 0A 09 77 org &7000 .....w
00CC00: 31 20 50 52 49 4E 54 20 22 53 74 61 72 74 69 6E 1 PRINT "Startin
00CC10: 67 3E 3E 3E 22 0D 0A 0D 0A 0D 0A 4F 52 47 20 26 g>>>"......ORG &
00CC20: 35 30 30 30 0D 0A 6E 6F 6C 69 73 74 0D 0A 0D 0A 5000..nolist....
00CC30: 3B 20 20 20 20 09 26 34 30 30 09 42 55 46 46 45 ; .&400.BUFFE
00CC40: 52 20 53 54 41 52 54 0D 0A 3B 09 26 31 30 30 30 R START..;.&1000
00CC50: 09 42 55 46 46 45 52 20 45 4E 44 0D 0A 3B 09 26 .BUFFER END..;.&
00CC60: 31 30 36 30 09 53 43 52 4F 4C 4C 20 42 41 43 4B 1060.SCROLL BACK
00CC70: 20 53 54 41 52 54 0D 0A 3B 09 26 32 30 30 30 09 START..;.&2000.
00CC80: 43 68 61 72 2F 61 6E 73 69 20 66 6F 72 6E 74 20 Char/ansi fornt
00CC90: 62 75 66 66 65 72 0D 0A 3B 09 26 33 30 30 30 09 buffer..;.&3000.
00CCA0: 43 48 41 52 53 45 54 53 0D 0A 3B 09 26 34 30 30 CHARSETS..;.&400
00CCB0: 30 09 44 49 52 45 43 54 4F 52 59 20 42 55 46 46 0.DIRECTORY BUFF
00CCC0: 45 52 0D 0A 3B 09 26 34 38 30 30 09 58 4D 4F 44 ER..;.&4800.XMOD
00CCD0: 45 4D 0D 0A 3B 09 26 34 43 30 30 09 43 52 43 20 EM..;.&4C00.CRC
00CCE0: 54 41 42 4C 45 53 0D 0A 0D 0A 3B 09 26 35 30 30 TABLES....;.&500
00CCF0: 30 20 09 67 72 61 70 68 69 63 73 20 73 74 61 72 0 .graphics star
00CD00: 74 0D 0A 3B 09 26 37 30 30 30 09 70 72 6F 67 72 t..;.&7000.progr
00CD10: 61 6D 6D 65 20 73 74 61 72 74 0D 0A 3B 09 26 39 amme start..;.&9
00CD20: 30 30 30 09 67 6C 6F 62 61 6C 20 64 61 74 61 0D 000.global data.
00CD30: 0A 0D 0A 0D 0A 3B 67 72 61 70 68 69 63 73 20 75 .....;graphics u
00CD40: 6E 69 74 20 73 74 61 72 74 0D 0A 67 75 20 65 71 nit start..gu eq
00CD50: 75 20 26 35 30 30 30 0D 0A 0D 0A 3B 2D 2D 2D 2D u &5000....;----
00CD60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CD70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
00CD80: 0D 0A 6F 72 67 20 26 36 62 30 30 0D 0A 09 77 72 ..org &6b00...wr
00CD90: 69 74 65 20 22 62 3A 74 65 72 6D 64 61 74 61 2E ite "b:termdata.
00CDA0: 62 69 6E 22 0D 0A 09 72 65 61 64 20 20 22 63 6F bin"...read "co
00CDB0: 6D 6D 6F 6E 22 09 09 09 3B 63 6F 6D 6D 6F 6E 20 mmon"...;common
00CDC0: 64 61 74 61 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D data....;-------
00CDD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CDE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 6F -----------....o
00CDF0: 72 67 20 26 35 30 30 30 0D 0A 09 77 72 69 74 65 rg &5000...write
00CE00: 20 22 62 3A 74 65 78 74 64 72 76 2E 62 69 6E 22 "b:textdrv.bin"
00CE10: 20 0D 0A 09 20 20 72 65 61 64 20 20 22 74 65 78 ... read "tex
00CE20: 74 69 6E 69 22 0D 0A 09 20 20 20 20 72 65 61 64 tini"... read
00CE30: 20 20 22 61 6E 73 69 22 0D 0A 09 20 20 20 20 72 "ansi"... r
00CE40: 65 61 64 20 20 22 74 65 78 74 73 79 73 22 0D 0A ead "textsys"..
00CE50: 09 20 20 20 20 72 65 61 64 20 20 22 77 69 6E 64 . read "wind
00CE60: 6F 77 22 0D 0A 09 20 20 72 65 61 64 20 20 22 64 ow"... read "d
00CE70: 61 74 61 74 65 78 74 22 0D 0A 0D 0A 0D 0A 3B 2D atatext"......;-
00CE80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CE90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CEA0: 2D 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 2D 2D 2D 2D -..end......----
00CEB0: 2D 2D 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 0D 0A 1A --..end.........
00CEC0: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
00CED0: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
00CEE0: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
00CEF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF00: 74 0D 0A 3B 09 26 37 30 30 30 09 70 72 6F 67 72 t..;.&7000.progr
00CF10: 61 6D 6D 65 20 73 74 61 72 74 0D 0A 3B 09 26 39 amme start..;.&9
00CF20: 30 30 30 09 67 6C 6F 62 61 6C 20 64 61 74 61 0D 000.global data.
00CF30: 0A 0D 0A 0D 0A 3B 67 72 61 70 68 69 63 73 20 75 .....;graphics u
00CF40: 6E 69 74 20 73 74 61 72 74 0D 0A 67 75 20 65 71 nit start..gu eq
00CF50: 75 20 26 35 30 30 30 0D 0A 0D 0A 3B 2D 2D 2D 2D u &5000....;----
00CF60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CF70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
00CF80: 0D 0A 6F 72 67 20 26 36 62 30 30 0D 0A 09 77 72 ..org &6b00...wr
00CF90: 69 74 65 20 22 62 3A 74 65 72 6D 64 61 74 61 2E ite "b:termdata.
00CFA0: 62 69 6E 22 0D 0A 09 72 65 61 64 20 20 22 63 6F bin"...read "co
00CFB0: 6D 6D 6F 6E 22 09 09 09 3B 63 6F 6D 6D 6F 6E 20 mmon"...;common
00CFC0: 64 61 74 61 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D data....;-------
00CFD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CFE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 6F -----------....o
00CFF0: 72 67 20 26 35 30 30 30 0D 0A 09 77 72 69 74 65 rg &5000...write
00D000: 31 20 70 72 69 6E 74 20 22 57 69 6E 64 6F 77 69 1 print "Windowi
00D010: 6E 67 20 53 79 73 74 65 6D 22 0D 0A 0D 0A 3B 2D ng System"....;-
00D020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B -------------..;
00D040: 09 50 55 4C 4C 44 4F 57 4E 20 41 20 4D 45 4E 55 .PULLDOWN A MENU
00D050: 2F 4D 4F 56 45 2F 43 41 4C 4C 2F 43 4C 41 45 52 /MOVE/CALL/CLAER
00D060: 2F 52 45 54 0D 0A 3B 09 45 4E 54 52 59 20 49 58 /RET..;.ENTRY IX
00D070: 20 41 53 20 50 4F 49 4E 54 45 52 0D 0A 3B 09 45 AS POINTER..;.E
00D080: 58 49 54 20 3F 3F 0D 0A 3B 0D 0A 3B 2D 2D 2D 2D XIT ??..;..;----
00D090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D0A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
00D0B0: 2E 50 55 4C 4C 44 4F 57 4E 0D 0A 09 43 41 4C 4C .PULLDOWN...CALL
00D0C0: 20 4D 42 4F 52 44 45 52 09 09 3B 20 50 72 69 6E MBORDER..; Prin
00D0D0: 74 20 62 6F 72 64 65 72 0D 0A 09 43 41 4C 4C 20 t border...CALL
00D0E0: 4D 50 52 49 4E 54 09 09 3B 20 50 72 69 6E 74 20 MPRINT..; Print
00D0F0: 74 65 78 74 0D 0A 0D 0A 2E 50 44 4F 57 4E 31 09 text.....PDOWN1.
00D100: 50 55 53 48 20 49 58 09 09 09 3B 20 53 61 76 65 PUSH IX...; Save
00D110: 20 49 58 0D 0A 09 4C 44 20 41 2C 28 49 58 2B 31 IX...LD A,(IX+1
00D120: 30 29 0D 0A 09 43 50 20 26 46 46 09 09 09 3B 20 0)...CP &FF...;
00D130: 49 66 20 26 46 46 20 74 68 65 6E 20 64 6F 6E 74 If &FF then dont
00D140: 20 73 65 74 20 59 0D 0A 09 4A 52 20 4E 5A 2C 50 set Y...JR NZ,P
00D150: 44 4F 57 4E 32 0D 0A 09 58 4F 52 20 41 09 09 09 DOWN2...XOR A...
00D160: 3B 20 52 65 73 65 74 0D 0A 2E 50 44 4F 57 4E 32 ; Reset...PDOWN2
00D170: 09 4C 44 20 28 4D 43 55 52 59 29 2C 41 09 09 3B .LD (MCURY),A..;
00D180: 20 53 65 74 20 79 0D 0A 09 43 41 4C 4C 20 4D 45 Set y...CALL ME
00D190: 4E 55 5F 43 55 52 53 4F 52 09 3B 20 4D 6F 76 65 NU_CURSOR.; Move
00D1A0: 20 63 75 72 73 6F 72 0D 0A 0D 0A 2E 50 44 4F 57 cursor.....PDOW
00D1B0: 4E 33 0D 0A 20 09 4A 50 20 43 2C 50 55 4C 4C 53 N3.. .JP C,PULLS
00D1C0: 43 09 09 3B 20 52 65 74 75 72 6E 65 64 20 66 6F C..; Returned fo
00D1D0: 72 6D 20 6D 63 75 72 73 6F 72 2E 0D 0A 09 43 50 rm mcursor....CP
00D1E0: 20 26 46 43 0D 0A 09 4A 52 20 5A 2C 50 55 4C 4C &FC...JR Z,PULL
00D1F0: 53 43 0D 0A 09 43 41 4C 4C 20 43 4C 45 41 52 5F SC...CALL CLEAR_
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 4E E5 0B 00 C1 02 00 00 00 02 ......N.........
00D220: 0B 00 C2 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D230: 0B 00 C4 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D240: 0B 00 C6 02 00 00 00 02 0B 00 C7 02 00 00 00 02 ................
00D250: 0B 00 C8 02 00 00 00 02 0B 00 C9 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 4B 45 59 53 09 09 3B 20 43 6C 65 61 72 20 74 68 KEYS..; Clear th
00D310: 65 20 62 75 66 66 65 72 0D 0A 09 43 41 4C 4C 20 e buffer...CALL
00D320: 50 55 4C 4C 4A 50 09 09 3B 20 43 41 4C 4C 20 53 PULLJP..; CALL S
00D330: 55 42 53 20 48 45 52 45 21 21 21 0D 0A 0D 0A 0D UBS HERE!!!.....
00D340: 0A 09 50 4F 50 20 49 58 09 09 09 3B 20 47 65 74 ..POP IX...; Get
00D350: 20 6C 61 73 74 20 49 58 0D 0A 09 43 50 20 26 46 last IX...CP &F
00D360: 46 0D 0A 09 4A 52 20 5A 2C 50 55 4C 4C 44 4F 57 F...JR Z,PULLDOW
00D370: 4E 09 09 3B 20 49 66 20 26 46 46 20 70 75 6C 6C N..; If &FF pull
00D380: 64 6F 77 6E 20 61 67 61 69 6E 20 2D 20 72 65 70 down again - rep
00D390: 72 69 6E 74 0D 0A 3B 09 43 50 20 26 46 45 0D 0A rint..;.CP &FE..
00D3A0: 3B 09 4A 50 20 5A 2C 50 44 4F 57 4E 31 09 09 3B ;.JP Z,PDOWN1..;
00D3B0: 20 49 66 20 26 46 45 20 74 68 65 6E 20 72 65 74 If &FE then ret
00D3C0: 75 72 6E 20 2D 20 74 72 61 64 69 74 69 6F 6E 61 urn - traditiona
00D3D0: 6C 20 65 73 63 20 63 6F 64 65 0D 0A 09 58 4F 52 l esc code...XOR
00D3E0: 20 41 0D 0A 09 52 45 54 09 09 09 3B 72 65 74 0D A...RET...;ret.
00D3F0: 0A 2E 50 55 4C 4C 53 43 0D 0A 09 50 4F 50 20 49 ..PULLSC...POP I
00D400: 58 0D 0A 09 50 55 53 48 20 41 46 0D 0A 09 43 41 X...PUSH AF...CA
00D410: 4C 4C 20 57 49 4E 44 4F 57 5F 57 49 50 45 09 3B LL WINDOW_WIPE.;
00D420: 63 6C 65 61 72 20 77 69 6E 64 6F 77 0D 0A 20 20 clear window..
00D430: 20 20 20 20 20 20 50 4F 50 20 41 46 09 09 09 3B POP AF...;
00D440: 67 65 74 20 26 66 63 2F 39 2F 38 20 20 2D 20 6C get &fc/9/8 - l
00D450: 61 73 74 20 6B 65 79 3F 20 2D 20 6D 6F 76 65 20 ast key? - move
00D460: 6C 65 66 74 20 72 69 67 68 74 0D 0A 09 52 45 54 left right...RET
00D470: 0D 0A 0D 0A 2E 50 55 4C 4C 4A 50 09 4A 50 20 28 .....PULLJP.JP (
00D480: 48 4C 29 09 09 09 3B 64 6F 65 73 20 61 20 43 41 HL)...;does a CA
00D490: 4C 4C 20 28 48 4C 29 20 69 66 20 79 6F 75 20 63 LL (HL) if you c
00D4A0: 61 6C 6C 20 74 68 69 73 0D 0A 0D 0A 0D 0A 0D 0A all this........
00D4B0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
00D4C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D4D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 ------------..;.
00D4E0: 50 72 69 6E 74 20 6F 6E 20 74 68 65 20 73 63 72 Print on the scr
00D4F0: 65 65 6E 20 66 72 6F 6D 20 62 75 66 66 65 72 73 een from buffers
00D500: 0D 0A 3B 09 45 6E 74 72 79 20 20 20 48 3D 78 2C ..;.Entry H=x,
00D510: 4C 3D 79 20 20 20 43 3D 48 65 69 67 68 74 2C 20 L=y C=Height,
00D520: 42 3D 57 69 64 74 68 0D 0A 3B 09 55 73 65 64 20 B=Width..;.Used
00D530: 61 6C 6C 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D all..;----------
00D540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D560: 2D 0D 0A 2E 57 69 6E 64 6F 77 0D 0A 09 43 41 4C -...Window...CAL
00D570: 4C 20 57 41 49 54 5F 46 4C 59 09 09 3B 74 69 6D L WAIT_FLY..;tim
00D580: 65 0D 0A 09 4C 44 20 28 57 49 4E 58 59 29 2C 48 e...LD (WINXY),H
00D590: 4C 09 09 3B 73 61 76 65 20 78 2C 79 0D 0A 09 4C L..;save x,y...L
00D5A0: 44 20 41 2C 42 0D 0A 09 4C 44 20 28 57 49 4E 57 D A,B...LD (WINW
00D5B0: 49 44 54 48 29 2C 41 09 09 3B 73 61 76 65 20 77 IDTH),A..;save w
00D5C0: 69 64 74 68 20 6F 66 20 77 69 6E 64 6F 77 0D 0A idth of window..
00D5D0: 2E 57 49 4E 4C 50 20 20 20 43 41 4C 4C 20 53 63 .WINLP CALL Sc
00D5E0: 72 5F 41 64 64 72 65 73 73 09 3B 63 61 6C 6B 20 r_Address.;calk
00D5F0: 61 64 64 72 65 73 73 20 6F 66 20 66 61 72 20 6C address of far l
00D600: 65 66 74 0D 0A 09 4C 44 20 28 57 49 4E 41 44 44 eft...LD (WINADD
00D610: 29 2C 48 4C 09 09 3B 73 61 76 65 20 61 64 64 0D ),HL..;save add.
00D620: 0A 09 4C 44 20 48 4C 2C 28 57 49 4E 58 59 29 0D ..LD HL,(WINXY).
00D630: 0A 09 43 41 4C 4C 20 47 65 74 61 64 64 72 65 73 ..CALL Getaddres
00D640: 73 09 09 3B 66 69 6E 64 20 61 64 64 72 65 73 73 s..;find address
00D650: 20 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
00D660: 28 57 49 4E 57 49 44 54 48 29 09 09 0D 0A 09 4C (WINWIDTH).....L
00D670: 44 20 42 2C 41 09 09 09 3B 62 3D 77 69 64 74 68 D B,A...;b=width
00D680: 0D 0A 2E 57 49 4E 4C 50 32 09 50 55 53 48 20 42 ...WINLP2.PUSH B
00D690: 43 09 09 09 3B 73 61 76 65 20 77 69 64 74 68 2F C...;save width/
00D6A0: 68 65 69 67 68 74 0D 0A 09 4C 44 20 41 2C 48 0D height...LD A,H.
00D6B0: 0A 09 41 44 44 20 26 38 0D 0A 09 4C 44 20 48 2C ..ADD &8...LD H,
00D6C0: 41 09 09 09 3B 61 64 64 20 26 38 30 30 20 2D 20 A...;add &800 -
00D6D0: 6F 72 20 32 4B 0D 0A 09 4C 44 20 43 2C 28 48 4C or 2K...LD C,(HL
00D6E0: 29 09 09 3B 47 65 74 20 66 6F 6E 74 0D 0A 09 53 )..;Get font...S
00D6F0: 55 42 20 26 38 0D 0A 09 4C 44 20 48 2C 41 09 09 UB &8...LD H,A..
00D700: 09 3B 73 65 74 20 62 61 63 6B 0D 0A 20 20 20 20 .;set back..
00D710: 20 20 20 20 4C 44 20 42 2C 28 48 4C 29 09 09 3B LD B,(HL)..;
00D720: 67 65 74 20 63 68 61 72 0D 0A 09 50 55 53 48 20 get char...PUSH
00D730: 48 4C 09 09 09 3B 53 41 56 45 20 41 44 44 20 49 HL...;SAVE ADD I
00D740: 4E 20 42 55 46 46 45 52 0D 0A 09 4C 44 20 41 2C N BUFFER...LD A,
00D750: 43 0D 0A 09 4F 52 20 41 0D 0A 09 4A 50 20 4E 5A C...OR A...JP NZ
00D760: 2C 57 49 4E 4C 50 35 09 09 3B 41 4C 4C 20 46 4F ,WINLP5..;ALL FO
00D770: 4E 54 53 20 4F 46 46 0D 0A 09 43 50 20 33 32 0D NTS OFF...CP 32.
00D780: 0A 09 4A 50 20 5A 2C 57 69 6E 73 6D 61 73 68 09 ..JP Z,Winsmash.
00D790: 09 3B 70 72 69 6E 74 20 61 20 62 6C 61 6E 6B 20 .;print a blank
00D7A0: 63 65 6C 6C 0D 0A 2E 57 49 4E 4C 50 35 20 42 49 cell...WINLP5 BI
00D7B0: 54 20 34 2C 43 09 0D 0A 09 4A 50 20 4E 5A 2C 57 T 4,C....JP NZ,W
00D7C0: 69 6E 73 6D 61 73 68 09 09 3B 69 66 20 73 6D 61 insmash..;if sma
00D7D0: 73 68 65 64 20 74 68 65 6E 20 62 6C 61 6E 6B 20 shed then blank
00D7E0: 73 65 6C 6C 0D 0A 20 20 20 20 20 20 20 20 4C 44 sell.. LD
00D7F0: 20 41 2C 42 0D 0A 09 4C 44 20 48 4C 2C 57 69 6E A,B...LD HL,Win
00D800: 64 6F 77 43 68 61 72 09 3B 62 75 66 66 65 72 0D dowChar.;buffer.
00D810: 0A 09 43 41 4C 4C 20 57 49 4E 46 4F 4E 54 09 09 ..CALL WINFONT..
00D820: 3B 73 65 74 20 6D 61 69 6E 20 66 6F 6E 74 0D 0A ;set main font..
00D830: 0D 0A 09 42 49 54 20 32 2C 43 0D 0A 09 43 41 4C ...BIT 2,C...CAL
00D840: 4C 20 4E 5A 2C 55 6E 64 65 72 5F 72 74 6E 0D 0A L NZ,Under_rtn..
00D850: 09 42 49 54 20 31 2C 43 0D 0A 09 43 41 4C 4C 20 .BIT 1,C...CALL
00D860: 4E 5A 2C 49 74 61 6C 69 63 5F 72 74 6E 09 0D 0A NZ,Italic_rtn...
00D870: 09 42 49 54 20 33 2C 43 09 0D 0A 09 43 41 4C 4C .BIT 3,C....CALL
00D880: 20 4E 5A 2C 49 6E 76 65 72 73 65 09 09 3B 20 65 NZ,Inverse..; e
00D890: 74 63 20 2E 2E 20 65 74 63 2E 2E 2E 0D 0A 0D 0A tc .. etc.......
00D8A0: 09 45 58 20 48 4C 2C 44 45 09 09 3B 64 65 3D 62 .EX HL,DE..;de=b
00D8B0: 75 66 66 65 72 0D 0A 09 4C 44 20 48 4C 2C 28 57 uffer...LD HL,(W
00D8C0: 49 4E 41 44 44 29 09 09 3B 68 6C 20 0D 0A 09 43 INADD)..;hl ...C
00D8D0: 41 4C 4C 20 41 4E 53 49 43 48 41 52 0D 0A 0D 0A ALL ANSICHAR....
00D8E0: 2E 57 49 4E 4C 50 33 09 4C 44 20 48 4C 2C 28 57 .WINLP3.LD HL,(W
00D8F0: 49 4E 41 44 44 29 09 09 3B 68 6C 20 0D 0A 09 43 INADD)..;hl ...C
00D900: 41 4C 4C 20 4E 45 58 54 42 59 54 45 09 09 3B 75 ALL NEXTBYTE..;u
00D910: 70 64 61 74 61 20 73 63 72 20 62 79 74 65 73 0D pdata scr bytes.
00D920: 0A 20 20 20 20 20 20 20 20 4C 44 20 28 57 49 4E . LD (WIN
00D930: 41 44 44 29 2C 48 4C 09 09 3B 73 61 76 65 20 0D ADD),HL..;save .
00D940: 0A 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 09 . POP HL.
00D950: 09 09 3B 67 65 74 20 62 75 66 66 65 72 0D 0A 20 ..;get buffer..
00D960: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 09 09 09 INC HL...
00D970: 3B 6E 65 78 74 20 62 79 74 65 20 69 6E 20 62 75 ;next byte in bu
00D980: 66 66 65 72 0D 0A 2E 57 49 4E 31 09 50 4F 50 20 ffer...WIN1.POP
00D990: 42 43 09 09 09 3B 67 65 74 20 6C 6F 6F 70 20 63 BC...;get loop c
00D9A0: 6F 75 6E 74 65 72 73 0D 0A 09 44 4A 4E 5A 20 57 ounters...DJNZ W
00D9B0: 49 4E 4C 50 32 09 09 3B 6C 6F 6F 70 20 77 69 64 INLP2..;loop wid
00D9C0: 74 68 0D 0A 09 4C 44 20 48 4C 2C 28 57 49 4E 58 th...LD HL,(WINX
00D9D0: 59 29 0D 0A 09 49 4E 43 20 4C 09 09 09 3B 69 6E Y)...INC L...;in
00D9E0: 63 20 59 0D 0A 09 4C 44 20 28 57 49 4E 58 59 29 c Y...LD (WINXY)
00D9F0: 2C 48 4C 0D 0A 09 44 45 43 20 43 09 09 09 3B 64 ,HL...DEC C...;d
00DA00: 65 63 20 68 65 69 67 68 74 0D 0A 09 4A 50 20 4E ec height...JP N
00DA10: 5A 2C 57 49 4E 4C 50 09 09 3B 6A 70 20 69 66 20 Z,WINLP..;jp if
00DA20: 6E 6F 74 20 30 20 0D 0A 09 58 4F 52 20 41 0D 0A not 0 ...XOR A..
00DA30: 09 52 45 54 0D 0A 0D 0A 2E 57 49 4E 53 4D 41 53 .RET.....WINSMAS
00DA40: 48 0D 0A 09 4C 44 20 48 4C 2C 28 57 49 4E 41 44 H...LD HL,(WINAD
00DA50: 44 29 0D 0A 09 58 4F 52 20 41 0D 0A 09 43 41 4C D)...XOR A...CAL
00DA60: 4C 20 43 45 4C 4C 32 0D 0A 09 4A 52 20 57 49 4E L CELL2...JR WIN
00DA70: 4C 50 33 0D 0A 0D 0A 2E 57 49 4E 46 4F 4E 54 0D LP3.....WINFONT.
00DA80: 0A 09 42 49 54 20 37 2C 41 0D 0A 09 4A 50 20 4E ..BIT 7,A...JP N
00DA90: 5A 2C 47 65 74 63 68 61 72 61 63 74 65 72 0D 0A Z,Getcharacter..
00DAA0: 09 42 49 54 20 35 2C 43 0D 0A 09 4A 50 20 4E 5A .BIT 5,C...JP NZ
00DAB0: 2C 46 65 69 6E 74 5F 72 74 6E 0D 0A 09 42 49 54 ,Feint_rtn...BIT
00DAC0: 20 30 2C 43 0D 0A 09 4A 50 20 4E 5A 2C 42 6F 6C 0,C...JP NZ,Bol
00DAD0: 64 5F 72 74 6E 0D 0A 09 4A 50 20 47 65 74 63 68 d_rtn...JP Getch
00DAE0: 61 72 61 63 74 65 72 0D 0A 0D 0A 0D 0A 2E 52 4F aracter.......RO
00DAF0: 4C 4C 44 4F 57 4E 0D 0A 09 50 55 53 48 20 41 46 LLDOWN...PUSH AF
00DB00: 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 3B 09 43 41 ...PUSH HL..;.CA
00DB10: 4C 4C 20 4A 42 55 46 46 45 52 5F 52 4F 4C 4C 0D LL JBUFFER_ROLL.
00DB20: 0A 09 4C 44 20 44 45 2C 26 46 46 44 30 0D 0A 09 ..LD DE,&FFD0...
00DB30: 4C 44 20 42 2C 26 33 30 0D 0A 09 43 41 4C 4C 20 LD B,&30...CALL
00DB40: 52 4C 5F 43 4C 45 41 52 0D 0A 09 4C 44 20 48 4C RL_CLEAR...LD HL
00DB50: 2C 28 52 4C 5F 4F 46 46 53 45 54 29 0D 0A 09 4C ,(RL_OFFSET)...L
00DB60: 44 20 44 45 2C 26 46 46 42 30 0D 0A 09 41 44 44 D DE,&FFB0...ADD
00DB70: 20 48 4C 2C 44 45 0D 0A 09 43 41 4C 4C 20 52 4C HL,DE...CALL RL
00DB80: 5F 53 45 54 5F 4F 46 46 53 45 54 0D 0A 20 20 20 _SET_OFFSET..
00DB90: 20 20 20 20 20 4C 44 20 44 45 2C 26 30 0D 0A 09 LD DE,&0...
00DBA0: 4C 44 20 42 2C 26 32 30 0D 0A 09 43 41 4C 4C 20 LD B,&20...CALL
00DBB0: 52 4C 5F 43 4C 45 41 52 0D 0A 09 50 4F 50 20 48 RL_CLEAR...POP H
00DBC0: 4C 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 52 45 54 L...POP AF...RET
00DBD0: 0D 0A 0D 0A 2E 52 4F 4C 4C 55 50 0D 0A 09 50 55 .....ROLLUP...PU
00DBE0: 53 48 20 41 46 0D 0A 09 50 55 53 48 20 48 4C 0D SH AF...PUSH HL.
00DBF0: 0A 09 43 41 4C 4C 20 4A 42 55 46 46 45 52 5F 52 ..CALL JBUFFER_R
00DC00: 4F 4C 4C 0D 0A 09 4C 44 20 44 45 2C 26 46 46 44 OLL...LD DE,&FFD
00DC10: 30 0D 0A 09 4C 44 20 42 2C 26 33 30 0D 0A 09 43 0...LD B,&30...C
00DC20: 41 4C 4C 20 52 4C 5F 43 4C 45 41 52 0D 0A 09 4C ALL RL_CLEAR...L
00DC30: 44 20 48 4C 2C 28 52 4C 5F 4F 46 46 53 45 54 29 D HL,(RL_OFFSET)
00DC40: 0D 0A 09 4C 44 20 44 45 2C 26 35 30 0D 0A 09 41 ...LD DE,&50...A
00DC50: 44 44 20 48 4C 2C 44 45 0D 0A 09 43 41 4C 4C 20 DD HL,DE...CALL
00DC60: 52 4C 5F 53 45 54 5F 4F 46 46 53 45 54 0D 0A 20 RL_SET_OFFSET..
00DC70: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 26 46 46 LD DE,&FF
00DC80: 42 30 0D 0A 09 4C 44 20 42 2C 26 32 30 0D 0A 09 B0...LD B,&20...
00DC90: 43 41 4C 4C 20 52 4C 5F 43 4C 45 41 52 0D 0A 09 CALL RL_CLEAR...
00DCA0: 50 4F 50 20 48 4C 0D 0A 09 50 4F 50 20 41 46 0D POP HL...POP AF.
00DCB0: 0A 09 52 45 54 0D 0A 2E 52 4C 5F 43 4C 45 41 52 ..RET...RL_CLEAR
00DCC0: 0D 0A 09 4C 44 20 48 4C 2C 28 52 4C 5F 4F 46 46 ...LD HL,(RL_OFF
00DCD0: 53 45 54 29 0D 0A 09 41 44 44 20 48 4C 2C 44 45 SET)...ADD HL,DE
00DCE0: 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 4E 44 20 ...LD A,H...AND
00DCF0: 26 37 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 4C 44 &7...LD H,A...LD
00DD00: 20 41 2C 26 43 30 0D 0A 09 41 44 44 20 41 2C 48 A,&C0...ADD A,H
00DD10: 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 4C 44 20 44 ...LD H,A...LD D
00DD20: 2C 42 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 45 ,B.. LD E
00DD30: 2C 38 0D 0A 2E 52 4C 5F 43 4C 52 20 20 4C 44 20 ,8...RL_CLR LD
00DD40: 42 2C 44 0D 0A 20 20 20 20 20 20 20 20 50 55 53 B,D.. PUS
00DD50: 48 20 48 4C 0D 0A 2E 52 4C 5F 43 4C 32 09 4C 44 H HL...RL_CL2.LD
00DD60: 20 28 48 4C 29 2C 30 0D 0A 09 49 4E 43 20 4C 0D (HL),0...INC L.
00DD70: 0A 09 4A 52 20 4E 5A 2C 52 4C 5F 43 4C 33 0D 0A ..JR NZ,RL_CL3..
00DD80: 09 49 4E 43 20 48 0D 0A 20 20 20 20 20 20 20 20 .INC H..
00DD90: 4C 44 20 41 2C 48 0D 0A 09 41 4E 44 20 26 37 0D LD A,H...AND &7.
00DDA0: 0A 09 4A 52 20 4E 5A 2C 52 4C 5F 43 4C 33 0D 0A ..JR NZ,RL_CL3..
00DDB0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 48 0D 0A LD A,H..
00DDC0: 09 53 55 42 20 26 38 0D 0A 09 4C 44 20 48 2C 41 .SUB &8...LD H,A
00DDD0: 09 0D 0A 2E 52 4C 5F 43 4C 33 20 44 4A 4E 5A 20 ....RL_CL3 DJNZ
00DDE0: 52 4C 5F 43 4C 32 0D 0A 09 50 4F 50 20 48 4C 0D RL_CL2...POP HL.
00DDF0: 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C 48 0D . LD A,H.
00DE00: 0A 09 41 44 44 20 38 0D 0A 09 4C 44 20 48 2C 41 ..ADD 8...LD H,A
00DE10: 0D 0A 20 20 20 20 20 20 20 20 44 45 43 20 45 0D .. DEC E.
00DE20: 0A 09 4A 52 20 4E 5A 2C 52 4C 5F 43 4C 52 0D 0A ..JR NZ,RL_CLR..
00DE30: 20 20 20 20 20 20 20 20 52 45 54 0D 0A 0D 0A 0D RET.....
00DE40: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
00DE50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DE60: 2D 0D 0A 3B 09 50 52 49 4E 54 20 54 48 45 20 4D -..;.PRINT THE M
00DE70: 45 4E 55 20 42 4F 52 44 45 52 0D 0A 3B 09 45 4E ENU BORDER..;.EN
00DE80: 54 52 59 20 49 58 20 70 6F 69 6E 74 73 20 74 6F TRY IX points to
00DE90: 20 69 6E 66 6F 0D 0A 3B 09 45 58 49 54 20 4E 4F info..;.EXIT NO
00DEA0: 4E 45 0D 0A 3B 09 55 53 45 44 20 41 4C 4C 0D 0A NE..;.USED ALL..
00DEB0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
00DEC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
00DED0: 0A 2E 4D 42 4F 52 44 45 52 0D 0A 09 4C 44 20 48 ..MBORDER...LD H
00DEE0: 2C 28 49 58 2B 30 29 0D 0A 09 4C 44 20 4C 2C 28 ,(IX+0)...LD L,(
00DEF0: 49 58 2B 31 29 09 09 3B 48 4C 3D 58 2C 59 0D 0A IX+1)..;HL=X,Y..
00DF00: 09 43 41 4C 4C 20 53 43 52 5F 41 44 44 52 45 53 .CALL SCR_ADDRES
00DF10: 53 09 3B 48 4C 3D 73 63 72 20 61 64 64 72 65 73 S.;HL=scr addres
00DF20: 73 0D 0A 09 43 41 4C 4C 20 4D 4C 49 4E 45 09 09 s...CALL MLINE..
00DF30: 3B 70 72 69 6E 74 20 74 6F 70 20 6C 69 6E 65 0D ;print top line.
00DF40: 0A 09 0D 0A 09 4C 44 20 41 2C 28 49 58 2B 32 29 .....LD A,(IX+2)
00DF50: 09 09 3B 61 3D 68 65 69 67 68 74 0D 0A 09 41 44 ..;a=height...AD
00DF60: 44 20 41 0D 0A 09 41 44 44 20 41 0D 0A 09 41 44 D A...ADD A...AD
00DF70: 44 20 41 09 09 09 3B 2A 38 0D 0A 09 53 55 42 20 D A...;*8...SUB
00DF80: 32 09 09 09 3B 61 3D 68 65 69 67 68 74 2A 38 2D 2...;a=height*8-
00DF90: 32 0D 0A 20 09 4C 44 20 43 2C 41 09 09 09 3B 63 2.. .LD C,A...;c
00DFA0: 3D 61 0D 0A 09 4C 44 20 42 2C 28 49 58 2B 33 29 =a...LD B,(IX+3)
00DFB0: 09 09 3B 3D 77 69 64 74 68 0D 0A 09 44 45 43 20 ..;=width...DEC
00DFC0: 42 0D 0A 09 44 45 43 20 42 09 09 09 3B 77 69 64 B...DEC B...;wid
00DFD0: 74 68 2D 32 0D 0A 20 20 20 20 20 20 20 20 4C 44 th-2.. LD
00DFE0: 20 44 2C 30 09 09 09 0D 0A 2E 4D 42 4C 50 31 0D D,0......MBLP1.
00DFF0: 0A 09 50 55 53 48 20 48 4C 0D 0A 09 4C 44 20 28 ..PUSH HL...LD (
00E000: 48 4C 29 2C 25 31 31 30 30 30 30 30 30 20 20 20 HL),%11000000
00E010: 20 20 20 20 3B 6C 65 66 74 20 62 69 74 20 6F 66 ;left bit of
00E020: 20 62 6F 72 64 65 72 0D 0A 09 49 4E 43 20 48 4C border...INC HL
00E030: 0D 0A 09 4C 44 20 45 2C 42 0D 0A 2E 4D 42 4C 50 ...LD E,B...MBLP
00E040: 32 09 4C 44 20 28 48 4C 29 2C 44 0D 0A 09 43 41 2.LD (HL),D...CA
00E050: 4C 4C 20 4E 45 58 54 42 59 54 45 0D 0A 09 44 4A LL NEXTBYTE...DJ
00E060: 4E 5A 20 4D 42 4C 50 32 09 09 3B 63 6C 65 61 72 NZ MBLP2..;clear
00E070: 20 69 6E 20 62 65 74 77 65 65 6E 20 62 79 74 65 in between byte
00E080: 73 0D 0A 09 4C 44 20 42 2C 45 0D 0A 09 4C 44 20 s...LD B,E...LD
00E090: 28 48 4C 29 2C 25 30 30 30 30 30 30 31 31 09 3B (HL),%00000011.;
00E0A0: 72 69 67 68 74 20 62 69 74 20 6F 66 20 77 69 6E right bit of win
00E0B0: 64 6F 77 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 43 dow...POP HL...C
00E0C0: 41 4C 4C 20 4E 45 58 54 4C 49 4E 45 09 09 3B 6E ALL NEXTLINE..;n
00E0D0: 65 78 74 6C 69 6E 65 0D 0A 09 44 45 43 20 43 0D extline...DEC C.
00E0E0: 0A 09 4A 52 20 4E 5A 2C 4D 42 4C 50 31 09 09 3B ..JR NZ,MBLP1..;
00E0F0: 66 6F 72 20 68 65 69 67 68 74 2A 38 2D 32 0D 0A for height*8-2..
00E100: 09 43 41 4C 4C 20 4D 4C 49 4E 45 09 09 3B 62 6F .CALL MLINE..;bo
00E110: 74 74 6F 6D 20 6C 69 6E 65 0D 0A 09 52 45 54 09 ttom line...RET.
00E120: 09 09 3B 72 65 74 0D 0A 0D 0A 2E 4D 4C 49 4E 45 ..;ret.....MLINE
00E130: 0D 0A 09 50 55 53 48 20 48 4C 09 09 09 3B 64 3D ...PUSH HL...;d=
00E140: 66 69 6C 6C 65 72 62 79 74 65 0D 0A 09 4C 44 20 fillerbyte...LD
00E150: 44 2C 32 35 35 0D 0A 09 4C 44 20 42 2C 28 49 58 D,255...LD B,(IX
00E160: 2B 33 29 09 09 3B 77 69 64 74 68 0D 0A 2E 4D 42 +3)..;width...MB
00E170: 4C 50 33 09 0D 0A 09 4C 44 20 28 48 4C 29 2C 44 LP3....LD (HL),D
00E180: 0D 0A 09 43 41 4C 4C 20 4E 45 58 54 42 59 54 45 ...CALL NEXTBYTE
00E190: 09 09 0D 0A 09 44 4A 4E 5A 20 4D 42 4C 50 33 09 .....DJNZ MBLP3.
00E1A0: 09 3B 66 69 6C 6C 0D 0A 09 50 4F 50 20 48 4C 0D .;fill...POP HL.
00E1B0: 0A 09 43 41 4C 4C 20 4E 45 58 54 4C 49 4E 45 0D ..CALL NEXTLINE.
00E1C0: 0A 09 52 45 54 09 09 09 3B 72 65 74 0D 0A 0D 0A ..RET...;ret....
00E1D0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
00E1E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E1F0: 2D 2D 0D 0A 3B 09 50 52 49 4E 54 20 41 20 4D 45 --..;.PRINT A ME
00E200: 4E 55 0D 0A 3B 09 45 4E 54 52 59 20 49 58 20 70 NU..;.ENTRY IX p
00E210: 6F 69 6E 74 73 20 74 6F 20 69 6E 66 6F 0D 0A 3B oints to info..;
00E220: 09 45 58 49 54 09 6E 6F 6E 65 0D 0A 3B 09 55 53 .EXIT.none..;.US
00E230: 45 44 09 61 6C 6C 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D ED.all..;-------
00E240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4D 50 -----------...MP
00E260: 52 49 4E 54 0D 0A 09 50 55 53 48 20 49 58 0D 0A RINT...PUSH IX..
00E270: 09 50 4F 50 20 48 4C 0D 0A 09 4C 44 20 44 45 2C .POP HL...LD DE,
00E280: 31 31 0D 0A 09 41 44 44 20 48 4C 2C 44 45 0D 0A 11...ADD HL,DE..
00E290: 09 4C 44 20 44 2C 28 49 58 2B 36 29 0D 0A 09 4C .LD D,(IX+6)...L
00E2A0: 44 20 45 2C 28 49 58 2B 37 29 0D 0A 09 4C 44 20 D E,(IX+7)...LD
00E2B0: 42 2C 28 49 58 2B 34 29 0D 0A 4D 50 52 54 31 09 B,(IX+4)..MPRT1.
00E2C0: 50 55 53 48 20 42 43 0D 0A 09 50 55 53 48 20 44 PUSH BC...PUSH D
00E2D0: 45 0D 0A 09 4C 44 20 28 59 29 2C 44 45 0D 0A 09 E...LD (Y),DE...
00E2E0: 43 41 4C 4C 20 50 55 4C 4C 5F 50 52 49 4E 54 0D CALL PULL_PRINT.
00E2F0: 0A 09 50 4F 50 20 44 45 0D 0A 09 50 4F 50 20 42 ..POP DE...POP B
00E300: 43 0D 0A 09 49 4E 43 20 45 0D 0A 09 44 4A 4E 5A C...INC E...DJNZ
00E310: 20 4D 50 52 54 31 0D 0A 09 52 45 54 0D 0A 0D 0A MPRT1...RET....
00E320: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
00E330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E340: 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 53 45 4C 45 43 54 ------..;.SELECT
00E350: 20 41 20 43 4F 4D 4D 41 4E 44 20 49 4E 20 41 20 A COMMAND IN A
00E360: 4D 45 4E 55 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D MENU..;---------
00E370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 ------------..;.
00E390: 49 58 20 70 6F 69 6E 74 73 20 74 6F 20 77 69 6E IX points to win
00E3A0: 64 6F 77 20 69 6E 66 6F 0D 0A 3B 0D 0A 3A 0D 0A dow info..;..:..
00E3B0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
00E3C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E3D0: 2D 2D 2D 2D 2D 2D 0D 0A 2E 4D 43 55 52 53 4F 52 ------...MCURSOR
00E3E0: 0D 0A 09 4C 44 20 41 2C 28 49 58 2B 31 30 29 09 ...LD A,(IX+10).
00E3F0: 09 09 3B 20 43 68 65 63 6B 20 6C 61 73 74 20 73 ..; Check last s
00E400: 74 61 74 65 0D 0A 09 43 50 20 26 46 46 09 09 09 tate...CP &FF...
00E410: 09 3B 20 49 66 20 26 46 46 20 74 68 65 6E 20 73 .; If &FF then s
00E420: 65 74 20 74 6F 20 30 0D 0A 09 4A 52 20 4E 5A 2C et to 0...JR NZ,
00E430: 4D 43 49 58 0D 0A 09 58 4F 52 20 41 0D 0A 2E 4D MCIX...XOR A...M
00E440: 43 49 58 09 4C 44 20 28 4D 43 55 52 59 29 2C 41 CIX.LD (MCURY),A
00E450: 09 09 09 3B 20 53 61 76 65 20 6C 61 73 74 20 73 ...; Save last s
00E460: 74 61 74 65 20 69 6E 20 62 75 66 66 65 72 0D 0A tate in buffer..
00E470: 0D 0A 2E 4D 45 4E 55 5F 43 55 52 53 4F 52 0D 0A ...MENU_CURSOR..
00E480: 0D 0A 09 43 41 4C 4C 20 4D 5F 50 52 49 4E 54 43 ...CALL M_PRINTC
00E490: 55 52 0D 0A 0D 0A 2E 4D 43 31 09 43 41 4C 4C 20 UR.....MC1.CALL
00E4A0: 4B 4D 5F 57 41 49 54 5F 43 48 41 52 09 09 3B 77 KM_WAIT_CHAR..;w
00E4B0: 61 69 74 20 66 6F 72 20 6B 65 79 0D 0A 09 43 50 ait for key...CP
00E4C0: 20 26 46 43 0D 0A 09 4A 50 20 5A 2C 4D 43 45 58 &FC...JP Z,MCEX
00E4D0: 49 54 5F 45 53 43 09 09 09 3B 69 66 20 65 73 63 IT_ESC...;if esc
00E4E0: 20 74 68 65 6E 20 72 65 74 75 72 6E 0D 0A 09 43 then return...C
00E4F0: 50 20 38 0D 0A 09 4A 50 20 5A 2C 4D 43 45 58 49 P 8...JP Z,MCEXI
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 4E E5 0C 00 C1 02 00 00 00 02 ......N.........
00E520: 0C 00 C2 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E530: 0C 00 C4 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E540: 0C 00 C6 02 00 00 00 02 0C 00 C7 02 00 00 00 02 ................
00E550: 0C 00 C8 02 00 00 00 02 0C 00 C9 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 54 5F 42 53 09 09 09 3B 69 66 20 61 72 72 6F 77 T_BS...;if arrow
00E610: 20 74 68 65 6E 20 72 65 74 75 72 6E 0D 0A 09 43 then return...C
00E620: 50 20 39 0D 0A 09 4A 50 20 5A 2C 4D 43 45 58 49 P 9...JP Z,MCEXI
00E630: 54 5F 54 42 09 09 09 3B 69 66 20 61 72 72 6F 77 T_TB...;if arrow
00E640: 20 74 68 65 6E 20 72 65 74 75 72 6E 0D 0A 09 43 then return...C
00E650: 50 20 31 31 0D 0A 09 4A 52 20 5A 2C 4D 43 5F 55 P 11...JR Z,MC_U
00E660: 50 09 09 09 3B 69 66 20 31 31 20 74 68 65 6E 20 P...;if 11 then
00E670: 6D 6F 76 65 20 75 70 0D 0A 09 43 50 20 31 30 0D move up...CP 10.
00E680: 0A 09 4A 52 20 5A 2C 4D 43 5F 44 4F 57 4E 09 09 ..JR Z,MC_DOWN..
00E690: 09 3B 69 66 20 31 30 20 74 68 65 6E 20 6D 6F 76 .;if 10 then mov
00E6A0: 65 20 64 6F 77 6E 0D 0A 09 43 50 20 26 45 30 0D e down...CP &E0.
00E6B0: 0A 09 4A 52 20 5A 2C 4D 43 45 4E 54 20 20 20 20 ..JR Z,MCENT
00E6C0: 20 20 3B 46 4C 61 73 68 20 63 75 72 73 6F 72 21 ;FLash cursor!
00E6D0: 20 61 6E 64 20 64 6F 0D 0A 09 43 50 20 31 33 0D and do...CP 13.
00E6E0: 0A 09 6A 70 20 6E 7A 2C 68 6F 74 6B 65 79 73 0D ..jp nz,hotkeys.
00E6F0: 0A 09 2E 6D 63 65 6E 74 20 6C 64 20 62 2C 33 0D ...mcent ld b,3.
00E700: 0A 09 2E 6D 63 32 20 70 75 73 68 20 62 63 0D 0A ...mc2 push bc..
00E710: 20 20 20 20 20 20 20 20 0D 0A 09 43 41 4C 4C 20 ...CALL
00E720: 4D 5F 50 52 49 4E 54 43 55 52 09 09 09 3B 53 57 M_PRINTCUR...;SW
00E730: 41 50 20 63 75 72 73 6F 72 0D 0A 09 4C 44 20 42 AP cursor...LD B
00E740: 43 2C 26 31 30 30 30 0D 0A 2E 4D 43 33 09 44 45 C,&1000...MC3.DE
00E750: 43 20 42 43 0D 0A 09 4C 44 20 41 2C 42 0D 0A 09 C BC...LD A,B...
00E760: 4F 52 20 43 0D 0A 09 4A 52 20 4E 5A 2C 4D 43 33 OR C...JR NZ,MC3
00E770: 09 3B 70 61 75 73 65 0D 0A 20 20 20 20 20 20 20 .;pause..
00E780: 20 50 4F 50 20 42 43 0D 0A 09 44 4A 4E 5A 20 4D POP BC...DJNZ M
00E790: 43 32 0D 0A 0D 0A 09 4C 44 20 41 2C 28 4D 43 55 C2.....LD A,(MCU
00E7A0: 52 59 29 09 09 3B 20 47 65 74 20 59 0D 0A 2E 4D RY)..; Get Y...M
00E7B0: 43 45 34 09 4C 44 20 4C 2C 41 0D 0A 09 4C 44 20 CE4.LD L,A...LD
00E7C0: 48 2C 30 09 09 09 3B 20 48 4C 3D 59 0D 0A 09 41 H,0...; HL=Y...A
00E7D0: 44 44 20 48 4C 2C 48 4C 09 09 3B 20 2A 32 0D 0A DD HL,HL..; *2..
00E7E0: 20 20 20 20 20 20 20 20 4C 44 20 44 2C 28 49 58 LD D,(IX
00E7F0: 2B 39 29 09 09 0D 0A 09 4C 44 20 45 2C 28 49 58 +9).....LD E,(IX
00E800: 2B 38 29 09 09 3B 20 44 45 20 62 61 63 65 20 6F +8)..; DE bace o
00E810: 66 20 6A 75 6D 70 20 74 61 62 6C 65 0D 0A 09 41 f jump table...A
00E820: 44 44 20 48 4C 2C 44 45 09 09 3B 20 41 64 64 20 DD HL,DE..; Add
00E830: 74 6F 20 62 61 63 65 20 6F 66 20 63 68 61 72 0D to bace of char.
00E840: 0A 09 4C 44 20 45 2C 28 48 4C 29 0D 0A 09 49 4E ..LD E,(HL)...IN
00E850: 43 20 48 4C 0D 0A 09 4C 44 20 44 2C 28 48 4C 29 C HL...LD D,(HL)
00E860: 09 09 3B 20 44 45 3D 41 64 64 72 65 73 73 0D 0A ..; DE=Address..
00E870: 09 45 58 20 48 4C 2C 44 45 09 09 3B 20 48 4C 3D .EX HL,DE..; HL=
00E880: 61 64 64 72 65 73 73 20 74 6F 20 6A 75 6D 70 2F address to jump/
00E890: 63 61 6C 6C 0D 0A 0D 0A 09 4C 44 20 41 2C 28 4D call.....LD A,(M
00E8A0: 43 55 52 59 29 09 09 3B 20 47 65 74 20 59 0D 0A CURY)..; Get Y..
00E8B0: 09 4C 44 20 44 2C 41 09 09 09 3B 20 44 3D 79 0D .LD D,A...; D=y.
00E8C0: 0A 09 4C 44 20 41 2C 28 49 58 2B 31 30 29 09 09 ..LD A,(IX+10)..
00E8D0: 3B 20 43 50 20 69 66 20 26 46 46 0D 0A 09 43 50 ; CP if &FF...CP
00E8E0: 20 26 46 46 0D 0A 09 4A 52 20 5A 2C 4D 43 49 58 &FF...JR Z,MCIX
00E8F0: 32 0D 0A 09 4C 44 20 28 49 58 2B 31 30 29 2C 44 2...LD (IX+10),D
00E900: 09 09 3B 20 49 58 20 73 65 74 20 74 6F 20 79 0D ..; IX set to y.
00E910: 0A 2E 4D 43 49 58 32 09 0D 0A 09 58 4F 52 20 41 ..MCIX2....XOR A
00E920: 09 09 09 3B 20 41 3D 30 0D 0A 09 52 45 54 09 09 ...; A=0...RET..
00E930: 09 3B 20 52 65 74 0D 0A 3B 2D 20 20 2D 20 20 2D .; Ret..;- - -
00E940: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 0D - - - - -.
00E950: 0A 2E 4D 43 45 58 49 54 5F 42 53 0D 0A 09 4C 44 ..MCEXIT_BS...LD
00E960: 20 41 2C 28 43 4F 4D 29 0D 0A 09 43 50 20 30 0D A,(COM)...CP 0.
00E970: 0A 09 4A 50 20 5A 2C 4D 43 31 0D 0A 20 20 20 20 ..JP Z,MC1..
00E980: 20 20 20 20 4C 44 20 48 4C 2C 57 49 4E 52 45 54 LD HL,WINRET
00E990: 0D 0A 09 4C 44 20 41 2C 38 0D 0A 09 53 43 46 0D ...LD A,8...SCF.
00E9A0: 0A 09 52 45 54 0D 0A 3B 2D 20 20 2D 20 20 2D 20 ..RET..;- - -
00E9B0: 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 0D 0A - - - - -..
00E9C0: 2E 4D 43 45 58 49 54 5F 54 42 0D 0A 09 4C 44 20 .MCEXIT_TB...LD
00E9D0: 41 2C 28 43 4F 4D 29 0D 0A 09 43 50 20 35 0D 0A A,(COM)...CP 5..
00E9E0: 09 4A 50 20 5A 2C 4D 43 31 0D 0A 20 20 20 20 20 .JP Z,MC1..
00E9F0: 20 20 20 4C 44 20 48 4C 2C 57 49 4E 52 45 54 0D LD HL,WINRET.
00EA00: 0A 09 4C 44 20 41 2C 39 0D 0A 09 53 43 46 0D 0A ..LD A,9...SCF..
00EA10: 09 52 45 54 0D 0A 0D 0A 2E 4D 43 45 58 49 54 5F .RET.....MCEXIT_
00EA20: 45 53 43 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 ESC.. LD
00EA30: 48 4C 2C 57 49 4E 52 45 54 0D 0A 09 4C 44 20 41 HL,WINRET...LD A
00EA40: 2C 26 46 43 0D 0A 20 20 20 20 20 20 20 20 4F 52 ,&FC.. OR
00EA50: 20 41 0D 0A 09 52 45 54 09 0D 0A 3B 2D 20 20 2D A...RET...;- -
00EA60: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 - - - - -
00EA70: 20 2D 0D 0A 2E 4D 43 5F 55 50 0D 0A 09 43 41 4C -...MC_UP...CAL
00EA80: 4C 20 4D 5F 50 52 49 4E 54 43 55 52 09 09 09 3B L M_PRINTCUR...;
00EA90: 72 65 6D 6F 76 65 20 63 75 72 73 6F 72 0D 0A 09 remove cursor...
00EAA0: 4C 44 20 41 2C 28 4D 43 55 52 59 29 0D 0A 09 44 LD A,(MCURY)...D
00EAB0: 45 43 20 41 09 09 09 09 3B 69 6E 63 20 59 0D 0A EC A....;inc Y..
00EAC0: 20 20 20 20 20 20 20 20 43 50 20 26 46 46 0D 0A CP &FF..
00EAD0: 09 4A 52 20 4E 5A 2C 4D 43 55 31 0D 0A 09 4C 44 .JR NZ,MCU1...LD
00EAE0: 20 41 2C 28 49 58 2B 34 29 09 09 09 3B 69 66 20 A,(IX+4)...;if
00EAF0: 59 3C 30 20 74 68 65 6E 20 59 3D 6E 6F 20 6F 66 Y<0 then Y=no of
00EB00: 20 63 6F 6D 6D 61 6E 64 73 2D 31 0D 0A 09 44 45 commands-1...DE
00EB10: 43 20 41 0D 0A 2E 4D 43 55 31 09 0D 0A 09 4C 44 C A...MCU1....LD
00EB20: 20 28 4D 43 55 52 59 29 2C 41 0D 0A 20 20 20 20 (MCURY),A..
00EB30: 20 20 20 20 4A 50 20 4D 45 4E 55 5F 43 55 52 53 JP MENU_CURS
00EB40: 4F 52 0D 0A 3B 2D 20 20 2D 20 20 2D 20 20 2D 20 OR..;- - - -
00EB50: 20 2D 20 20 2D 20 20 2D 20 20 2D 0D 0A 2E 4D 43 - - - -...MC
00EB60: 5F 44 4F 57 4E 0D 0A 09 4C 44 20 41 2C 28 4D 43 _DOWN...LD A,(MC
00EB70: 55 52 59 29 09 09 09 3B 62 61 73 69 63 6C 79 20 URY)...;basicly
00EB80: 74 68 65 20 73 61 6D 65 0D 0A 09 43 41 4C 4C 20 the same...CALL
00EB90: 4D 5F 50 52 49 4E 54 43 55 52 0D 0A 09 4C 44 20 M_PRINTCUR...LD
00EBA0: 41 2C 28 4D 43 55 52 59 29 09 0D 0A 09 49 4E 43 A,(MCURY)....INC
00EBB0: 20 41 0D 0A 09 43 50 20 28 49 58 2B 34 29 0D 0A A...CP (IX+4)..
00EBC0: 09 4A 52 20 4E 5A 2C 4D 43 44 31 09 0D 0A 09 58 .JR NZ,MCD1....X
00EBD0: 4F 52 20 41 0D 0A 2E 4D 43 44 31 09 0D 0A 09 4C OR A...MCD1....L
00EBE0: 44 20 28 4D 43 55 52 59 29 2C 41 0D 0A 20 20 20 D (MCURY),A..
00EBF0: 20 20 20 20 20 4A 50 20 4D 45 4E 55 5F 43 55 52 JP MENU_CUR
00EC00: 53 4F 52 0D 0A 3B 2D 20 20 2D 20 20 2D 20 20 2D SOR..;- - - -
00EC10: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 0D 0A 2E 48 - - - -...H
00EC20: 4F 54 4B 45 59 53 0D 0A 09 52 45 53 20 35 2C 41 OTKEYS...RES 5,A
00EC30: 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 43 2C 41 .. LD C,A
00EC40: 0D 0A 09 50 55 53 48 20 49 58 0D 0A 09 50 4F 50 ...PUSH IX...POP
00EC50: 20 48 4C 0D 0A 09 4C 44 20 44 45 2C 31 31 0D 0A HL...LD DE,11..
00EC60: 09 41 44 44 20 48 4C 2C 44 45 0D 0A 09 4C 44 20 .ADD HL,DE...LD
00EC70: 44 2C 30 0D 0A 09 4C 44 20 42 2C 28 49 58 2B 34 D,0...LD B,(IX+4
00EC80: 29 0D 0A 2E 48 4F 54 4B 09 4C 44 20 41 2C 28 48 )...HOTK.LD A,(H
00EC90: 4C 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 20 20 20 L)...INC HL..
00ECA0: 20 20 20 20 20 4F 52 20 41 0D 0A 09 4A 50 20 5A OR A...JP Z
00ECB0: 2C 48 4F 54 31 0D 0A 09 42 49 54 20 37 2C 41 0D ,HOT1...BIT 7,A.
00ECC0: 0A 09 4A 52 20 5A 2C 48 4F 54 4B 0D 0A 20 20 20 ..JR Z,HOTK..
00ECD0: 20 20 20 20 20 52 45 53 20 37 2C 41 0D 0A 09 52 RES 7,A...R
00ECE0: 45 53 20 35 2C 41 0D 0A 09 43 50 20 43 0D 0A 09 ES 5,A...CP C...
00ECF0: 4A 52 20 4E 5A 2C 48 4F 54 4B 0D 0A 09 4C 44 20 JR NZ,HOTK...LD
00ED00: 41 2C 28 4D 43 55 52 59 29 0D 0A 20 20 20 20 20 A,(MCURY)..
00ED10: 20 20 20 50 55 53 48 20 44 45 0D 0A 09 43 41 4C PUSH DE...CAL
00ED20: 4C 20 4D 5F 50 52 49 4E 54 43 55 52 0D 0A 09 50 L M_PRINTCUR...P
00ED30: 4F 50 20 44 45 0D 0A 09 4C 44 20 41 2C 44 0D 0A OP DE...LD A,D..
00ED40: 09 4C 44 20 28 4D 43 55 52 59 29 2C 41 0D 0A 09 .LD (MCURY),A...
00ED50: 43 41 4C 4C 20 4D 5F 50 52 49 4E 54 43 55 52 0D CALL M_PRINTCUR.
00ED60: 0A 09 4A 50 20 4D 43 45 4E 54 0D 0A 2E 48 4F 54 ..JP MCENT...HOT
00ED70: 31 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 20 44 1.. INC D
00ED80: 0D 0A 09 44 4A 4E 5A 20 48 4F 54 4B 0D 0A 20 20 ...DJNZ HOTK..
00ED90: 20 20 20 20 20 20 4A 50 20 4D 43 31 0D 0A 09 0D JP MC1....
00EDA0: 0A 0D 0A 09 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ......;---------
00EDB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EDC0: 2D 2D 2D 2D 0D 0A 2E 4D 5F 50 52 49 4E 54 43 55 ----...M_PRINTCU
00EDD0: 52 0D 0A 09 4C 44 20 42 2C 28 49 58 2B 35 29 0D R...LD B,(IX+5).
00EDE0: 0A 09 4C 44 20 48 2C 28 49 58 2B 36 29 0D 0A 09 ..LD H,(IX+6)...
00EDF0: 4C 44 20 4C 2C 28 49 58 2B 37 29 0D 0A 09 4C 44 LD L,(IX+7)...LD
00EE00: 20 41 2C 28 4D 43 55 52 59 29 0D 0A 09 41 44 44 A,(MCURY)...ADD
00EE10: 20 4C 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 4A 50 L...LD L,A...JP
00EE20: 20 49 4E 56 45 52 53 45 5F 4C 49 4E 45 0D 0A 3B INVERSE_LINE..;
00EE30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EE40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 57 -------------..W
00EE50: 49 4E 52 45 54 0D 0A 09 43 41 4C 4C 20 57 49 4E INRET...CALL WIN
00EE60: 44 4F 57 5F 57 49 50 45 0D 0A 09 4C 44 20 41 2C DOW_WIPE...LD A,
00EE70: 26 46 45 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 3B &FE...RET......;
00EE80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EE90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 57 49 -----------...WI
00EEA0: 4E 44 4F 57 5F 57 49 50 45 0D 0A 09 4C 44 20 48 NDOW_WIPE...LD H
00EEB0: 2C 28 49 58 2B 30 29 09 09 3B 63 6C 65 61 72 20 ,(IX+0)..;clear
00EEC0: 77 69 6E 64 6F 77 0D 0A 09 4C 44 20 4C 2C 28 49 window...LD L,(I
00EED0: 58 2B 31 29 0D 0A 09 4C 44 20 43 2C 28 49 58 2B X+1)...LD C,(IX+
00EEE0: 32 29 0D 0A 09 4C 44 20 42 2C 28 49 58 2B 33 29 2)...LD B,(IX+3)
00EEF0: 0D 0A 09 4A 50 20 57 49 4E 44 4F 57 0D 0A 3B 2D ...JP WINDOW..;-
00EF00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EF10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 57 49 -----------...WI
00EF20: 4E 44 4F 57 5F 50 41 47 45 0D 0A 09 43 41 4C 4C NDOW_PAGE...CALL
00EF30: 20 49 4E 4B 5F 4F 46 46 0D 0A 20 20 20 20 20 20 INK_OFF..
00EF40: 20 20 4C 44 20 48 4C 2C 30 0D 0A 09 4C 44 20 42 LD HL,0...LD B
00EF50: 2C 38 30 0D 0A 09 4C 44 20 43 2C 32 35 0D 0A 09 ,80...LD C,25...
00EF60: 43 41 4C 4C 20 57 49 4E 44 4F 57 0D 0A 09 43 41 CALL WINDOW...CA
00EF70: 4C 4C 20 49 4E 4B 5F 4F 4E 0D 0A 09 58 4F 52 20 LL INK_ON...XOR
00EF80: 41 0D 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D A...RET..;------
00EF90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EFA0: 2D 2D 2D 2D 0D 0A 0D 0A 0D 0A 1A 1A 2D 2D 2D 2D ----........----
00EFB0: 2D 2D 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 0D 0A 1A --..end.........
00EFC0: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
00EFD0: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
00EFE0: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
00EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F000: 36 20 23 10 FB CD 3F 50 3E FF C9 CD 3F 50 CD EC 6 #...?P>...?P..
00F010: 77 CD EC 79 CD 3F 50 3E FF C9 CD 3F 50 CD EC 77 w..y.?P>...?P..w
00F020: CD EC 79 FE FC CA D8 79 DD 21 E5 8A CD 2D 50 CD ..y....y.!...-P.
00F030: 3F 78 EB 21 07 10 22 56 6B 21 E9 8A 06 28 CD E2 ?x.!.."Vk!...(..
00F040: 79 FE FC 28 13 21 28 00 19 EB 21 08 10 22 56 6B y..(.!(...!.."Vk
00F050: 21 F1 8A 06 0A CD E2 79 DD 21 D9 8A CD 3F 50 3E !......y.!...?P>
00F060: FF C9 D5 E5 CD 6F 50 E1 D1 C3 90 50 AF 32 54 6B .....oP....P.2Tk
00F070: CD 3C 50 CD 06 BB FE 31 38 05 FE 37 DA 1F 7A FE .<P....18..7..z.
00F080: FC C8 FE 7F 28 10 FE 0B 28 1E FE 0A 28 2E FE 0D ....(...(...(...
00F090: 28 04 FE E0 20 DD C5 CD 3C 50 C1 3E E0 B7 C9 32 (... ...<P.>...2
00F0A0: 02 8F CD FE 78 C3 F3 79 CD 3C 50 3A 54 6B 3D FE ....x..y.<P:Tk=.
00F0B0: FF 20 04 DD 7E 04 3D 32 54 6B 18 B4 3A 54 6B CD . ..~.=2Tk..:Tk.
00F0C0: 3C 50 DD 7E 04 47 3A 54 6B 3C B8 20 01 AF 32 54 <P.~.G:Tk<. ..2T
00F0D0: 6B 18 9D 0A 05 0E 27 DD E5 DD 21 53 7A CD 2D 50 k.....'...!Sz.-P
00F0E0: DD 21 16 8A CD 2D 50 CD 30 50 CD 33 50 FE FC CA .!...-P.0P.3P...
00F0F0: 78 7A CD BD 50 C3 59 7A DD 21 53 7A CD 3F 50 DD xz..P.Yz.!Sz.?P.
00F100: 21 16 8A CD 3F 50 DD E1 3E FE C9 ED 73 52 6B 21 !...?P..>...sRk!
00F110: 06 0C 22 56 6B 11 CC 70 21 76 8F CD CC 7A 11 ED .."Vk..p!v...z..
00F120: 70 21 92 8F CD CC 7A 11 D9 70 21 AE 8F CD CC 7A p!....z..p!....z
00F130: 11 E4 70 21 CA 8F CD CC 7A 11 FA 70 21 E6 8F CD ..p!....z..p!...
00F140: CC 7A 11 05 71 21 02 90 CD CC 7A C9 D5 CD 6F 50 .z..q!....z...oP
00F150: D1 CD 18 7B CD 66 50 3E 08 CD 66 50 CD 06 BB FE ...{.fP>..fP....
00F160: FC 28 46 FE 0D 28 21 CB AF FE 59 28 10 FE 4E 20 .(F..(!...Y(..N
00F170: EB 3E C9 12 21 71 8F CD 87 50 C3 0B 7B AF 12 21 .>..!q...P..{..!
00F180: 6B 8F CD 87 50 C3 0B 7B CD 87 50 3E 0C 32 57 6B k...P..{..P>.2Wk
00F190: 3A 56 6B 3C 32 56 6B C9 1A FE C9 28 06 3E 59 21 :Vk<2Vk....(.>Y!
00F1A0: 6B 8F C9 3E 4E 21 71 8F C9 ED 7B 52 6B C9 3E 00 k..>N!q...{Rk.>.
00F1B0: 32 26 8F 21 06 0C 22 56 6B 21 27 8F CD 87 50 CD 2&.!.."Vk!'...P.
00F1C0: 0B 7B 11 F5 6B ED 53 24 8F CD 0B 7B 3E 46 CD 66 .{..k.S$...{>F.f
00F1D0: 50 3A 26 8F C6 30 CD 66 50 3E 20 CD 66 50 2A 24 P:&..0.fP> .fP*$
00F1E0: 8F 06 19 7E FE 00 20 02 36 20 7E FE 0D 20 02 36 ...~.. .6 ~.. .6
00F1F0: 23 23 10 EF ED 5B 24 8F 06 19 3E 20 32 9A 6B CD ##...[$...> 2.k.
00F200: 31 20 70 72 69 6E 74 20 22 4D 61 69 6E 20 70 72 1 print "Main pr
00F210: 6F 67 72 61 6D 6D 65 20 64 61 74 61 20 61 72 65 ogramme data are
00F220: 61 22 0D 0A 0D 0A 2E 6D 61 69 6E 72 65 74 0D 0A a".....mainret..
00F230: 72 65 74 0D 0A 0D 0A 2E 53 50 5F 33 30 30 09 09 ret.....SP_300..
00F240: 53 54 52 09 22 33 30 30 20 22 0D 0A 2E 53 50 5F STR."300 "...SP_
00F250: 31 32 37 35 09 53 54 52 09 22 31 32 30 30 2F 37 1275.STR."1200/7
00F260: 35 20 22 0D 0A 2E 53 50 5F 31 32 30 30 09 53 54 5 "...SP_1200.ST
00F270: 52 09 22 31 32 30 30 20 22 0D 0A 2E 53 50 5F 32 R."1200 "...SP_2
00F280: 34 30 30 09 53 54 52 09 22 32 34 30 30 20 22 0D 400.STR."2400 ".
00F290: 0A 2E 53 50 5F 39 36 30 30 09 53 54 52 09 22 39 ..SP_9600.STR."9
00F2A0: 36 30 30 20 22 0D 0A 0D 0A 0D 0A 2E 4D 41 49 4E 600 ".......MAIN
00F2B0: 5F 53 54 41 52 54 0D 0A 62 79 74 65 20 31 36 2C _START..byte 16,
00F2C0: 36 3A 77 6F 72 64 20 44 49 41 4C 5F 4D 41 49 4E 6:word DIAL_MAIN
00F2D0: 4D 45 4E 55 0D 0A 62 79 74 65 20 32 35 2C 37 3A MENU..byte 25,7:
00F2E0: 77 6F 72 64 20 46 49 4C 45 53 4D 45 4E 55 0D 0A word FILESMENU..
00F2F0: 62 79 74 65 20 33 35 2C 38 3A 77 6F 72 64 20 42 byte 35,8:word B
00F300: 55 46 46 45 52 4D 45 4E 55 0D 0A 62 79 74 65 20 UFFERMENU..byte
00F310: 34 36 2C 31 31 3A 77 6F 72 64 20 44 49 52 4D 45 46,11:word DIRME
00F320: 4E 55 0D 0A 62 79 74 65 20 36 30 2C 37 3A 77 6F NU..byte 60,7:wo
00F330: 72 64 20 50 52 49 4E 54 45 52 4D 45 4E 55 0D 0A rd PRINTERMENU..
00F340: 62 79 74 65 20 37 30 2C 37 3A 77 6F 72 64 20 53 byte 70,7:word S
00F350: 45 54 55 50 4D 45 4E 55 0D 0A 0D 0A 0D 0A 46 49 ETUPMENU......FI
00F360: 4C 45 53 4D 45 4E 55 0D 0A 42 59 54 45 20 32 35 LESMENU..BYTE 25
00F370: 2C 31 20 20 20 3B 78 2C 79 20 6C 6F 63 61 74 69 ,1 ;x,y locati
00F380: 6F 6E 20 6F 66 20 77 69 6E 64 6F 77 0D 0A 42 59 on of window..BY
00F390: 54 45 20 39 20 20 20 20 20 20 3B 68 65 69 67 68 TE 9 ;heigh
00F3A0: 74 0D 0A 42 59 54 45 20 31 37 20 20 20 20 20 3B t..BYTE 17 ;
00F3B0: 77 69 64 74 68 0D 0A 42 59 54 45 20 37 20 20 20 width..BYTE 7
00F3C0: 20 20 20 3B 37 20 65 6E 74 72 69 65 73 20 69 6E ;7 entries in
00F3D0: 20 77 69 6E 64 6F 77 20 2D 20 66 6F 72 20 73 65 window - for se
00F3E0: 6C 65 63 74 69 6F 6E 0D 0A 42 59 54 45 20 31 35 lection..BYTE 15
00F3F0: 20 20 20 20 20 3B 20 63 75 72 73 6F 72 20 77 69 ; cursor wi
00F400: 64 74 68 0D 0A 42 59 54 45 20 32 36 2C 32 20 20 dth..BYTE 26,2
00F410: 20 3B 63 75 72 73 6F 72 20 73 74 61 72 74 0D 0A ;cursor start..
00F420: 57 4F 52 44 20 46 49 4C 45 53 4A 50 3A 42 59 54 WORD FILESJP:BYT
00F430: 45 20 30 20 20 20 3B 6C 6F 63 61 74 69 6F 6E 20 E 0 ;location
00F440: 6F 66 20 6A 70 20 74 61 62 6C 65 20 2B 20 30 0D of jp table + 0.
00F450: 0A 42 59 54 45 09 22 20 22 2C 22 43 22 2B 26 38 .BYTE." ","C"+&8
00F460: 30 2C 22 61 74 61 6C 6F 67 75 65 22 2C 30 0D 0A 0,"atalogue",0..
00F470: 42 59 54 45 09 22 20 22 2C 22 44 22 2B 26 38 30 BYTE." ","D"+&80
00F480: 2C 22 6F 73 22 2C 30 0D 0A 42 59 54 45 09 22 20 ,"os",0..BYTE."
00F490: 22 2C 22 54 22 2B 26 38 30 2C 22 72 61 6E 73 6D ","T"+&80,"ransm
00F4A0: 69 74 20 66 69 6C 65 22 2C 30 0D 0A 42 59 54 45 it file",0..BYTE
00F4B0: 09 22 20 22 2C 22 52 22 2B 26 38 30 2C 22 65 63 ." ","R"+&80,"ec
00F4C0: 65 69 76 65 20 66 69 6C 65 22 2C 30 0D 0A 42 59 eive file",0..BY
00F4D0: 54 45 09 22 20 22 2C 22 50 22 2B 26 38 30 2C 22 TE." ","P"+&80,"
00F4E0: 72 6F 74 6F 63 6F 6C 22 2C 30 0D 0A 42 59 54 45 rotocol",0..BYTE
00F4F0: 09 22 20 22 2C 22 56 22 2B 26 38 30 2C 22 69 65 ." ","V"+&80,"ie
00F500: 77 20 66 69 6C 65 22 2C 30 0D 0A 42 59 54 45 09 w file",0..BYTE.
00F510: 22 20 46 69 6C 65 20 22 2C 22 53 22 2B 26 38 30 " File ","S"+&80
00F520: 2C 22 74 61 74 73 22 2C 30 0D 0A 46 49 4C 45 53 ,"tats",0..FILES
00F530: 4A 50 0D 0A 57 4F 52 44 20 43 41 54 41 4C 4F 55 JP..WORD CATALOU
00F540: 47 45 0D 0A 57 4F 52 44 20 44 4F 53 0D 0A 57 4F GE..WORD DOS..WO
00F550: 52 44 20 54 52 46 49 4C 45 0D 0A 57 4F 52 44 20 RD TRFILE..WORD
00F560: 52 43 46 49 4C 45 0D 0A 57 4F 52 44 20 50 52 4F RCFILE..WORD PRO
00F570: 54 4F 0D 0A 57 4F 52 44 20 56 49 45 57 5F 46 49 TO..WORD VIEW_FI
00F580: 4C 45 0D 0A 57 4F 52 44 20 46 49 4C 45 5F 53 54 LE..WORD FILE_ST
00F590: 41 54 53 0D 0A 0D 0A 42 55 46 46 45 52 4D 45 4E ATS....BUFFERMEN
00F5A0: 55 0D 0A 42 59 54 45 20 33 35 2C 31 0D 0A 42 59 U..BYTE 35,1..BY
00F5B0: 54 45 20 34 0D 0A 42 59 54 45 20 31 36 0D 0A 42 TE 4..BYTE 16..B
00F5C0: 59 54 45 20 32 09 3B 6F 6E 6C 79 20 33 20 69 6E YTE 2.;only 3 in
00F5D0: 20 6D 65 6E 75 0D 0A 42 59 54 45 20 31 34 0D 0A menu..BYTE 14..
00F5E0: 42 59 54 45 20 33 36 2C 32 0D 0A 57 4F 52 44 20 BYTE 36,2..WORD
00F5F0: 42 55 46 46 45 52 4A 50 3A 42 59 54 45 20 30 0D BUFFERJP:BYTE 0.
00F600: 0A 42 59 54 45 09 22 20 22 2C 22 56 22 2B 26 38 .BYTE." ","V"+&8
00F610: 30 2C 22 69 65 77 20 62 75 66 66 65 72 22 2C 30 0,"iew buffer",0
00F620: 0D 0A 3B 42 59 54 45 09 22 20 22 2C 22 53 22 2B ..;BYTE." ","S"+
00F630: 26 38 30 2C 22 63 72 6F 6C 6C 20 62 61 63 6B 22 &80,"croll back"
00F640: 2C 30 0D 0A 42 59 54 45 09 22 20 22 2C 22 53 22 ,0..BYTE." ","S"
00F650: 2B 26 38 30 2C 22 61 76 65 20 62 75 66 66 65 72 +&80,"ave buffer
00F660: 22 2C 30 0D 0A 42 59 54 45 09 22 20 22 2C 22 43 ",0..BYTE." ","C
00F670: 22 2B 26 38 30 2C 22 69 6C 70 20 26 20 53 61 76 "+&80,"ilp & Sav
00F680: 65 22 2C 30 0D 0A 3B 59 54 45 09 22 20 22 2C 22 e",0..;YTE." ","
00F690: 43 22 2C 22 4C 22 2B 26 38 30 2C 22 65 61 72 20 C","L"+&80,"ear
00F6A0: 62 75 66 66 65 72 22 2C 30 0D 0A 3B 42 59 54 45 buffer",0..;BYTE
00F6B0: 09 22 20 22 2C 22 52 22 2B 26 38 30 2C 22 65 73 ." ","R"+&80,"es
00F6C0: 65 74 20 62 75 66 66 65 72 22 2C 30 0D 0A 42 55 et buffer",0..BU
00F6D0: 46 46 45 52 4A 50 0D 0A 57 4F 52 44 20 56 42 55 FFERJP..WORD VBU
00F6E0: 46 46 0D 0A 3B 4F 52 44 20 56 49 45 57 42 41 43 FF..;ORD VIEWBAC
00F6F0: 4B 0D 0A 57 4F 52 44 20 53 41 56 45 5F 42 55 46 K..WORD SAVE_BUF
00F700: 46 45 52 0D 0A 57 4F 52 44 20 43 4C 49 50 53 41 FER..WORD CLIPSA
00F710: 56 45 0D 0A 3B 4F 52 44 20 43 4C 45 41 52 5F 42 VE..;ORD CLEAR_B
00F720: 55 46 46 45 52 0D 0A 3B 4F 52 44 20 52 45 53 45 UFFER..;ORD RESE
00F730: 54 5F 42 55 46 46 45 52 0D 0A 0D 0A 50 52 49 4E T_BUFFER....PRIN
00F740: 54 45 52 4D 45 4E 55 0D 0A 42 59 54 45 20 36 30 TERMENU..BYTE 60
00F750: 2C 31 0D 0A 42 59 54 45 20 35 0D 0A 42 59 54 45 ,1..BYTE 5..BYTE
00F760: 20 31 38 0D 0A 42 59 54 45 20 33 0D 0A 42 59 54 18..BYTE 3..BYT
00F770: 45 20 31 36 0D 0A 42 59 54 45 20 36 31 2C 32 0D E 16..BYTE 61,2.
00F780: 0A 57 4F 52 44 20 50 52 49 4E 54 45 52 4A 50 3A .WORD PRINTERJP:
00F790: 42 59 54 45 20 30 0D 0A 42 59 54 45 09 22 20 50 BYTE 0..BYTE." P
00F7A0: 72 69 6E 74 20 22 2C 22 50 22 2B 26 38 30 2C 22 rint ","P"+&80,"
00F7B0: 61 67 65 22 2C 30 0D 0A 42 59 54 45 09 22 20 50 age",0..BYTE." P
00F7C0: 72 69 6E 74 20 22 2C 22 42 22 2B 26 38 30 2C 22 rint ","B"+&80,"
00F7D0: 75 66 66 65 72 22 2C 30 0D 0A 42 59 54 45 09 22 uffer",0..BYTE."
00F7E0: 20 22 2C 22 43 22 2B 26 38 30 2C 22 6C 69 70 20 ","C"+&80,"lip
00F7F0: 70 61 67 65 22 2C 30 0D 0A 50 52 49 4E 54 45 52 page",0..PRINTER
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 4E E5 0D 00 C1 02 00 00 00 02 ......N.........
00F820: 0D 00 C2 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F830: 0D 00 C4 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F840: 0D 00 C6 02 00 00 00 02 0D 00 C7 02 00 00 00 02 ................
00F850: 0D 00 C8 02 00 00 00 02 0D 00 C9 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 4A 50 0D 0A 57 4F 52 44 20 70 72 69 6E 74 5F 70 JP..WORD print_p
00F910: 61 67 65 0D 0A 57 4F 52 44 20 70 72 69 6E 74 5F age..WORD print_
00F920: 62 75 66 66 65 72 0D 0A 57 4F 52 44 20 43 4C 49 buffer..WORD CLI
00F930: 50 5F 50 41 47 45 0D 0A 0D 0A 0D 0A 53 45 54 55 P_PAGE......SETU
00F940: 50 4D 45 4E 55 0D 0A 42 59 54 45 20 36 36 2C 31 PMENU..BYTE 66,1
00F950: 0D 0A 42 59 54 45 20 38 0D 0A 42 59 54 45 20 31 ..BYTE 8..BYTE 1
00F960: 34 0D 0A 42 59 54 45 20 36 0D 0A 42 59 54 45 20 4..BYTE 6..BYTE
00F970: 31 32 0D 0A 42 59 54 45 20 36 37 2C 32 0D 0A 57 12..BYTE 67,2..W
00F980: 4F 52 44 20 53 45 54 55 50 4A 50 3A 42 59 54 45 ORD SETUPJP:BYTE
00F990: 20 30 0D 0A 42 59 54 45 09 22 20 22 2C 22 50 22 0..BYTE." ","P"
00F9A0: 2B 26 38 30 2C 22 6F 72 74 22 2C 30 0D 0A 42 59 +&80,"ort",0..BY
00F9B0: 54 45 09 22 20 22 2C 22 45 22 2B 26 38 30 2C 22 TE." ","E"+&80,"
00F9C0: 63 68 6F 73 22 2C 30 0D 0A 42 59 54 45 09 22 20 chos",0..BYTE."
00F9D0: 22 2C 22 4D 22 2B 26 38 30 2C 22 61 63 72 6F 73 ","M"+&80,"acros
00F9E0: 22 2C 30 0D 0A 42 59 54 45 09 22 20 22 2C 22 53 ",0..BYTE." ","S
00F9F0: 22 2B 26 38 30 2C 22 61 76 65 22 2C 30 0D 0A 42 "+&80,"ave",0..B
00FA00: 59 54 45 09 22 20 22 2C 22 51 22 2B 26 38 30 2C YTE." ","Q"+&80,
00FA10: 22 75 69 74 22 2C 30 0D 0A 42 59 54 45 09 22 20 "uit",0..BYTE."
00FA20: 22 2C 22 48 22 2B 26 38 30 2C 22 61 6E 67 20 75 ","H"+&80,"ang u
00FA30: 70 22 2C 30 0D 0A 53 45 54 55 50 4A 50 0D 0A 57 p",0..SETUPJP..W
00FA40: 4F 52 44 20 73 65 74 09 09 3B 42 41 55 44 5F 53 ORD set..;BAUD_S
00FA50: 54 41 52 54 0D 0A 57 4F 52 44 20 43 75 73 5F 45 TART..WORD Cus_E
00FA60: 63 68 6F 73 09 0D 0A 57 4F 52 44 20 43 75 73 5F chos...WORD Cus_
00FA70: 4D 61 63 72 6F 73 09 0D 0A 57 4F 52 44 20 43 75 Macros...WORD Cu
00FA80: 73 5F 56 65 72 73 6F 6E 0D 0A 57 4F 52 44 20 45 s_Verson..WORD E
00FA90: 53 43 41 50 45 0D 0A 57 4F 52 44 20 48 41 4E 47 SCAPE..WORD HANG
00FAA0: 55 50 0D 0A 0D 0A 2E 44 4F 53 57 49 4E 0D 0A 42 UP.....DOSWIN..B
00FAB0: 59 54 45 20 33 36 2C 33 0D 0A 42 59 54 45 20 35 YTE 36,3..BYTE 5
00FAC0: 2C 31 34 0D 0A 42 59 54 45 20 33 2C 31 32 0D 0A ,14..BYTE 3,12..
00FAD0: 42 59 54 45 20 33 37 2C 34 0D 0A 57 4F 52 44 20 BYTE 37,4..WORD
00FAE0: 44 4F 53 4A 50 3A 62 79 74 65 20 30 0D 0A 42 59 DOSJP:byte 0..BY
00FAF0: 54 45 20 22 20 22 2C 22 44 22 2B 26 38 30 2C 22 TE " ","D"+&80,"
00FB00: 72 69 76 65 22 2C 30 0D 0A 42 59 54 45 20 22 20 rive",0..BYTE "
00FB10: 22 2C 22 45 22 2B 26 38 30 2C 22 72 61 73 65 22 ","E"+&80,"rase"
00FB20: 2C 30 0D 0A 42 59 54 45 20 22 20 22 2C 22 52 22 ,0..BYTE " ","R"
00FB30: 2B 26 38 30 2C 22 65 6E 61 6D 65 22 2C 30 0D 0A +&80,"ename",0..
00FB40: 2E 44 4F 53 4A 50 0D 0A 57 4F 52 44 09 44 52 49 .DOSJP..WORD.DRI
00FB50: 56 45 0D 0A 57 4F 52 44 09 45 52 41 53 45 0D 0A VE..WORD.ERASE..
00FB60: 57 4F 52 44 09 52 45 4E 41 4D 45 0D 0A 0D 0A 0D WORD.RENAME.....
00FB70: 0A 0D 0A 2E 44 69 61 6C 5F 4D 61 69 6E 6D 65 6E ....Dial_Mainmen
00FB80: 75 0D 0A 42 59 54 45 20 31 36 2C 31 2C 34 2C 31 u..BYTE 16,1,4,1
00FB90: 35 0D 0A 42 59 54 45 20 32 2C 31 33 2C 31 37 2C 5..BYTE 2,13,17,
00FBA0: 32 0D 0A 57 4F 52 44 20 44 4A 75 6D 70 3A 62 79 2..WORD DJump:by
00FBB0: 74 65 20 30 0D 0A 42 59 54 45 20 09 22 20 22 2C te 0..BYTE ." ",
00FBC0: 22 44 22 2B 26 38 30 2C 22 69 61 6C 20 6C 69 73 "D"+&80,"ial lis
00FBD0: 74 22 2C 30 0D 0A 62 79 74 65 09 22 20 22 2C 22 t",0..byte." ","
00FBE0: 50 22 2B 26 38 30 2C 22 72 65 66 69 78 22 2C 30 P"+&80,"refix",0
00FBF0: 0D 0A 2E 44 4A 75 6D 70 0D 0A 57 4F 52 44 20 44 ...DJump..WORD D
00FC00: 69 61 6C 75 70 0D 0A 77 6F 72 64 20 69 6E 70 75 ialup..word inpu
00FC10: 74 5F 70 72 65 66 69 78 0D 0A 0D 0A 0D 0A 44 49 t_prefix......DI
00FC20: 52 4D 45 4E 55 0D 0A 42 59 54 45 20 34 36 2C 31 RMENU..BYTE 46,1
00FC30: 0D 0A 42 59 54 45 20 36 0D 0A 42 59 54 45 20 31 ..BYTE 6..BYTE 1
00FC40: 34 0D 0A 42 59 54 45 20 34 0D 0A 42 59 54 45 20 4..BYTE 4..BYTE
00FC50: 31 32 0D 0A 42 59 54 45 20 34 37 2C 32 0D 0A 57 12..BYTE 47,2..W
00FC60: 4F 52 44 20 44 49 52 4A 50 3A 42 59 54 45 20 30 ORD DIRJP:BYTE 0
00FC70: 0D 0A 42 59 54 45 20 09 22 20 22 2C 22 41 22 2B ..BYTE ." ","A"+
00FC80: 26 38 30 2C 22 64 64 20 6E 61 6D 65 22 2C 30 0D &80,"dd name",0.
00FC90: 0A 42 59 54 45 20 09 22 20 22 2C 22 45 22 2B 26 .BYTE ." ","E"+&
00FCA0: 38 30 2C 22 72 61 73 65 20 6E 61 6D 65 22 2C 30 80,"rase name",0
00FCB0: 0D 0A 42 59 54 45 20 09 22 20 22 2C 22 53 22 2B ..BYTE ." ","S"+
00FCC0: 26 38 30 2C 22 61 76 65 22 2C 30 0D 0A 42 59 54 &80,"ave",0..BYT
00FCD0: 45 20 09 22 20 22 2C 22 43 22 2B 26 38 30 2C 22 E ." ","C"+&80,"
00FCE0: 6C 65 61 72 22 2C 30 0D 0A 44 49 52 4A 50 20 20 lear",0..DIRJP
00FCF0: 20 20 20 0D 0A 57 4F 52 44 20 45 4E 54 45 52 5F ..WORD ENTER_
00FD00: 4E 41 4D 45 0D 0A 57 4F 52 44 20 45 52 41 53 45 NAME..WORD ERASE
00FD10: 5F 4E 41 4D 45 09 0D 0A 57 4F 52 44 20 53 41 56 _NAME...WORD SAV
00FD20: 45 5F 44 49 52 0D 0A 57 4F 52 44 20 45 52 41 53 E_DIR..WORD ERAS
00FD30: 45 5F 44 49 52 0D 0A 0D 0A 2E 44 49 41 4C 5F 49 E_DIR.....DIAL_I
00FD40: 4E 46 4F 0D 0A 42 59 54 45 20 30 2C 31 30 2C 38 NFO..BYTE 0,10,8
00FD50: 2C 34 31 0D 0A 42 59 54 45 20 37 2C 30 2C 32 2C ,41..BYTE 7,0,2,
00FD60: 31 31 0D 0A 57 4F 52 44 20 30 3A 42 59 54 45 20 11..WORD 0:BYTE
00FD70: 26 46 46 0D 0A 42 59 54 45 20 09 22 44 49 52 45 &FF..BYTE ."DIRE
00FD80: 43 54 4F 52 59 20 50 41 47 45 20 20 3A 22 2C 30 CTORY PAGE :",0
00FD90: 0D 0A 42 59 54 45 20 20 20 20 30 0D 0A 3B 59 54 ..BYTE 0..;YT
00FDA0: 45 20 09 22 43 6F 6E 74 72 6F 6C 20 20 20 20 20 E ."Control
00FDB0: 20 20 20 20 20 20 20 20 43 61 6C 6C 73 22 2C 30 Calls",0
00FDC0: 0D 0A 42 59 54 45 20 09 22 43 6F 6E 74 72 6F 6C ..BYTE ."Control
00FDD0: 22 2C 30 0D 0A 42 59 54 45 20 09 22 53 70 65 65 ",0..BYTE ."Spee
00FDE0: 64 73 22 2C 30 0D 0A 42 59 54 45 20 09 22 54 69 ds",0..BYTE ."Ti
00FDF0: 6D 65 73 22 2C 30 0D 0A 42 59 54 45 20 09 22 4E mes",0..BYTE ."N
00FE00: 6F 74 65 73 22 2C 30 0D 0A 0D 0A 2E 42 42 53 4C otes",0.....BBSL
00FE10: 49 53 54 09 62 79 74 65 20 31 33 2C 32 2C 32 32 IST.byte 13,2,22
00FE20: 2C 35 36 0D 0A 09 09 62 79 74 65 20 32 30 2C 35 ,56....byte 20,5
00FE30: 34 2C 31 34 2C 33 0D 0A 0D 0A 3B 09 09 42 59 54 4,14,3....;..BYT
00FE40: 45 20 34 32 2C 32 2C 32 32 2C 33 38 0D 0A 3B 09 E 42,2,22,38..;.
00FE50: 09 42 59 54 45 20 32 30 2C 33 36 2C 34 33 2C 33 .BYTE 20,36,43,3
00FE60: 0D 0A 0D 0A 2E 4C 4F 41 44 49 52 45 52 52 09 42 .....LOADIRERR.B
00FE70: 59 54 45 20 35 30 2C 31 30 2C 33 2C 32 32 0D 0A YTE 50,10,3,22..
00FE80: 2E 45 4E 54 45 52 5F 42 42 53 09 42 59 54 45 20 .ENTER_BBS.BYTE
00FE90: 31 34 2C 36 2C 35 2C 35 33 0D 0A 2E 42 42 53 4E 14,6,5,53...BBSN
00FEA0: 41 4D 45 09 53 54 52 20 22 4E 61 6D 65 20 20 20 AME.STR "Name
00FEB0: 3A 22 0D 0A 2E 42 42 53 4E 55 4D 42 45 52 09 53 :"...BBSNUMBER.S
00FEC0: 54 52 20 22 4E 75 6D 62 65 72 20 3A 22 0D 0A 2E TR "Number :"...
00FED0: 42 42 53 54 49 4D 45 53 09 53 54 52 20 22 54 69 BBSTIMES.STR "Ti
00FEE0: 6D 65 73 20 20 3A 22 0D 0A 2E 42 42 53 4E 4F 54 mes :"...BBSNOT
00FEF0: 45 53 09 53 54 52 20 22 4E 6F 74 65 73 20 20 3A ES.STR "Notes :
00FF00: 22 0D 0A 0D 0A 2E 4B 45 59 53 0D 0A 42 59 54 45 ".....KEYS..BYTE
00FF10: 09 30 2C 31 31 0D 0A 42 59 54 45 09 31 2C 39 0D .0,11..BYTE.1,9.
00FF20: 0A 42 59 54 45 09 32 2C 31 30 0D 0A 42 59 54 45 .BYTE.2,10..BYTE
00FF30: 09 38 2C 38 0D 0A 3B 59 54 45 20 09 37 39 2C 38 .8,8..;YTE .79,8
00FF40: 0D 0A 42 59 54 45 20 09 32 34 2C 32 37 0D 0A 42 ..BYTE .24,27..B
00FF50: 59 54 45 09 37 2C 26 45 38 0D 0A 42 59 54 45 09 YTE.7,&E8..BYTE.
00FF60: 36 2C 31 33 0D 0A 42 59 54 45 20 26 46 46 0D 0A 6,13..BYTE &FF..
00FF70: 0D 0A 2E 45 58 50 41 4E 44 5F 54 41 42 4C 45 0D ...EXPAND_TABLE.
00FF80: 0A 57 4F 52 44 20 46 4B 30 0D 0A 57 4F 52 44 20 .WORD FK0..WORD
00FF90: 46 4B 31 0D 0A 57 4F 52 44 20 46 4B 32 0D 0A 57 FK1..WORD FK2..W
00FFA0: 4F 52 44 20 46 4B 33 0D 0A 57 4F 52 44 20 46 4B ORD FK3..WORD FK
00FFB0: 34 0D 0A 57 4F 52 44 20 46 4B 35 0D 0A 57 4F 52 4..WORD FK5..WOR
00FFC0: 44 20 46 4B 36 0D 0A 57 4F 52 44 20 46 4B 37 0D D FK6..WORD FK7.
00FFD0: 0A 57 4F 52 44 20 46 4B 38 0D 0A 57 4F 52 44 20 .WORD FK8..WORD
00FFE0: 46 4B 39 0D 0A 0D 0A 2E 4C 4F 47 4F 4E 32 09 0D FK9.....LOGON2..
00FFF0: 0A 42 59 54 45 20 26 38 32 2C 22 20 42 42 53 20 .BYTE &82," BBS
010000: 54 45 52 4D 49 4E 41 4C 20 20 56 36 2E 30 30 20 TERMINAL V6.00
010010: 20 20 20 20 20 20 20 5B 53 48 49 46 54 5D 5B 41 [SHIFT][A
010020: 72 72 6F 77 5D 20 66 6F 72 20 41 4E 53 49 20 63 rrow] for ANSI c
010030: 75 72 73 6F 72 22 2C 26 38 30 2C 31 30 2C 31 33 ursor",&80,10,13
010040: 2C 30 0D 0A 0D 0A 2E 4C 4F 47 4F 4E 0D 0A 42 59 ,0.....LOGON..BY
010050: 54 45 09 22 42 42 53 20 54 45 52 4D 49 4E 41 4C TE."BBS TERMINAL
010060: 20 20 56 36 2E 30 30 22 2C 31 30 2C 31 33 0D 0A V6.00",10,13..
010070: 42 59 54 45 09 22 46 52 45 45 57 41 52 45 20 43 BYTE."FREEWARE C
010080: 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E 53 20 54 45 OMMUNICATIONS TE
010090: 52 4D 49 4E 41 4C 3A 22 2C 31 30 2C 31 30 2C 31 RMINAL:",10,10,1
0100A0: 33 0D 0A 42 59 54 45 20 20 09 22 41 6C 6C 20 72 3..BYTE ."All r
0100B0: 69 67 68 74 73 20 74 6F 20 74 68 69 73 20 70 72 ights to this pr
0100C0: 6F 67 72 61 6D 6D 65 20 61 72 65 20 72 65 74 61 ogramme are reta
0100D0: 69 6E 65 64 20 62 79 20 74 68 65 20 41 75 74 68 ined by the Auth
0100E0: 6F 72 2E 22 2C 31 30 2C 31 33 0D 0A 42 59 54 45 or.",10,13..BYTE
0100F0: 09 22 49 20 67 72 61 6E 74 20 74 68 65 20 72 69 ."I grant the ri
010100: 67 68 74 20 74 6F 20 64 69 73 74 72 69 62 75 74 ght to distribut
010110: 65 20 74 68 69 73 20 70 72 6F 67 72 61 6D 2C 20 e this program,
010120: 70 72 6F 76 69 64 69 6E 67 20 74 68 61 74 20 6E providing that n
010130: 6F 20 63 68 61 72 67 65 22 2C 31 30 2C 31 33 0D o charge",10,13.
010140: 0A 42 59 54 45 09 22 69 73 20 6D 61 64 65 2E 20 .BYTE."is made.
010150: 49 20 61 6C 73 6F 20 67 72 61 6E 74 20 74 68 65 I also grant the
010160: 20 72 69 67 68 74 20 74 6F 20 20 64 69 73 74 72 right to distr
010170: 69 62 75 74 65 20 6D 6F 64 69 66 69 65 64 20 63 ibute modified c
010180: 6F 70 69 65 73 20 6F 66 20 74 68 69 73 22 2C 31 opies of this",1
010190: 30 2C 31 33 0D 0A 42 59 54 45 09 22 70 72 6F 67 0,13..BYTE."prog
0101A0: 72 61 6D 2C 20 70 72 6F 76 69 64 69 6E 67 20 74 ram, providing t
0101B0: 68 61 74 20 6E 6F 20 63 68 61 72 67 65 20 69 73 hat no charge is
0101C0: 20 6D 61 64 65 2C 20 61 6E 64 20 74 68 65 20 61 made, and the a
0101D0: 75 74 68 6F 72 27 73 20 6E 61 6D 65 73 20 73 74 uthor's names st
0101E0: 61 79 22 2C 31 30 2C 31 33 0D 0A 42 59 54 45 09 ay",10,13..BYTE.
0101F0: 22 69 6E 74 61 63 74 2E 22 2C 31 30 2C 31 30 2C "intact.",10,10,
010200: 31 33 0D 0A 42 59 54 45 09 26 38 31 2C 22 44 49 13..BYTE.&81,"DI
010210: 52 58 2E 42 42 53 20 20 20 44 69 61 6C 69 6E 67 RX.BBS Dialing
010220: 20 6C 69 73 74 22 2C 31 30 2C 31 33 0D 0A 62 79 list",10,13..by
010230: 74 65 09 20 20 20 20 22 54 45 52 4D 43 52 43 2E te. "TERMCRC.
010240: 42 42 53 20 22 2C 31 30 2C 31 33 0D 0A 62 79 74 BBS ",10,13..byt
010250: 65 09 20 20 20 20 22 20 26 30 30 30 2D 26 32 30 e. " &000-&20
010260: 30 20 43 52 43 20 74 61 62 6C 65 73 22 2C 31 30 0 CRC tables",10
010270: 2C 31 33 0D 0A 62 79 74 65 09 20 20 20 20 22 20 ,13..byte. "
010280: 26 32 30 30 2D 26 33 30 30 20 49 6E 70 75 74 20 &200-&300 Input
010290: 6D 61 74 72 69 78 22 2C 31 30 2C 31 33 0D 0A 62 matrix",10,13..b
0102A0: 79 74 65 20 20 20 20 20 20 20 20 22 20 26 33 30 yte " &30
0102B0: 30 2D 26 34 30 30 20 4F 75 74 70 75 74 20 6D 61 0-&400 Output ma
0102C0: 74 72 69 78 22 2C 31 30 2C 31 30 2C 31 30 2C 31 trix",10,10,10,1
0102D0: 33 0D 0A 42 59 54 45 09 22 57 72 69 74 74 65 6E 3..BYTE."Written
0102E0: 20 62 79 20 22 2C 26 38 31 2C 22 47 6C 65 6E 6E by ",&81,"Glenn
0102F0: 20 57 69 6C 74 6F 6E 22 2C 26 38 30 2C 22 20 31 Wilton",&80," 1
010300: 39 39 31 22 2C 31 30 2C 31 33 0D 0A 42 59 54 45 991",10,13..BYTE
010310: 09 22 41 6E 73 69 20 62 61 73 65 64 20 6F 6E 20 ."Ansi based on
010320: 63 6F 64 65 20 62 79 20 45 77 65 6E 20 4D 63 4E code by Ewen McN
010330: 65 69 6C 6C 20 20 20 20 20 31 39 39 30 22 2C 31 eill 1990",1
010340: 30 2C 31 30 2C 31 33 0D 0A 42 59 54 45 09 26 38 0,10,13..BYTE.&8
010350: 31 2C 22 4C 4F 41 44 49 4E 47 20 44 49 52 45 43 1,"LOADING DIREC
010360: 54 4F 52 59 22 2C 26 38 30 2C 31 33 2C 31 30 2C TORY",&80,13,10,
010370: 30 0D 0A 0D 0A 2E 55 53 45 52 58 09 09 09 53 54 0.....USERX...ST
010380: 52 20 22 55 53 45 52 22 0D 0A 2E 45 52 41 53 54 R "USER"...ERAST
010390: 52 09 09 09 53 54 52 20 22 45 52 41 22 0D 0A 2E R...STR "ERA"...
0103A0: 45 52 41 49 58 09 09 09 57 4F 52 44 20 45 52 41 ERAIX...WORD ERA
0103B0: 4C 45 4E 0D 0A 2E 45 52 41 4C 45 4E 20 09 09 42 LEN...ERALEN ..B
0103C0: 59 54 45 20 30 0D 0A 09 09 09 57 4F 52 44 20 4E YTE 0.....WORD N
0103D0: 41 4D 45 20 0D 0A 2E 4E 41 4D 45 31 09 09 09 44 AME ...NAME1...D
0103E0: 45 46 53 20 31 36 0D 0A 2E 4E 41 4D 45 32 09 09 EFS 16...NAME2..
0103F0: 09 44 45 46 53 20 31 36 0D 0A 2E 4E 45 57 4E 41 .DEFS 16...NEWNA
010400: 4D 45 20 09 09 53 54 52 09 22 4E 45 57 20 4E 41 ME ..STR."NEW NA
010410: 4D 45 3A 20 22 0D 0A 2E 4F 4C 44 4E 41 4D 45 20 ME: "...OLDNAME
010420: 09 09 53 54 52 09 22 4F 4C 44 20 4E 41 4D 45 3A ..STR."OLD NAME:
010430: 20 22 0D 0A 2E 52 45 4E 49 58 5F 4E 41 4D 45 32 "...RENIX_NAME2
010440: 09 09 57 4F 52 44 20 4E 41 4D 45 32 4C 45 4E 0D ..WORD NAME2LEN.
010450: 0A 2E 52 45 4E 49 58 5F 4E 41 4D 45 31 09 09 57 ..RENIX_NAME1..W
010460: 4F 52 44 20 4E 41 4D 45 31 4C 45 4E 0D 0A 2E 4E ORD NAME1LEN...N
010470: 41 4D 45 31 4C 45 4E 09 09 42 59 54 45 20 30 0D AME1LEN..BYTE 0.
010480: 0A 09 09 09 57 4F 52 44 20 4E 41 4D 45 31 0D 0A ....WORD NAME1..
010490: 2E 4E 41 4D 45 32 4C 45 4E 09 09 42 59 54 45 20 .NAME2LEN..BYTE
0104A0: 30 0D 0A 09 09 09 57 4F 52 44 20 4E 41 4D 45 32 0.....WORD NAME2
0104B0: 0D 0A 2E 52 45 4E 53 54 52 09 09 09 53 54 52 20 ...RENSTR...STR
0104C0: 22 52 45 4E 22 0D 0A 0D 0A 2E 52 53 58 43 41 4C "REN".....RSXCAL
0104D0: 4C 09 09 57 4F 52 44 20 30 0D 0A 2E 52 53 58 52 L..WORD 0...RSXR
0104E0: 4F 4D 09 09 09 42 59 54 45 20 30 0D 0A 2E 46 49 OM...BYTE 0...FI
0104F0: 4C 45 4E 41 4D 45 09 09 53 54 52 09 22 46 69 6C LENAME..STR."Fil
010500: 65 6E 61 6D 65 20 3A 20 22 0D 0A 2E 4E 41 4D 45 ename : "...NAME
010510: 09 09 09 42 59 54 45 09 22 58 4D 4F 44 45 4D 20 ...BYTE."XMODEM
010520: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A "..
010530: 3B 4C 61 73 74 5F 42 4C 6F 63 6B 5F 41 64 64 09 ;Last_BLock_Add.
010540: 09 57 4F 52 44 20 58 6D 6F 64 65 6D 5F 53 74 61 .WORD Xmodem_Sta
010550: 72 74 0D 0A 2E 45 78 70 65 63 74 65 64 5F 42 6C rt...Expected_Bl
010560: 6F 63 6B 09 09 42 59 54 45 20 31 0D 0A 2E 52 65 ock..BYTE 1...Re
010570: 63 5F 42 6F 72 64 65 72 09 09 57 4F 52 44 20 58 c_Border..WORD X
010580: 6D 6F 64 65 6D 5F 49 6E 66 6F 0D 0A 2E 52 65 63 modem_Info...Rec
010590: 5F 41 64 64 09 09 57 4F 52 44 20 30 0D 0A 3B 43 _Add..WORD 0..;C
0105A0: 52 43 09 09 09 42 59 54 45 20 33 32 0D 0A 2E 42 RC...BYTE 32...B
0105B0: 79 74 65 73 09 09 09 57 4F 52 44 20 30 0D 0A 2E ytes...WORD 0...
0105C0: 42 6C 6F 63 6B 09 09 09 42 59 54 45 20 30 0D 0A Block...BYTE 0..
0105D0: 2E 46 46 5F 42 6C 6F 63 6B 09 09 42 59 54 45 20 .FF_Block..BYTE
0105E0: 30 0D 0A 2E 43 52 43 56 41 4C 09 09 09 57 4F 52 0...CRCVAL...WOR
0105F0: 44 20 30 0D 0A 2E 53 4F 48 53 54 58 09 09 09 42 D 0...SOHSTX...B
010600: 59 54 45 20 31 0D 0A 2E 53 65 6E 64 48 65 61 64 YTE 1...SendHead
010610: 65 72 09 09 53 54 52 20 22 53 65 6E 64 20 66 69 er..STR "Send fi
010620: 6C 65 20 68 65 61 64 65 72 3F 20 28 59 2F 4E 29 le header? (Y/N)
010630: 22 0D 0A 2E 54 4C 65 6E 67 74 68 09 09 57 4F 52 "...TLength..WOR
010640: 44 20 31 32 38 0D 0A 2E 54 45 6E 64 5F 46 6C 61 D 128...TEnd_Fla
010650: 67 09 09 42 59 54 45 20 30 0D 0A 2E 48 45 41 44 g..BYTE 0...HEAD
010660: 5F 46 4C 41 47 09 09 42 59 54 45 20 30 0D 0A 2E _FLAG..BYTE 0...
010670: 4E 55 4D 4F 46 42 4C 4F 43 4B 09 09 57 4F 52 44 NUMOFBLOCK..WORD
010680: 20 30 0D 0A 2E 58 54 59 50 45 09 09 09 57 4F 52 0...XTYPE...WOR
010690: 44 20 58 58 4B 30 0D 0A 2E 4F 4E 32 09 09 09 42 D XXK0...ON2...B
0106A0: 59 54 45 20 22 4F 6E 20 22 2C 26 38 30 2C 30 0D YTE "On ",&80,0.
0106B0: 0A 2E 4F 46 46 32 09 09 09 42 59 54 45 20 22 4F ..OFF2...BYTE "O
0106C0: 66 66 22 2C 26 38 30 2C 30 0D 0A 2E 44 59 09 09 ff",&80,0...DY..
0106D0: 09 57 4F 52 44 20 30 0D 0A 2E 50 55 4C 4C 5F 53 .WORD 0...PULL_S
0106E0: 54 41 43 4B 09 09 57 4F 52 44 20 30 0D 0A 2E 50 TACK..WORD 0...P
0106F0: 55 4C 49 58 09 09 09 57 4F 52 44 20 30 0D 0A 2E ULIX...WORD 0...
010700: 54 59 50 09 09 09 42 59 54 45 20 30 0D 0A 2E 48 TYP...BYTE 0...H
010710: 45 41 44 44 45 52 09 09 57 4F 52 44 20 30 0D 0A EADDER..WORD 0..
010720: 2E 46 53 4A 50 09 09 09 57 4F 52 44 20 30 0D 0A .FSJP...WORD 0..
010730: 2E 42 41 53 49 43 09 09 09 53 54 52 09 22 42 41 .BASIC...STR."BA
010740: 53 49 43 22 0D 0A 2E 42 49 4E 41 52 59 09 09 09 SIC"...BINARY...
010750: 53 54 52 09 22 42 49 4E 41 52 59 22 0D 0A 2E 53 STR."BINARY"...S
010760: 43 52 45 45 4E 09 09 09 53 54 52 09 22 53 43 52 CREEN...STR."SCR
010770: 45 45 4E 22 0D 0A 2E 41 53 43 49 49 09 09 09 53 EEN"...ASCII...S
010780: 54 52 09 22 41 53 43 49 49 22 09 0D 0A 2E 50 52 TR."ASCII"....PR
010790: 4F 54 09 09 09 53 54 52 09 22 5B 50 5D 20 22 0D OT...STR."[P] ".
0107A0: 0A 2E 46 49 4C 45 5F 4C 45 4E 47 54 48 09 09 53 ..FILE_LENGTH..S
0107B0: 54 52 09 22 46 69 6C 65 20 6C 65 6E 67 74 68 20 TR."File length
0107C0: 20 20 3A 20 26 22 0D 0A 2E 44 41 54 41 5F 4C 4F : &"...DATA_LO
0107D0: 43 09 09 53 54 52 09 22 44 61 74 61 20 6C 6F 63 C..STR."Data loc
0107E0: 61 74 69 6F 6E 20 3A 20 26 22 0D 0A 2E 54 59 50 ation : &"...TYP
0107F0: 45 09 09 09 53 54 52 09 22 46 69 6C 65 20 54 79 E...STR."File Ty
010800: 70 65 20 20 20 20 20 3A 20 22 0D 0A 2E 53 54 52 pe : "...STR
010810: 53 50 41 43 45 09 09 53 54 52 20 09 22 20 22 0D SPACE..STR ." ".
010820: 0A 0D 0A 2E 43 53 58 09 09 09 42 59 54 45 20 30 ....CSX...BYTE 0
010830: 0D 0A 3B 48 45 4C 50 5F 4E 41 4D 45 09 09 42 59 ..;HELP_NAME..BY
010840: 54 45 20 22 48 45 4C 50 2E 42 42 53 22 0D 0A 2E TE "HELP.BBS"...
010850: 53 57 49 54 43 48 09 09 09 53 54 52 20 22 53 65 SWITCH...STR "Se
010860: 74 20 74 6F 20 22 0D 0A 2E 42 41 55 44 5F 54 45 t to "...BAUD_TE
010870: 4D 50 09 09 42 59 54 45 20 30 0D 0A 2E 43 4C 49 MP..BYTE 0...CLI
010880: 50 53 56 09 09 09 57 4F 52 44 20 30 0D 0A 2E 43 PSV...WORD 0...C
010890: 4C 49 50 4C 45 4E 09 09 57 4F 52 44 20 30 0D 0A LIPLEN..WORD 0..
0108A0: 2E 43 4C 49 50 59 09 09 09 57 4F 52 44 20 30 0D .CLIPY...WORD 0.
0108B0: 0A 20 20 20 20 0D 0A 2E 43 59 43 42 4F 52 09 09 . ...CYCBOR..
0108C0: 09 42 59 54 45 20 30 2C 39 2C 31 35 2C 34 31 0D .BYTE 0,9,15,41.
0108D0: 0A 2E 43 59 43 54 58 09 09 09 42 59 54 45 20 22 ..CYCTX...BYTE "
0108E0: 5B 43 4F 50 59 5D 20 20 41 64 64 20 20 20 20 20 [COPY] Add
0108F0: 5B 45 53 43 5D 20 20 20 51 75 69 74 2F 45 78 69 [ESC] Quit/Exi
010900: 74 22 2C 30 0D 0A 2E 43 59 43 54 58 31 09 09 09 t",0...CYCTX1...
010910: 42 59 54 45 20 22 5B 44 45 4C 5D 20 20 20 57 69 BYTE "[DEL] Wi
010920: 70 65 20 20 20 20 5B 45 4E 54 45 52 5D 20 44 69 pe [ENTER] Di
010930: 61 6C 22 2C 30 09 0D 0A 2E 43 59 43 4E 55 4D 09 al",0....CYCNUM.
010940: 09 09 42 59 54 45 20 30 0D 0A 2E 43 59 43 59 09 ..BYTE 0...CYCY.
010950: 09 09 42 59 54 45 20 30 0D 0A 2E 44 49 41 4C 54 ..BYTE 0...DIALT
010960: 49 4D 45 09 09 42 59 54 45 20 30 0D 0A 2E 4E 4F IME..BYTE 0...NO
010970: 4E 45 09 09 09 42 59 54 45 20 22 4E 6F 6E 65 22 NE...BYTE "None"
010980: 0D 0A 2E 41 54 44 54 09 09 09 42 59 54 45 20 22 ...ATDT...BYTE "
010990: 41 54 44 54 22 0D 0A 2E 41 54 44 50 09 09 09 42 ATDT"...ATDP...B
0109A0: 59 54 45 20 22 41 54 44 50 22 0D 0A 2E 44 49 41 YTE "ATDP"...DIA
0109B0: 4C 5F 4A 55 4D 50 09 09 57 4F 52 44 20 54 4F 4E L_JUMP..WORD TON
0109C0: 45 0D 0A 2E 44 49 41 4C 5F 43 4F 4E 54 52 4F 4C E...DIAL_CONTROL
0109D0: 09 09 57 4F 52 44 20 61 74 64 74 0D 0A 2E 44 69 ..WORD atdt...Di
0109E0: 61 6C 5F 53 65 6C 65 63 74 09 09 42 59 54 45 20 al_Select..BYTE
0109F0: 30 09 0D 0A 2E 4E 55 4D 42 45 52 09 09 09 57 4F 0....NUMBER...WO
010A00: 52 44 20 30 0D 0A 2E 44 49 41 4C 5F 43 41 4C 4C RD 0...DIAL_CALL
010A10: 53 09 09 42 59 54 45 20 30 0D 0A 2E 44 49 52 46 S..BYTE 0...DIRF
010A20: 49 4C 45 4E 41 4D 45 09 09 42 59 54 45 20 22 41 ILENAME..BYTE "A
010A30: 3A 44 49 52 22 0D 0A 2E 50 41 47 45 5F 4E 55 4D :DIR"...PAGE_NUM
010A40: 42 45 52 09 09 42 59 54 45 20 22 30 2E 42 42 53 BER..BYTE "0.BBS
010A50: 22 0D 0A 2E 4C 4F 41 44 49 52 4D 53 47 09 09 42 "...LOADIRMSG..B
010A60: 59 54 45 20 26 38 32 2C 22 44 69 72 65 63 74 6F YTE &82,"Directo
010A70: 72 79 20 6E 6F 74 20 66 6F 75 6E 64 22 2C 26 38 ry not found",&8
010A80: 30 2C 30 0D 0A 2E 42 42 53 59 09 09 09 42 59 54 0,0...BBSY...BYT
010A90: 45 20 30 0D 0A 2E 43 41 50 09 09 09 42 59 54 45 E 0...CAP...BYTE
010AA0: 20 30 0D 0A 2E 43 41 50 53 59 09 09 09 42 59 54 0...CAPSY...BYT
010AB0: 45 20 30 0D 0A 2E 43 41 50 5F 42 55 46 09 09 57 E 0...CAP_BUF..W
010AC0: 4F 52 44 20 30 0D 0A 2E 43 41 50 5F 4C 45 4E 09 ORD 0...CAP_LEN.
010AD0: 09 57 4F 52 44 20 30 0D 0A 2E 44 45 46 57 4F 52 .WORD 0...DEFWOR
010AE0: 44 09 09 57 4F 52 44 20 30 0D 0A 2E 44 45 46 4E D..WORD 0...DEFN
010AF0: 55 4D 09 09 09 42 59 54 45 20 30 0D 0A 2E 44 45 UM...BYTE 0...DE
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 4E E5 0E 00 C1 02 00 00 00 02 ......N.........
010B20: 0E 00 C2 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B30: 0E 00 C4 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B40: 0E 00 C6 02 00 00 00 02 0E 00 C7 02 00 00 00 02 ................
010B50: 0E 00 C8 02 00 00 00 02 0E 00 C9 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 46 49 4E 45 54 58 54 09 09 42 59 54 45 20 22 23 FINETXT..BYTE "#
010C10: 20 66 6F 72 20 5B 43 52 5D 22 2C 30 0D 0A 2E 53 for [CR]",0...S
010C20: 41 56 45 50 45 52 53 09 09 53 54 52 20 22 53 61 AVEPERS..STR "Sa
010C30: 76 65 20 61 20 70 65 72 73 6F 6E 61 6C 20 63 6F ve a personal co
010C40: 70 79 3F 20 28 79 2F 4E 29 20 22 0D 0A 2E 41 4E py? (y/N) "...AN
010C50: 53 49 46 49 4C 45 4E 41 4D 45 09 09 42 59 54 45 SIFILENAME..BYTE
010C60: 20 26 38 32 2C 22 46 69 6C 65 6E 61 6D 65 20 3A &82,"Filename :
010C70: 22 2C 26 38 30 2C 30 0D 0A 2E 4E 45 57 54 45 52 ",&80,0...NEWTER
010C80: 4D 09 09 44 45 46 53 20 31 36 0D 0A 2E 43 55 53 M..DEFS 16...CUS
010C90: 59 45 53 09 09 09 42 59 54 45 20 26 38 32 2C 22 YES...BYTE &82,"
010CA0: 59 65 73 22 2C 26 38 30 2C 30 0D 0A 2E 43 55 53 Yes",&80,0...CUS
010CB0: 4E 4F 09 09 09 42 59 54 45 20 26 38 32 2C 22 4E NO...BYTE &82,"N
010CC0: 6F 22 2C 26 38 30 2C 30 0D 0A 2E 4C 4F 43 45 43 o",&80,0...LOCEC
010CD0: 48 4F 09 09 53 54 52 20 22 4C 6F 63 61 6C 20 45 HO..STR "Local E
010CE0: 63 68 6F 20 2E 20 20 2E 20 20 2E 20 20 2E 20 20 cho . . . .
010CF0: 2E 20 20 3F 20 22 0D 0A 2E 52 45 4D 45 43 48 4F . ? "...REMECHO
010D00: 09 09 53 54 52 20 22 52 65 6D 6F 74 65 20 45 63 ..STR "Remote Ec
010D10: 68 6F 20 20 20 2E 20 20 2E 20 20 2E 20 20 2E 20 ho . . . .
010D20: 20 3F 20 22 0D 0A 2E 4C 4F 43 44 45 4C 09 09 09 ? "...LOCDEL...
010D30: 53 54 52 20 22 4C 6F 63 61 6C 20 64 65 73 74 72 STR "Local destr
010D40: 75 63 74 69 76 65 20 64 65 6C 65 74 65 20 20 3F uctive delete ?
010D50: 20 22 0D 0A 2E 4C 4F 43 4C 46 09 09 09 53 54 52 "...LOCLF...STR
010D60: 20 22 4C 6F 63 61 6C 20 61 64 64 20 4C 46 20 74 "Local add LF t
010D70: 6F 20 43 52 20 20 2E 20 20 2E 20 20 3F 20 22 0D o CR . . ? ".
010D80: 0A 2E 52 45 4D 44 45 4C 09 09 09 53 54 52 20 22 ..REMDEL...STR "
010D90: 52 65 6D 6F 74 65 20 64 65 73 74 72 75 63 74 69 Remote destructi
010DA0: 76 65 20 64 65 6C 65 74 65 20 3F 20 22 0D 0A 2E ve delete ? "...
010DB0: 52 45 4D 4C 46 09 09 09 53 54 52 20 22 52 65 6D REMLF...STR "Rem
010DC0: 6F 74 65 20 61 64 64 20 4C 46 20 74 6F 20 43 52 ote add LF to CR
010DD0: 20 2E 20 20 2E 20 20 3F 20 22 0D 0A 2E 45 52 52 . . ? "...ERR
010DE0: 4F 52 4F 4E 44 49 53 43 09 09 53 54 52 09 22 44 ORONDISC..STR."D
010DF0: 69 73 63 20 65 72 72 6F 72 22 0D 0A 2E 53 54 41 isc error"...STA
010E00: 52 54 5F 53 54 41 43 4B 09 09 57 4F 52 44 20 30 RT_STACK..WORD 0
010E10: 0D 0A 2E 49 4E 46 4F 5F 53 54 41 52 54 09 09 57 ...INFO_START..W
010E20: 4F 52 44 20 30 0D 0A 2E 44 49 41 4C 54 49 4D 45 ORD 0...DIALTIME
010E30: 4F 55 54 09 09 42 59 54 45 20 33 30 0D 0A 2E 4D OUT..BYTE 30...M
010E40: 41 4E 55 41 4C 54 49 4D 45 4F 55 54 09 09 42 59 ANUALTIMEOUT..BY
010E50: 54 45 20 31 32 30 0D 0A 0D 0A 0D 0A 3B 2E 43 59 TE 120......;.CY
010E60: 43 5F 42 55 46 46 45 52 09 44 45 46 53 20 33 30 C_BUFFER.DEFS 30
010E70: 30 2C 33 32 0D 0A 0D 0A 2E 45 4E 44 43 4F 44 45 0,32.....ENDCODE
010E80: 0D 0A 2E 48 45 6E 64 63 6F 64 65 20 09 45 51 55 ...HEndcode .EQU
010E90: 20 45 6E 64 63 6F 64 65 20 4D 4F 44 20 26 31 30 Endcode MOD &10
010EA0: 30 0D 0A 2E 4E 65 78 74 70 61 67 65 09 52 4D 45 0...Nextpage.RME
010EB0: 4D 20 26 31 30 30 2D 48 45 6E 64 63 6F 64 65 2C M &100-HEndcode,
010EC0: 26 46 46 0D 0A 0D 0A 0D 0A 4C 49 53 54 0D 0A 2E &FF......LIST...
010ED0: 4F 50 5F 53 54 41 52 54 0D 0A 0D 0A 3B 4F 55 54 OP_START....;OUT
010EE0: 42 55 46 46 46 09 52 4D 45 4D 20 26 31 30 30 0D BUFFF.RMEM &100.
010EF0: 0A 0D 0A 2E 4F 55 54 42 55 46 46 46 20 20 20 20 ....OUTBUFFF
010F00: 0D 0A 2E 4F 55 54 5F 53 54 41 52 54 32 09 45 51 ...OUT_START2.EQ
010F10: 55 20 4F 50 5F 53 54 41 52 54 2F 26 31 30 30 0D U OP_START/&100.
010F20: 0A 2E 61 6D 73 64 6F 73 09 09 45 51 55 20 4F 50 ..amsdos..EQU OP
010F30: 5F 53 54 41 52 54 2B 26 31 30 30 0D 0A 0D 0A 1A _START+&100.....
010F40: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
010F50: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
010F60: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
010F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010F80: 0A 2E 52 45 4D 44 45 4C 09 09 09 53 54 52 20 22 ..REMDEL...STR "
010F90: 52 65 6D 6F 74 65 20 64 65 73 74 72 75 63 74 69 Remote destructi
010FA0: 76 65 20 64 65 6C 65 74 65 20 3F 20 22 0D 0A 2E ve delete ? "...
010FB0: 52 45 4D 4C 46 09 09 09 53 54 52 20 22 52 65 6D REMLF...STR "Rem
010FC0: 6F 74 65 20 61 64 64 20 4C 46 20 74 6F 20 43 52 ote add LF to CR
010FD0: 20 2E 20 20 2E 20 20 3F 20 22 0D 0A 2E 45 52 52 . . ? "...ERR
010FE0: 4F 52 4F 4E 44 49 53 43 09 09 53 54 52 09 22 44 ORONDISC..STR."D
010FF0: 69 73 63 20 65 72 72 6F 72 22 0D 0A 2E 53 54 41 isc error"...STA
011000: 31 09 70 72 69 6E 74 20 22 54 65 78 74 20 73 79 1.print "Text sy
011010: 73 74 65 6D 22 0D 0A 0D 0A 2E 53 63 72 65 65 6E stem".....Screen
011020: 5F 44 65 70 74 68 09 20 45 51 55 20 32 34 0D 0A _Depth. EQU 24..
011030: 2E 53 63 72 5F 44 65 70 74 68 09 42 59 54 45 20 .Scr_Depth.BYTE
011040: 32 34 0D 0A 0D 0A 2E 50 55 4C 4C 5F 50 52 49 4E 24.....PULL_PRIN
011050: 54 0D 0A 09 50 55 53 48 20 41 46 0D 0A 09 45 58 T...PUSH AF...EX
011060: 20 44 45 2C 48 4C 0D 0A 2E 50 50 30 09 0D 0A 09 DE,HL...PP0....
011070: 4C 44 20 41 2C 28 44 45 29 0D 0A 09 49 4E 43 20 LD A,(DE)...INC
011080: 44 45 0D 0A 09 4F 52 20 41 0D 0A 09 4A 50 20 5A DE...OR A...JP Z
011090: 2C 50 55 4C 4C 50 4F 50 0D 0A 09 50 55 53 48 20 ,PULLPOP...PUSH
0110A0: 44 45 0D 0A 09 4C 44 20 45 2C 41 0D 0A 09 4C 44 DE...LD E,A...LD
0110B0: 20 44 2C 43 68 61 72 6D 61 70 32 0D 0A 20 20 20 D,Charmap2..
0110C0: 20 20 20 20 20 42 49 54 20 37 2C 45 0D 0A 09 4A BIT 7,E...J
0110D0: 50 20 5A 2C 50 50 31 0D 0A 09 4C 44 20 44 2C 62 P Z,PP1...LD D,b
0110E0: 6F 6C 64 66 69 6E 74 32 0D 0A 2E 50 50 31 09 0D oldfint2...PP1..
0110F0: 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 . LD HL,(
011100: 59 29 0D 0A 09 43 41 4C 4C 20 53 43 52 5F 41 44 Y)...CALL SCR_AD
011110: 44 52 45 53 53 0D 0A 09 43 41 4C 4C 20 43 48 41 DRESS...CALL CHA
011120: 52 0D 0A 20 20 20 20 20 20 20 20 50 4F 50 20 44 R.. POP D
011130: 45 0D 0A 09 4C 44 20 41 2C 28 58 29 0D 0A 09 49 E...LD A,(X)...I
011140: 4E 43 20 41 0D 0A 09 4C 44 20 28 58 29 2C 41 0D NC A...LD (X),A.
011150: 0A 09 43 50 20 38 30 0D 0A 09 4A 52 20 4E 5A 2C ..CP 80...JR NZ,
011160: 50 50 30 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 PP0...XOR A...LD
011170: 20 28 58 29 2C 41 0D 0A 09 4A 50 20 50 50 30 0D (X),A...JP PP0.
011180: 0A 2E 50 55 4C 4C 50 4F 50 0D 0A 09 45 58 20 48 ..PULLPOP...EX H
011190: 4C 2C 44 45 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 L,DE...POP AF...
0111A0: 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D RET....;--------
0111B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0111C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A ------------....
0111D0: 2E 57 72 69 74 65 5F 43 68 61 72 0D 0A 09 50 55 .Write_Char...PU
0111E0: 53 48 20 41 46 0D 0A 20 20 20 20 20 20 20 20 50 SH AF.. P
0111F0: 55 53 48 20 42 43 0D 0A 09 50 55 53 48 20 44 45 USH BC...PUSH DE
011200: 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 0D 0A 09 ...PUSH HL......
011210: 43 50 20 31 33 0D 0A 09 4A 70 20 5A 2C 57 43 5F CP 13...Jp Z,WC_
011220: 4C 46 0D 0A 09 43 50 20 31 30 0D 0A 09 4A 70 20 LF...CP 10...Jp
011230: 5A 2C 57 43 5F 44 4F 57 4E 0D 0A 09 50 55 53 48 Z,WC_DOWN...PUSH
011240: 20 41 46 0D 0A 09 4C 44 20 48 4C 2C 28 59 29 0D AF...LD HL,(Y).
011250: 0A 09 43 41 4C 4C 20 53 43 52 5F 41 44 44 52 45 ..CALL SCR_ADDRE
011260: 53 53 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 4C 44 SS...POP AF...LD
011270: 20 44 2C 43 48 41 52 4D 41 50 32 0D 0A 09 4C 44 D,CHARMAP2...LD
011280: 20 45 2C 41 0D 0A 09 43 41 4C 4C 20 43 48 41 52 E,A...CALL CHAR
011290: 0D 0A 09 4C 44 20 48 4C 2C 28 59 29 0D 0A 09 49 ...LD HL,(Y)...I
0112A0: 4E 43 20 48 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 NC H...LD A,H...
0112B0: 43 50 20 38 30 0D 0A 09 4A 52 20 4E 5A 2C 57 43 CP 80...JR NZ,WC
0112C0: 32 0D 0A 09 4C 44 20 48 2C 30 3A 49 4E 43 20 4C 2...LD H,0:INC L
0112D0: 0D 0A 2E 57 43 32 09 4C 44 20 41 2C 4C 0D 0A 09 ...WC2.LD A,L...
0112E0: 43 50 20 32 35 0D 0A 09 4A 52 20 4E 5A 2C 57 43 CP 25...JR NZ,WC
0112F0: 33 0D 0A 3B 09 63 61 6C 6C 20 72 6F 6C 6C 75 70 3..;.call rollup
011300: 0D 0A 3B 09 4C 44 20 4C 2C 32 34 09 0D 0A 09 4C ..;.LD L,24....L
011310: 44 20 4C 2C 30 0D 0A 2E 57 43 33 09 4C 44 20 28 D L,0...WC3.LD (
011320: 59 29 2C 48 4C 0D 0A 2E 57 43 45 4E 44 09 50 4F Y),HL...WCEND.PO
011330: 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 50 4F P HL.. PO
011340: 50 20 44 45 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 P DE...POP BC...
011350: 50 4F 50 20 41 46 0D 0A 09 52 45 54 0D 0A 0D 0A POP AF...RET....
011360: 2E 57 43 5F 4C 46 0D 0A 09 4C 44 20 41 2C 28 58 .WC_LF...LD A,(X
011370: 29 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 28 )...XOR A...LD (
011380: 58 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 4A 50 X),A.. JP
011390: 20 57 43 45 4E 44 0D 0A 09 0D 0A 2E 57 43 5F 44 WCEND......WC_D
0113A0: 4F 57 4E 0D 0A 09 4C 44 20 48 4C 2C 28 59 29 0D OWN...LD HL,(Y).
0113B0: 0A 09 49 4E 43 20 4C 0D 0A 09 4A 52 20 57 43 32 ..INC L...JR WC2
0113C0: 09 0D 0A 0D 0A 2E 53 63 72 65 65 6E 57 72 69 74 ......ScreenWrit
0113D0: 65 0D 0A 09 43 41 4C 4C 20 6A 70 72 69 6E 74 0D e...CALL jprint.
0113E0: 0A 09 4A 50 20 4A 61 6E 73 69 0D 0A 0D 0A 3B 2D ..JP Jansi....;-
0113F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011400: 2D 2D 2D 2D 2D 0D 0A 3B 09 50 52 49 4E 54 20 43 -----..;.PRINT C
011410: 48 41 52 0D 0A 3B 09 45 6E 74 72 79 20 28 58 29 HAR..;.Entry (X)
011420: 20 28 59 29 20 3D 78 2C 79 20 70 6F 73 20 20 41 (Y) =x,y pos A
011430: 3D 63 68 61 72 0D 0A 3B 09 45 78 69 74 0D 0A 3B =char..;.Exit..;
011440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011450: 2D 2D 2D 2D 2D 0D 0A 2E 6A 70 72 69 6E 74 0D 0A -----...jprint..
011460: 09 4E 4F 50 0D 0A 2E 50 52 49 4E 54 0D 0A 0D 0A .NOP...PRINT....
011470: 20 20 20 20 20 20 20 20 50 55 53 48 20 41 46 0D PUSH AF.
011480: 0A 09 50 55 53 48 20 42 43 0D 0A 09 50 55 53 48 ..PUSH BC...PUSH
011490: 20 44 45 0D 0A 09 50 55 53 48 20 48 4C 09 09 09 DE...PUSH HL...
0114A0: 3B 53 61 76 65 20 72 65 67 73 0D 0A 0D 0A 09 4F ;Save regs.....O
0114B0: 52 20 41 0D 0A 09 4A 70 20 5A 2C 50 52 49 4E 54 R A...Jp Z,PRINT
0114C0: 5F 53 4B 49 50 0D 0A 0D 0A 20 20 20 20 20 20 20 _SKIP....
0114D0: 20 43 50 20 32 37 0D 0A 09 4A 52 20 4E 5A 2C 50 CP 27...JR NZ,P
0114E0: 43 48 31 0D 0A 09 4C 44 09 41 2C 26 43 39 0D 0A CH1...LD.A,&C9..
0114F0: 09 4C 44 09 28 4A 53 63 72 6E 42 75 66 29 2C 41 .LD.(JScrnBuf),A
011500: 09 09 3B 20 53 63 72 65 65 6E 20 62 75 66 66 65 ..; Screen buffe
011510: 72 20 6F 66 66 0D 0A 09 4C 44 09 28 4A 70 72 69 r off...LD.(Jpri
011520: 6E 74 29 2C 41 09 09 3B 20 53 63 72 65 65 6E 20 nt),A..; Screen
011530: 64 69 73 70 6C 61 79 20 6F 66 66 2E 0D 0A 09 58 display off....X
011540: 4F 52 09 41 0D 0A 09 4C 44 09 28 4A 41 6E 73 69 OR.A...LD.(JAnsi
011550: 29 2C 41 09 09 3B 20 41 6E 73 69 20 64 69 73 70 ),A..; Ansi disp
011560: 6C 61 79 20 6F 6E 2E 0D 0A 09 4A 50 09 50 45 4E lay on....JP.PEN
011570: 44 32 0D 0A 0D 0A 0D 0A 2E 50 43 48 31 09 0D 0A D2.......PCH1...
011580: 0D 0A 09 43 50 20 37 0D 0A 09 4A 50 20 5A 2C 53 ...CP 7...JP Z,S
011590: 4F 55 4E 44 5F 43 48 41 52 09 09 3B 73 6F 75 6E OUND_CHAR..;soun
0115A0: 64 20 63 68 61 72 0D 0A 0D 0A 09 4C 44 20 44 2C d char.....LD D,
0115B0: 41 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C A.. LD A,
0115C0: 28 63 75 72 73 6F 72 6F 6E 29 0D 0A 09 4F 52 20 (cursoron)...OR
0115D0: 41 0D 0A 09 43 41 4C 4C 20 4E 5A 2C 63 75 72 73 A...CALL NZ,curs
0115E0: 6F 72 09 09 3B 73 77 61 70 20 63 75 72 73 6F 72 or..;swap cursor
0115F0: 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C 44 20 28 63 ...XOR A...LD (c
011600: 75 72 73 6F 72 6F 6E 29 2C 41 0D 0A 09 4C 44 20 ursoron),A...LD
011610: 28 63 75 72 73 6F 72 63 6F 75 6E 74 29 2C 41 0D (cursorcount),A.
011620: 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C 26 43 . LD A,&C
011630: 39 0D 0A 09 4C 44 20 28 6A 63 68 61 6E 67 65 63 9...LD (jchangec
011640: 75 72 73 6F 72 29 2C 41 0D 0A 09 4C 44 20 41 2C ursor),A...LD A,
011650: 44 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 28 59 29 0D D.....LD HL,(Y).
011660: 0A 09 43 50 20 38 0D 0A 09 4A 52 20 5A 2C 43 55 ..CP 8...JR Z,CU
011670: 4C 45 46 54 09 09 3B 6D 6F 76 65 20 63 75 72 20 LEFT..;move cur
011680: 6C 65 66 74 0D 0A 09 43 50 20 39 0D 0A 09 4A 52 left...CP 9...JR
011690: 20 5A 2C 43 55 52 49 47 48 54 09 09 3B 6D 6F 76 Z,CURIGHT..;mov
0116A0: 65 20 63 75 72 20 72 69 67 68 74 0D 0A 09 43 50 e cur right...CP
0116B0: 20 31 30 0D 0A 09 4A 50 20 5A 2C 43 55 44 4F 57 10...JP Z,CUDOW
0116C0: 4E 09 09 3B 6D 6F 76 65 20 63 75 72 20 64 6F 77 N..;move cur dow
0116D0: 6E 0D 0A 09 43 50 20 31 31 0D 0A 09 4A 52 20 5A n...CP 11...JR Z
0116E0: 2C 43 55 55 50 09 09 3B 6D 6F 76 65 20 63 75 72 ,CUUP..;move cur
0116F0: 20 75 70 0D 0A 20 20 20 20 20 20 20 20 43 50 20 up.. CP
011700: 31 33 0D 0A 09 4A 52 20 5A 2C 43 55 4C 46 09 09 13...JR Z,CULF..
011710: 3B 6C 69 6E 65 20 66 65 65 64 0D 0A 09 43 50 20 ;line feed...CP
011720: 31 32 0D 0A 09 4A 50 20 5A 2C 43 4C 45 41 52 5F 12...JP Z,CLEAR_
011730: 53 43 52 09 09 3B 43 4C 53 0D 0A 0D 0A 09 4C 44 SCR..;CLS.....LD
011740: 20 45 2C 41 09 09 09 3B 45 3D 63 68 61 72 20 6E E,A...;E=char n
011750: 6F 0D 0A 20 09 4C 44 20 44 2C 63 68 61 72 6D 61 o.. .LD D,charma
011760: 70 2F 32 35 36 09 3B 44 3D 4D 61 70 20 62 61 73 p/256.;D=Map bas
011770: 65 0D 0A 0D 0A 09 43 41 4C 4C 20 4A 53 43 52 4E e.....CALL JSCRN
011780: 42 55 46 20 09 09 3B 70 75 74 20 69 6E 20 62 75 BUF ..;put in bu
011790: 66 66 65 72 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 43 ffer.....LD HL,C
0117A0: 48 41 52 41 43 54 45 52 0D 0A 09 4F 52 20 41 09 HARACTER...OR A.
0117B0: 09 09 3B 73 65 74 20 43 61 72 72 79 20 74 6F 20 ..;set Carry to
0117C0: 30 0D 0A 09 43 41 4C 4C 20 4A 53 4D 41 53 48 0D 0...CALL JSMASH.
0117D0: 0A 09 4A 52 20 43 2C 77 72 69 74 65 74 6F 73 63 ..JR C,writetosc
0117E0: 72 09 09 3B 73 6D 61 73 68 65 64 20 2D 20 63 61 r..;smashed - ca
0117F0: 6E 63 65 6C 65 64 20 74 68 65 6E 20 6E 6F 20 6E nceled then no n
011800: 65 65 64 20 74 6F 20 63 61 6C 6B 20 74 68 65 0D eed to calk the.
011810: 0A 09 09 09 09 3B 72 65 73 74 20 2E 2E 20 73 69 .....;rest .. si
011820: 6D 70 6C 65 21 0D 0A 09 42 49 54 20 37 2C 41 0D mple!...BIT 7,A.
011830: 0A 09 4A 52 20 5A 2C 6E 6F 73 6B 69 70 5F 6E 62 ..JR Z,noskip_nb
011840: 67 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 g.. CALL
011850: 47 45 54 43 48 41 52 41 43 54 45 52 0D 0A 09 4A GETCHARACTER...J
011860: 50 20 73 6B 69 70 5F 6E 62 67 0D 0A 2E 6E 6F 73 P skip_nbg...nos
011870: 6B 69 70 5F 6E 62 67 0D 0A 20 20 20 20 20 20 20 kip_nbg..
011880: 20 43 41 4C 4C 20 4A 47 45 54 43 48 41 52 41 43 CALL JGETCHARAC
011890: 54 45 52 0D 0A 09 43 41 4C 4C 20 4A 42 4F 4C 44 TER...CALL JBOLD
0118A0: 0D 0A 09 43 41 4C 4C 20 4A 46 45 49 4E 54 0D 0A ...CALL JFEINT..
0118B0: 2E 73 6B 69 70 5F 6E 62 67 0D 0A 09 43 41 4C 4C .skip_nbg...CALL
0118C0: 20 4A 49 54 41 4C 49 43 53 0D 0A 09 43 41 4C 4C JITALICS...CALL
0118D0: 20 4A 55 4E 44 45 52 0D 0A 09 43 41 4C 4C 20 4A JUNDER...CALL J
0118E0: 49 4E 56 45 52 53 45 0D 0A 0D 0A 2E 77 72 69 74 INVERSE.....writ
0118F0: 65 74 6F 73 63 72 0D 0A 09 65 78 20 68 6C 2C 64 etoscr...ex hl,d
011900: 65 0D 0A 20 20 20 20 20 20 20 20 6C 64 20 68 6C e.. ld hl
011910: 2C 28 79 29 0D 0A 20 20 20 20 20 20 20 20 43 41 ,(y).. CA
011920: 4C 4C 20 53 43 52 5F 41 44 44 52 45 53 53 09 3B LL SCR_ADDRESS.;
011930: 67 65 74 20 73 63 72 65 65 6E 20 61 64 64 72 65 get screen addre
011940: 73 73 20 6F 66 20 78 2C 79 0D 0A 09 43 41 4C 4C ss of x,y...CALL
011950: 20 61 6E 73 69 63 68 61 72 09 09 3B 70 72 69 6E ansichar..;prin
011960: 74 20 6F 6E 20 73 63 72 65 65 6E 0D 0A 0D 0A 09 t on screen.....
011970: 4C 44 20 48 4C 2C 28 59 29 09 09 3B 67 65 74 20 LD HL,(Y)..;get
011980: 78 2C 79 0D 0A 0D 0A 2E 63 75 72 69 67 68 74 0D x,y.....curight.
011990: 0A 09 49 4E 43 20 48 09 09 09 3B 20 6D 6F 76 65 ..INC H...; move
0119A0: 20 63 75 72 20 72 69 67 68 74 20 6F 6E 65 20 63 cur right one c
0119B0: 65 6C 6C 2C 20 69 66 20 61 74 20 65 6E 64 20 28 ell, if at end (
0119C0: 38 30 29 20 77 72 61 70 0D 0A 09 4C 44 20 41 2C 80) wrap...LD A,
0119D0: 48 0D 0A 09 43 50 20 38 30 0D 0A 09 4A 52 20 4E H...CP 80...JR N
0119E0: 5A 2C 50 52 49 4E 54 5F 45 4E 44 0D 0A 09 49 4E Z,PRINT_END...IN
0119F0: 43 20 4C 0D 0A 09 4C 44 20 41 2C 28 53 63 72 5F C L...LD A,(Scr_
011A00: 44 65 70 74 68 29 0D 0A 09 43 50 20 4C 0D 0A 09 Depth)...CP L...
011A10: 4A 52 20 4E 5A 2C 43 55 52 32 0D 0A 09 43 41 4C JR NZ,CUR2...CAL
011A20: 4C 20 52 4F 4C 4C 55 50 0D 0A 09 4C 44 20 41 2C L ROLLUP...LD A,
011A30: 28 53 63 72 5F 44 65 70 74 68 29 0D 0A 09 44 45 (Scr_Depth)...DE
011A40: 43 20 41 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 2E 43 C A...LD L,A...C
011A50: 55 52 32 09 4C 44 20 48 2C 30 09 09 0D 0A 0D 0A UR2.LD H,0......
011A60: 0D 0A 2E 50 52 49 4E 54 5F 45 4E 44 0D 0A 09 4C ...PRINT_END...L
011A70: 44 20 28 59 29 2C 48 4C 09 09 3B 73 74 6F 72 65 D (Y),HL..;store
011A80: 20 6E 65 77 20 70 6F 73 0D 0A 2E 50 45 4E 44 32 new pos...PEND2
011A90: 20 20 20 58 4F 52 20 41 0D 0A 09 4C 44 20 28 6A XOR A...LD (j
011AA0: 63 68 61 6E 67 65 63 75 72 73 6F 72 29 2C 41 0D changecursor),A.
011AB0: 0A 2E 50 52 49 4E 54 5F 53 4B 49 50 0D 0A 09 50 ..PRINT_SKIP...P
011AC0: 4F 50 20 48 4C 09 0D 0A 09 50 4F 50 20 44 45 0D OP HL....POP DE.
011AD0: 0A 09 50 4F 50 20 42 43 0D 0A 09 50 4F 50 20 41 ..POP BC...POP A
011AE0: 46 09 09 09 0D 0A 09 52 45 54 20 20 20 20 20 20 F......RET
011AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B ;
011B00: 72 65 73 74 6F 72 65 20 72 65 67 73 2F 72 65 74 restore regs/ret
011B10: 0D 0A 0D 0A 2E 43 55 4C 46 09 0D 0A 09 4C 44 20 .....CULF....LD
011B20: 48 2C 30 09 09 09 3B 63 75 72 20 6C 65 66 74 2F H,0...;cur left/
011B30: 73 74 6F 70 20 69 66 20 61 74 20 78 3D 30 0D 0A stop if at x=0..
011B40: 09 4A 50 20 50 52 49 4E 54 5F 45 4E 44 0D 0A 2E .JP PRINT_END...
011B50: 43 55 4C 45 46 54 0D 0A 20 20 20 20 20 20 20 20 CULEFT..
011B60: 44 45 43 20 48 0D 0A 09 4C 44 20 41 2C 48 0D 0A DEC H...LD A,H..
011B70: 09 43 50 20 26 46 46 0D 0A 09 4A 50 20 4E 5A 2C .CP &FF...JP NZ,
011B80: 50 52 49 4E 54 5F 45 4E 44 0D 0A 20 20 20 20 20 PRINT_END..
011B90: 20 20 20 4C 44 20 48 2C 37 39 0D 0A 09 44 45 43 LD H,79...DEC
011BA0: 20 4C 0D 0A 09 4C 44 20 41 2C 4C 0D 0A 09 43 50 L...LD A,L...CP
011BB0: 20 26 46 46 0D 0A 09 4A 50 20 4E 5A 2C 50 52 49 &FF...JP NZ,PRI
011BC0: 4E 54 5F 45 4E 44 0D 0A 09 4C 44 20 4C 2C 30 0D NT_END...LD L,0.
011BD0: 0A 09 4A 50 20 50 52 49 4E 54 5F 45 4E 44 0D 0A ..JP PRINT_END..
011BE0: 0D 0A 3B 20 20 20 20 20 20 20 4C 44 20 41 2C 48 ..; LD A,H
011BF0: 0D 0A 3B 09 4F 52 20 41 0D 0A 3B 09 4A 52 20 5A ..;.OR A..;.JR Z
011C00: 2C 50 52 49 4E 54 5F 45 4E 44 0D 0A 3B 09 44 45 ,PRINT_END..;.DE
011C10: 43 20 48 0D 0A 3B 09 4A 50 20 50 52 49 4E 54 5F C H..;.JP PRINT_
011C20: 45 4E 44 0D 0A 0D 0A 2E 43 55 55 50 09 0D 0A 20 END.....CUUP...
011C30: 20 20 20 20 20 20 20 4C 44 20 41 2C 4C 0D 0A 09 LD A,L...
011C40: 4F 52 20 41 0D 0A 09 4A 50 20 5A 2C 50 52 49 4E OR A...JP Z,PRIN
011C50: 54 5F 45 4E 44 0D 0A 09 44 45 43 20 4C 0D 0A 09 T_END...DEC L...
011C60: 4A 50 20 50 52 49 4E 54 5F 45 4E 44 0D 0A 09 0D JP PRINT_END....
011C70: 0A 2E 43 55 44 4F 57 4E 0D 0A 09 49 4E 43 20 4C ..CUDOWN...INC L
011C80: 09 09 09 3B 6D 6F 76 65 20 63 75 72 20 64 6F 77 ...;move cur dow
011C90: 6E 2F 69 66 20 32 35 20 74 68 65 6E 20 72 6F 6C n/if 25 then rol
011CA0: 6C 0D 0A 3B 09 4C 44 20 41 2C 4C 0D 0A 3B 20 20 l..;.LD A,L..;
011CB0: 20 20 20 20 20 43 50 20 32 35 0D 0A 09 4C 44 20 CP 25...LD
011CC0: 41 2C 28 53 63 72 5F 44 65 70 74 68 29 0D 0A 09 A,(Scr_Depth)...
011CD0: 43 50 20 4C 0D 0A 09 4A 50 20 4E 5A 2C 50 52 49 CP L...JP NZ,PRI
011CE0: 4E 54 5F 45 4E 44 0D 0A 09 43 41 4C 4C 20 52 4F NT_END...CALL RO
011CF0: 4C 4C 55 50 0D 0A 09 4C 44 20 41 2C 28 53 63 72 LLUP...LD A,(Scr
011D00: 5F 44 65 70 74 68 29 0D 0A 20 20 20 20 20 20 20 _Depth)..
011D10: 20 44 45 43 20 41 0D 0A 09 4C 44 20 4C 2C 41 0D DEC A...LD L,A.
011D20: 0A 3B 09 4C 44 20 4C 2C 32 34 0D 0A 09 4A 50 20 .;.LD L,24...JP
011D30: 50 52 49 4E 54 5F 45 4E 44 0D 0A 0D 0A 0D 0A 0D PRINT_END.......
011D40: 0A 0D 0A 2E 53 4F 55 4E 44 5F 43 48 41 52 09 09 ....SOUND_CHAR..
011D50: 09 3B 73 6F 75 6E 64 20 63 68 61 72 20 65 67 20 .;sound char eg
011D60: 63 68 72 24 28 37 29 2D 62 65 6C 6C 0D 0A 09 43 chr$(7)-bell...C
011D70: 41 4C 4C 20 26 42 42 35 41 0D 0A 20 20 20 20 20 ALL &BB5A..
011D80: 20 20 20 50 4F 50 20 48 4C 0D 0A 09 50 4F 50 20 POP HL...POP
011D90: 44 45 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 50 4F DE...POP BC...PO
011DA0: 50 20 41 46 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 63 P AF...RET.....c
011DB0: 68 61 72 61 63 74 65 72 09 64 65 66 73 20 38 0D haracter.defs 8.
011DC0: 0A 0D 0A 2E 4A 47 65 74 43 68 61 72 61 63 74 65 ....JGetCharacte
011DD0: 72 0D 0A 09 4E 4F 50 0D 0A 2E 47 65 74 43 68 61 r...NOP...GetCha
011DE0: 72 61 63 74 65 72 0D 0A 09 50 55 53 48 09 48 4C racter...PUSH.HL
011DF0: 0D 0A 09 4C 44 09 45 2C 41 0D 0A 09 4C 44 09 44 ...LD.E,A...LD.D
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 4E E5 0F 00 C1 02 00 00 00 02 ......N.........
011E20: 0F 00 C2 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E30: 0F 00 C4 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E40: 0F 00 C6 02 00 00 00 02 0F 00 C7 02 00 00 00 02 ................
011E50: 0F 00 C8 02 00 00 00 02 0F 00 C9 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 2C 63 68 61 72 6D 61 70 32 0D 0A 09 4C 44 09 42 ,charmap2...LD.B
011F10: 2C 38 0D 0A 2E 47 43 31 09 4C 44 09 41 2C 28 44 ,8...GC1.LD.A,(D
011F20: 45 29 0D 0A 09 4C 44 09 28 48 4C 29 2C 41 0D 0A E)...LD.(HL),A..
011F30: 20 20 20 20 20 20 20 20 49 4E 43 09 44 0D 0A 09 INC.D...
011F40: 49 4E 43 09 48 4C 0D 0A 09 44 4A 4E 5A 09 47 43 INC.HL...DJNZ.GC
011F50: 31 0D 0A 09 50 4F 50 09 48 4C 0D 0A 09 52 45 54 1...POP.HL...RET
011F60: 0D 0A 0D 0A 0D 0A 2E 4A 42 6F 6C 64 09 42 59 54 .......JBold.BYT
011F70: 45 09 26 43 39 09 09 09 3B 20 30 20 3D 20 4F 6E E.&C9...; 0 = On
011F80: 2C 20 26 43 39 20 3D 20 6F 66 66 0D 0A 2E 42 6F , &C9 = off...Bo
011F90: 6C 64 5F 72 74 6E 0D 0A 09 50 55 53 48 09 48 4C ld_rtn...PUSH.HL
011FA0: 0D 0A 09 4C 44 09 45 2C 41 0D 0A 20 20 20 20 20 ...LD.E,A..
011FB0: 20 20 20 53 45 54 09 37 2C 45 0D 0A 09 4C 44 09 SET.7,E...LD.
011FC0: 44 2C 62 6F 6C 64 66 69 6E 74 32 0D 0A 09 4C 44 D,boldfint2...LD
011FD0: 09 42 2C 38 0D 0A 2E 62 6F 6C 64 31 09 4C 44 09 .B,8...bold1.LD.
011FE0: 41 2C 28 44 45 29 0D 0A 09 4C 44 09 28 48 4C 29 A,(DE)...LD.(HL)
011FF0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 09 ,A.. INC.
012000: 44 0D 0A 09 49 4E 43 09 48 4C 0D 0A 09 44 4A 4E D...INC.HL...DJN
012010: 5A 09 62 6F 6C 64 31 0D 0A 09 50 4F 50 09 48 4C Z.bold1...POP.HL
012020: 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 2E 4A 66 65 ...RET.......Jfe
012030: 69 6E 74 09 42 59 54 45 20 26 43 39 0D 0A 2E 66 int.BYTE &C9...f
012040: 65 69 6E 74 5F 72 74 6E 0D 0A 09 50 55 53 48 09 eint_rtn...PUSH.
012050: 48 4C 0D 0A 09 4C 44 09 45 2C 41 0D 0A 09 4C 44 HL...LD.E,A...LD
012060: 09 44 2C 62 6F 6C 64 66 69 6E 74 32 0D 0A 09 4C .D,boldfint2...L
012070: 44 09 42 2C 38 0D 0A 2E 66 69 6E 74 32 09 4C 44 D.B,8...fint2.LD
012080: 09 41 2C 28 44 45 29 0D 0A 09 4C 44 09 28 48 4C .A,(DE)...LD.(HL
012090: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 ),A.. INC
0120A0: 09 44 0D 0A 09 49 4E 43 09 48 4C 0D 0A 09 44 4A .D...INC.HL...DJ
0120B0: 4E 5A 09 66 69 6E 74 32 0D 0A 09 50 4F 50 09 48 NZ.fint2...POP.H
0120C0: 4C 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4A 49 74 61 L...RET.....JIta
0120D0: 6C 69 63 73 0D 0A 09 42 59 54 45 09 26 43 39 09 lics...BYTE.&C9.
0120E0: 09 3B 20 30 20 3D 20 6F 6E 2C 20 26 43 39 20 3D .; 0 = on, &C9 =
0120F0: 20 6F 66 66 0D 0A 2E 49 74 61 6C 69 63 5F 72 74 off...Italic_rt
012100: 6E 0D 0A 09 50 55 53 48 09 48 4C 09 09 3B 20 53 n...PUSH.HL..; S
012110: 61 76 65 20 48 4C 20 74 68 72 6F 75 67 68 20 72 ave HL through r
012120: 6F 75 74 69 6E 65 2E 0D 0A 09 4C 44 09 42 2C 30 outine....LD.B,0
012130: 34 09 09 3B 20 46 69 72 73 74 20 34 20 63 68 61 4..; First 4 cha
012140: 72 61 63 74 65 72 73 20 6D 6F 76 65 64 20 72 69 racters moved ri
012150: 67 68 74 0D 0A 2E 49 74 61 6C 31 09 4C 44 09 41 ght...Ital1.LD.A
012160: 2C 28 48 4C 29 09 09 3B 20 47 65 74 20 62 79 74 ,(HL)..; Get byt
012170: 65 0D 0A 09 53 52 4C 09 41 09 09 3B 20 4D 6F 76 e...SRL.A..; Mov
012180: 65 20 72 69 67 68 74 0D 0A 09 4C 44 09 28 48 4C e right...LD.(HL
012190: 29 2C 41 09 09 3B 20 41 6E 64 20 72 65 73 61 76 ),A..; And resav
0121A0: 65 0D 0A 09 49 4E 43 09 48 4C 09 09 3B 20 4E 65 e...INC.HL..; Ne
0121B0: 78 74 20 62 79 74 65 0D 0A 09 44 4A 4E 5A 09 49 xt byte...DJNZ.I
0121C0: 74 61 6C 31 0D 0A 09 50 4F 50 09 48 4C 09 09 3B tal1...POP.HL..;
0121D0: 20 52 65 73 74 6F 72 65 20 48 4C 0D 0A 09 52 45 Restore HL...RE
0121E0: 54 0D 0A 0D 0A 2E 4A 55 6E 64 65 72 09 42 59 54 T.....JUnder.BYT
0121F0: 45 09 26 43 39 09 09 3B 20 30 20 3D 20 6F 6E 2C E.&C9..; 0 = on,
012200: 20 26 63 39 20 3D 20 6F 66 66 0D 0A 2E 55 6E 64 &c9 = off...Und
012210: 65 72 5F 72 74 6E 0D 0A 09 50 55 53 48 09 48 4C er_rtn...PUSH.HL
012220: 09 09 3B 20 53 61 76 65 20 48 4C 0D 0A 09 4C 44 ..; Save HL...LD
012230: 09 42 2C 37 0D 0A 2E 55 6E 64 31 09 49 4E 43 09 .B,7...Und1.INC.
012240: 48 4C 09 09 3B 20 4D 6F 76 65 20 75 70 20 37 0D HL..; Move up 7.
012250: 0A 09 44 4A 4E 5A 09 55 6E 64 31 0D 0A 09 4C 44 ..DJNZ.Und1...LD
012260: 09 41 2C 26 46 46 09 09 3B 20 46 6F 72 63 65 73 .A,&FF..; Forces
012270: 20 75 6E 64 65 72 6C 69 6E 65 0D 0A 09 4C 44 09 underline...LD.
012280: 28 48 4C 29 2C 41 09 09 3B 20 41 6E 64 20 73 61 (HL),A..; And sa
012290: 76 65 73 20 64 61 74 61 2E 0D 0A 09 50 4F 50 09 ves data....POP.
0122A0: 48 4C 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4A 49 6E HL...RET.....JIn
0122B0: 76 65 72 73 65 0D 0A 09 42 59 54 45 09 26 43 39 verse...BYTE.&C9
0122C0: 09 09 3B 20 30 20 3D 20 6F 6E 2C 20 26 63 39 20 ..; 0 = on, &c9
0122D0: 3D 20 6F 66 66 0D 0A 2E 49 6E 76 65 72 73 65 0D = off...Inverse.
0122E0: 0A 09 50 55 53 48 09 48 4C 09 09 3B 20 53 61 76 ..PUSH.HL..; Sav
0122F0: 65 20 48 4C 0D 0A 09 4C 44 09 42 2C 38 0D 0A 2E e HL...LD.B,8...
012300: 49 6E 76 31 09 4C 44 09 41 2C 28 48 4C 29 09 09 Inv1.LD.A,(HL)..
012310: 3B 20 47 65 74 20 62 79 74 65 0D 0A 09 43 50 4C ; Get byte...CPL
012320: 09 09 09 3B 20 74 75 72 6E 20 69 74 20 69 6E 76 ...; turn it inv
012330: 65 72 73 65 0D 0A 09 4C 44 09 28 48 4C 29 2C 41 erse...LD.(HL),A
012340: 09 09 3B 20 52 65 73 61 76 65 0D 0A 09 49 4E 43 ..; Resave...INC
012350: 09 48 4C 09 09 3B 20 6E 65 78 74 20 62 79 74 65 .HL..; next byte
012360: 0D 0A 09 44 4A 4E 5A 09 49 6E 76 31 0D 0A 09 50 ...DJNZ.Inv1...P
012370: 4F 50 09 48 4C 09 09 3B 20 72 65 73 74 6F 72 65 OP.HL..; restore
012380: 20 48 4C 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4A 53 HL...RET.....JS
012390: 6D 61 73 68 09 42 59 54 45 09 26 43 39 09 09 3B mash.BYTE.&C9..;
0123A0: 20 30 20 3D 20 6F 6E 2C 20 26 43 39 20 3D 20 6F 0 = on, &C9 = o
0123B0: 66 66 0D 0A 2E 53 6D 61 73 68 09 0D 0A 09 50 55 ff...Smash....PU
0123C0: 53 48 09 48 4C 09 09 3B 20 53 61 76 65 20 48 4C SH.HL..; Save HL
0123D0: 0D 0A 09 4C 44 09 42 2C 38 0D 0A 09 58 4F 52 09 ...LD.B,8...XOR.
0123E0: 41 0D 0A 2E 53 6D 31 09 4C 44 09 28 48 4C 29 2C A...Sm1.LD.(HL),
0123F0: 41 09 09 3B 20 30 20 61 6C 6C 20 62 79 74 65 73 A..; 0 all bytes
012400: 20 2D 2D 20 69 65 2C 20 63 6F 6E 63 65 61 6C 65 -- ie, conceale
012410: 64 2E 0D 0A 09 49 4E 43 09 48 4C 20 20 20 20 20 d....INC.HL
012420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012440: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 09 ...
012450: 44 4A 4E 5A 09 53 6D 31 0D 0A 09 50 4F 50 09 48 DJNZ.Sm1...POP.H
012460: 4C 0D 0A 09 53 43 46 0D 0A 09 52 45 54 0D 0A 0D L...SCF...RET...
012470: 0A 2E 63 6C 65 61 72 5F 73 63 72 0D 0A 3B 2D 2D ..clear_scr..;--
012480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 43 4C 45 ---------..;.CLE
0124A0: 41 52 20 54 48 45 20 53 43 52 45 45 4E 0D 0A 3B AR THE SCREEN..;
0124B0: 09 45 6E 74 72 79 20 4E 6F 6E 65 0D 0A 3B 09 45 .Entry None..;.E
0124C0: 78 69 74 20 2D 20 65 78 69 74 73 20 74 68 72 6F xit - exits thro
0124D0: 75 67 68 20 50 45 4E 44 32 0D 0A 3B 2D 2D 2D 2D ugh PEND2..;----
0124E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0124F0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
012500: 20 43 41 4C 4C 20 43 4C 53 5F 53 43 52 45 45 4E CALL CLS_SCREEN
012510: 0D 0A 09 4A 50 20 50 45 4E 44 32 09 09 3B 72 65 ...JP PEND2..;re
012520: 74 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 2E 43 4C 53 5F t...........CLS_
012530: 73 63 72 65 65 6E 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D screen..;-------
012540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012550: 2D 2D 2D 2D 0D 0A 3B 09 43 4C 45 41 52 20 54 48 ----..;.CLEAR TH
012560: 45 20 53 43 52 45 45 4E 0D 0A 3B 09 55 73 65 64 E SCREEN..;.Used
012570: 20 3F 3F 3F 0D 0A 3B 09 45 78 69 74 20 48 4C 3D ???..;.Exit HL=
012580: 58 2C 79 20 70 6F 73 0D 0A 3B 2D 2D 2D 2D 2D 2D X,y pos..;------
012590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0125A0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 09 43 41 4C 4C 20 6A -------...CALL j
0125B0: 63 6C 65 61 72 5F 62 75 66 09 09 3B 63 6C 65 61 clear_buf..;clea
0125C0: 72 20 62 75 66 66 65 72 0D 0A 09 58 4F 52 20 41 r buffer...XOR A
0125D0: 0D 0A 09 43 41 4C 4C 20 43 4C 53 0D 0A 09 58 4F ...CALL CLS...XO
0125E0: 52 20 41 0D 0A 09 4C 44 20 28 63 75 72 73 6F 72 R A...LD (cursor
0125F0: 6F 6E 29 2C 41 0D 0A 09 4C 44 20 28 63 75 72 73 on),A...LD (curs
012600: 6F 72 63 6F 75 6E 74 29 2C 41 0D 0A 09 4C 44 20 orcount),A...LD
012610: 48 4C 2C 28 59 29 0D 0A 09 52 45 54 0D 0A 0D 0A HL,(Y)...RET....
012620: 2E 43 4C 53 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D .CLS..;---------
012630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
012640: 0A 3B 09 46 49 4C 4C 20 53 43 52 45 45 4E 20 57 .;.FILL SCREEN W
012650: 49 54 48 20 41 20 42 59 54 45 0D 0A 3B 09 45 6E ITH A BYTE..;.En
012660: 74 72 79 20 6E 6F 6E 65 0D 0A 3B 09 45 78 69 74 try none..;.Exit
012670: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
012680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 -----------..
012690: 20 20 20 20 20 50 55 53 48 20 41 46 0D 0A 09 50 PUSH AF...P
0126A0: 55 53 48 20 42 43 0D 0A 09 50 55 53 48 20 48 4C USH BC...PUSH HL
0126B0: 0D 0A 09 50 55 53 48 20 44 45 09 09 09 3B 73 61 ...PUSH DE...;sa
0126C0: 76 65 20 72 65 67 73 0D 0A 09 4C 44 20 28 26 43 ve regs...LD (&C
0126D0: 30 30 30 29 2C 41 09 09 3B 6C 64 20 26 63 30 30 000),A..;ld &c00
0126E0: 30 20 77 69 74 68 20 62 79 74 65 20 74 6F 20 63 0 with byte to c
0126F0: 6F 70 79 0D 0A 09 43 41 4C 4C 20 49 4E 4B 5F 4F opy...CALL INK_O
012700: 46 46 0D 0A 09 4C 44 20 48 4C 2C 26 43 30 30 30 FF...LD HL,&C000
012710: 0D 0A 09 4C 44 20 44 45 2C 26 43 30 30 31 0D 0A ...LD DE,&C001..
012720: 09 4C 44 20 42 43 2C 26 33 46 46 30 0D 0A 09 4C .LD BC,&3FF0...L
012730: 44 49 52 09 09 09 3B 63 6F 70 79 20 62 79 74 65 DIR...;copy byte
012740: 20 74 6F 20 77 68 6F 6C 65 20 73 63 72 0D 0A 09 to whole scr...
012750: 4C 44 20 48 4C 2C 30 0D 0A 09 43 41 4C 4C 20 52 LD HL,0...CALL R
012760: 4C 5F 53 45 54 5F 4F 46 46 53 45 54 09 3B 73 65 L_SET_OFFSET.;se
012770: 74 20 68 61 72 64 77 61 72 65 20 6F 66 66 73 65 t hardware offse
012780: 74 0D 0A 09 43 41 4C 4C 20 49 4E 4B 5F 4F 4E 0D t...CALL INK_ON.
012790: 0A 09 4C 44 20 48 4C 2C 30 0D 0A 09 4C 44 20 28 ..LD HL,0...LD (
0127A0: 59 29 2C 48 4C 09 09 3B 78 2C 79 3D 30 0D 0A 09 Y),HL..;x,y=0...
0127B0: 50 4F 50 20 44 45 0D 0A 09 50 4F 50 20 48 4C 0D POP DE...POP HL.
0127C0: 0A 09 50 4F 50 20 42 43 0D 0A 09 50 4F 50 20 41 ..POP BC...POP A
0127D0: 46 0D 0A 09 52 45 54 09 09 09 3B 72 65 73 74 6F F...RET...;resto
0127E0: 72 65 20 2F 20 72 65 74 0D 0A 0D 0A 2E 49 4E 4B re / ret.....INK
0127F0: 5F 4F 46 46 0D 0A 09 4C 44 20 41 2C 31 0D 0A 09 _OFF...LD A,1...
012800: 43 41 4C 4C 20 26 42 43 33 35 0D 0A 09 4C 44 20 CALL &BC35...LD
012810: 28 4F 4C 44 49 4E 4B 29 2C 62 63 09 09 3B 53 41 (OLDINK),bc..;SA
012820: 56 45 20 49 4E 4B 20 43 4F 4C 4F 55 52 0D 0A 20 VE INK COLOUR..
012830: 20 20 20 20 09 4C 44 20 41 2C 30 09 0D 0A 09 43 .LD A,0....C
012840: 41 4C 4C 20 26 42 43 33 35 09 09 3B 47 45 54 20 ALL &BC35..;GET
012850: 42 41 43 4B 47 52 4F 55 4E 47 0D 0A 09 4C 44 20 BACKGROUNG...LD
012860: 41 2C 31 0D 0A 09 4A 50 20 26 42 43 33 32 09 09 A,1...JP &BC32..
012870: 3B 69 6E 6B 20 31 2C 42 41 43 4B 0D 0A 0D 0A 2E ;ink 1,BACK.....
012880: 49 4E 4B 5F 4F 4E 0D 0A 20 20 20 20 20 20 20 20 INK_ON..
012890: 4C 44 20 41 2C 31 0D 0A 09 4C 44 20 42 43 2C 28 LD A,1...LD BC,(
0128A0: 4F 4C 44 49 4E 4B 29 0D 0A 09 4A 50 20 26 42 43 OLDINK)...JP &BC
0128B0: 33 32 09 09 3B 69 6E 6B 20 31 2C 4F 4C 44 49 4E 32..;ink 1,OLDIN
0128C0: 4B 0D 0A 0D 0A 2E 4F 4C 44 49 4E 4B 09 42 59 54 K.....OLDINK.BYT
0128D0: 45 20 32 36 2C 32 36 0D 0A 3B 2D 2D 2D 2D 2D 2D E 26,26..;------
0128E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0128F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
012900: 0D 0A 2E 54 45 58 54 0D 0A 09 4C 44 20 41 2C 28 ...TEXT...LD A,(
012910: 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 50 55 53 HL).. PUS
012920: 48 20 41 46 0D 0A 20 20 20 20 20 20 20 20 52 45 H AF.. RE
012930: 53 20 37 2C 41 0D 0A 09 4C 44 20 44 2C 43 48 41 S 7,A...LD D,CHA
012940: 52 4D 41 50 32 0D 0A 09 4C 44 20 45 2C 41 0D 0A RMAP2...LD E,A..
012950: 09 50 55 53 48 20 48 4C 0D 0A 09 50 55 53 48 20 .PUSH HL...PUSH
012960: 41 46 0D 0A 09 4C 44 20 48 4C 2C 28 59 29 0D 0A AF...LD HL,(Y)..
012970: 09 43 41 4C 4C 20 53 43 52 5F 41 44 44 52 45 53 .CALL SCR_ADDRES
012980: 53 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 43 41 4C S...POP AF...CAL
012990: 4C 20 43 48 41 52 0D 0A 09 4C 44 20 48 4C 2C 28 L CHAR...LD HL,(
0129A0: 59 29 0D 0A 09 49 4E 43 20 48 0D 0A 09 4C 44 20 Y)...INC H...LD
0129B0: 41 2C 48 0D 0A 09 43 50 20 38 30 0D 0A 09 4A 52 A,H...CP 80...JR
0129C0: 20 4E 5A 2C 54 32 0D 0A 09 4C 44 20 48 2C 30 3A NZ,T2...LD H,0:
0129D0: 49 4E 43 20 4C 0D 0A 54 32 09 4C 44 20 41 2C 4C INC L..T2.LD A,L
0129E0: 0D 0A 09 43 50 20 32 35 0D 0A 09 4A 52 20 4E 5A ...CP 25...JR NZ
0129F0: 2C 54 33 0D 0A 09 4C 44 20 4C 2C 30 0D 0A 54 33 ,T3...LD L,0..T3
012A00: 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 50 4F 50 .LD (Y),HL...POP
012A10: 20 48 4C 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 50 HL...INC HL...P
012A20: 4F 50 20 41 46 0D 0A 09 42 49 54 20 37 2C 41 0D OP AF...BIT 7,A.
012A30: 0A 09 52 45 54 20 4E 5A 0D 0A 09 4A 52 20 54 45 ..RET NZ...JR TE
012A40: 58 54 0D 0A 0D 0A 0D 0A 2E 43 48 41 52 09 0D 0A XT.......CHAR...
012A50: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
012A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 ------------..;.
012A70: 46 49 4C 4C 20 41 20 43 48 41 52 20 28 66 72 6F FILL A CHAR (fro
012A80: 6D 20 70 61 67 65 64 20 6D 61 70 29 0D 0A 3B 09 m paged map)..;.
012A90: 45 6E 74 72 79 20 20 20 48 4C 3D 73 63 72 65 65 Entry HL=scree
012AA0: 6E 20 61 64 64 72 65 73 73 20 69 66 20 74 6F 70 n address if top
012AB0: 20 6F 66 20 63 65 6C 6C 0D 0A 3B 09 09 44 45 3D of cell..;..DE=
012AC0: 53 74 61 72 74 20 6F 66 20 6D 61 70 65 64 20 63 Start of maped c
012AD0: 68 61 72 0D 0A 3B 09 65 78 69 74 20 42 2C 44 45 har..;.exit B,DE
012AE0: 2C 48 4C 2C 41 46 20 63 6F 72 72 75 70 74 0D 0A ,HL,AF corrupt..
012AF0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
012B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 09 4C ------------...L
012B10: 44 20 42 2C 38 09 09 09 3B 66 69 6C 6C 20 61 20 D B,8...;fill a
012B20: 63 65 6C 6C 20 77 69 74 68 20 61 20 63 68 61 72 cell with a char
012B30: 20 66 72 6F 6D 20 70 61 67 65 64 20 6D 61 70 0D from paged map.
012B40: 0A 09 4C 44 20 41 2C 28 44 45 29 20 20 20 20 20 ..LD A,(DE)
012B50: 20 20 3B 31 09 3B 6C 6F 61 64 20 41 20 77 69 74 ;1.;load A wit
012B60: 68 20 62 79 74 65 20 66 72 6F 6D 20 6D 61 70 0D h byte from map.
012B70: 0A 09 4C 44 20 28 48 4C 29 2C 41 09 09 3B 4C 6F ..LD (HL),A..;Lo
012B80: 61 64 20 73 63 72 20 77 69 74 68 20 62 79 74 65 ad scr with byte
012B90: 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 ...LD A,H...ADD
012BA0: 42 0D 0A 09 4C 44 20 48 2C 41 09 09 09 3B 6E 65 B...LD H,A...;ne
012BB0: 78 74 20 6C 69 6E 65 20 64 6F 77 6E 0D 0A 20 20 xt line down..
012BC0: 20 20 20 20 20 20 49 4E 43 20 44 09 09 09 3B 6E INC D...;n
012BD0: 65 78 74 20 62 79 74 65 0D 0A 0D 0A 09 4C 44 20 ext byte.....LD
012BE0: 41 2C 28 44 45 29 20 20 20 20 20 20 20 3B 32 09 A,(DE) ;2.
012BF0: 3B 72 65 70 65 61 74 20 61 6E 6F 74 68 65 72 20 ;repeat another
012C00: 37 20 74 69 6D 65 73 0D 0A 09 4C 44 20 28 48 4C 7 times...LD (HL
012C10: 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 ),A...LD A,H...A
012C20: 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 DD B...LD H,A...
012C30: 49 4E 43 20 44 0D 0A 0D 0A 09 4C 44 20 41 2C 28 INC D.....LD A,(
012C40: 44 45 29 20 20 20 20 20 20 20 3B 33 0D 0A 09 4C DE) ;3...L
012C50: 44 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C D (HL),A...LD A,
012C60: 48 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 H...ADD B...LD H
012C70: 2C 41 0D 0A 09 49 4E 43 20 44 0D 0A 0D 0A 09 4C ,A...INC D.....L
012C80: 44 20 41 2C 28 44 45 29 20 20 20 20 20 20 20 3B D A,(DE) ;
012C90: 34 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 20 20 0D 4...LD (HL),A .
012CA0: 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 42 ..LD A,H...ADD B
012CB0: 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 49 4E 43 20 ...LD H,A...INC
012CC0: 44 0D 0A 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 45 D.......LD A,(DE
012CD0: 29 20 20 20 20 20 20 20 3B 35 0D 0A 09 4C 44 20 ) ;5...LD
012CE0: 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 0D (HL),A...LD A,H.
012CF0: 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 ..ADD B...LD H,A
012D00: 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 20 44 0D .. INC D.
012D10: 0A 0D 0A 09 4C 44 20 41 2C 28 44 45 29 20 20 20 ....LD A,(DE)
012D20: 20 20 20 20 3B 36 0D 0A 09 4C 44 20 28 48 4C 29 ;6...LD (HL)
012D30: 2C 41 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 ,A...LD A,H...AD
012D40: 44 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 49 D B...LD H,A...I
012D50: 4E 43 20 44 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 NC D.....LD A,(D
012D60: 45 29 20 20 20 20 20 20 20 3B 37 0D 0A 09 4C 44 E) ;7...LD
012D70: 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 (HL),A...LD A,H
012D80: 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C ...ADD B...LD H,
012D90: 41 0D 0A 09 49 4E 43 20 44 0D 0A 0D 0A 09 4C 44 A...INC D.....LD
012DA0: 20 41 2C 28 44 45 29 20 20 20 20 20 20 20 3B 38 A,(DE) ;8
012DB0: 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 20 20 0D 0A ...LD (HL),A ..
012DC0: 09 52 45 54 0D 0A 0D 0A 0D 0A 2E 41 6E 73 69 43 .RET.......AnsiC
012DD0: 68 61 72 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D har..;----------
012DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012DF0: 2D 0D 0A 3B 09 46 49 4C 4C 20 41 20 43 48 41 52 -..;.FILL A CHAR
012E00: 20 28 66 72 6F 6D 20 38 20 62 79 74 65 73 29 0D (from 8 bytes).
012E10: 0A 3B 09 45 6E 74 72 79 20 20 20 48 4C 3D 73 63 .;.Entry HL=sc
012E20: 72 65 65 6E 20 61 64 64 72 65 73 73 20 69 66 20 reen address if
012E30: 74 6F 70 20 6F 66 20 63 65 6C 6C 0D 0A 3B 09 09 top of cell..;..
012E40: 44 45 3D 53 74 61 72 74 20 6F 66 20 38 20 62 79 DE=Start of 8 by
012E50: 74 65 73 0D 0A 3B 09 65 78 69 74 20 42 2C 44 45 tes..;.exit B,DE
012E60: 2C 48 4C 2C 41 46 20 63 6F 72 72 75 70 74 0D 0A ,HL,AF corrupt..
012E70: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
012E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 09 4C ------------...L
012E90: 44 20 42 2C 38 09 09 09 3B 66 69 6C 6C 20 61 20 D B,8...;fill a
012EA0: 63 65 6C 6C 20 77 69 74 68 20 61 20 63 68 61 72 cell with a char
012EB0: 20 66 72 6F 6D 20 70 61 67 65 64 20 6D 61 70 0D from paged map.
012EC0: 0A 09 4C 44 20 41 2C 28 44 45 29 20 20 20 20 20 ..LD A,(DE)
012ED0: 20 20 3B 31 09 3B 6C 6F 61 64 20 41 20 77 69 74 ;1.;load A wit
012EE0: 68 20 62 79 74 65 20 66 72 6F 6D 20 6D 61 70 0D h byte from map.
012EF0: 0A 09 4C 44 20 28 48 4C 29 2C 41 09 09 3B 4C 6F ..LD (HL),A..;Lo
012F00: 61 64 20 73 63 72 20 77 69 74 68 20 62 79 74 65 ad scr with byte
012F10: 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 ...LD A,H...ADD
012F20: 42 0D 0A 09 4C 44 20 48 2C 41 09 09 09 3B 6E 65 B...LD H,A...;ne
012F30: 78 74 20 6C 69 6E 65 20 64 6F 77 6E 0D 0A 20 20 xt line down..
012F40: 20 20 20 20 20 20 49 4E 43 20 44 45 09 09 09 3B INC DE...;
012F50: 6E 65 78 74 20 62 79 74 65 0D 0A 0D 0A 09 4C 44 next byte.....LD
012F60: 20 41 2C 28 44 45 29 20 20 20 20 20 20 20 3B 32 A,(DE) ;2
012F70: 09 3B 72 65 70 65 61 74 20 61 6E 6F 74 68 65 72 .;repeat another
012F80: 20 37 20 74 69 6D 65 73 0D 0A 09 4C 44 20 28 48 7 times...LD (H
012F90: 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 L),A...LD A,H...
012FA0: 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A ADD B...LD H,A..
012FB0: 09 49 4E 43 20 44 45 0D 0A 0D 0A 09 4C 44 20 41 .INC DE.....LD A
012FC0: 2C 28 44 45 29 20 20 20 20 20 20 20 3B 33 0D 0A ,(DE) ;3..
012FD0: 09 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 .LD (HL),A...LD
012FE0: 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 A,H...ADD B...LD
012FF0: 20 48 2C 41 0D 0A 09 49 4E 43 20 44 45 0D 0A 0D H,A...INC DE...
013000: 0A 09 4C 44 20 41 2C 28 44 45 29 20 20 20 20 20 ..LD A,(DE)
013010: 20 20 3B 34 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 ;4...LD (HL),A
013020: 20 20 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 ...LD A,H...AD
013030: 44 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 49 D B...LD H,A...I
013040: 4E 43 20 44 45 0D 0A 0D 0A 0D 0A 09 4C 44 20 41 NC DE.......LD A
013050: 2C 28 44 45 29 20 20 20 20 20 20 20 3B 35 0D 0A ,(DE) ;5..
013060: 09 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 .LD (HL),A...LD
013070: 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 A,H...ADD B...LD
013080: 20 48 2C 41 0D 0A 20 20 20 20 20 20 20 20 49 4E H,A.. IN
013090: 43 20 44 45 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 C DE.....LD A,(D
0130A0: 45 29 20 20 20 20 20 20 20 3B 36 0D 0A 09 4C 44 E) ;6...LD
0130B0: 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 (HL),A...LD A,H
0130C0: 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C ...ADD B...LD H,
0130D0: 41 0D 0A 09 49 4E 43 20 44 45 0D 0A 0D 0A 09 4C A...INC DE.....L
0130E0: 44 20 41 2C 28 44 45 29 20 20 20 20 20 20 20 3B D A,(DE) ;
0130F0: 37 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 7...LD (HL),A...
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 4E E5 10 00 C1 02 00 00 00 02 ......N.........
013120: 10 00 C2 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013130: 10 00 C4 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013140: 10 00 C6 02 00 00 00 02 10 00 C7 02 00 00 00 02 ................
013150: 10 00 C8 02 00 00 00 02 10 00 C9 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A LD A,H...ADD B..
013210: 09 4C 44 20 48 2C 41 0D 0A 09 49 4E 43 20 44 45 .LD H,A...INC DE
013220: 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 45 29 20 20 .....LD A,(DE)
013230: 20 20 20 20 20 3B 38 0D 0A 09 4C 44 20 28 48 4C ;8...LD (HL
013240: 29 2C 41 20 20 0D 0A 09 52 45 54 0D 0A 0D 0A 2E ),A ...RET.....
013250: 43 55 52 53 4F 52 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D CURSOR..;-------
013260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013270: 2D 2D 2D 2D 2D 0D 0A 3B 09 58 4F 52 20 43 45 4C -----..;.XOR CEL
013280: 4C 20 41 54 20 43 55 52 52 45 4E 54 20 43 55 52 L AT CURRENT CUR
013290: 20 50 4F 53 0D 0A 3B 09 45 6E 74 65 72 20 28 59 POS..;.Enter (Y
0132A0: 29 20 28 58 29 20 63 6F 6E 74 61 69 6E 20 70 6F ) (X) contain po
0132B0: 73 0D 0A 3B 09 45 78 69 74 09 0D 0A 3B 2D 2D 2D s..;.Exit...;---
0132C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0132D0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 0D 0A 09 50 --------.......P
0132E0: 55 53 48 20 41 46 0D 0A 09 50 55 53 48 20 42 43 USH AF...PUSH BC
0132F0: 0D 0A 09 50 55 53 48 20 48 4C 09 09 09 0D 0A 09 ...PUSH HL......
013300: 4C 44 20 48 4C 2C 28 59 29 09 09 3B 73 61 76 65 LD HL,(Y)..;save
013310: 20 72 65 67 73 2F 68 3D 78 20 6C 3D 79 0D 0A 0D regs/h=x l=y...
013320: 0A 09 43 41 4C 4C 20 53 43 52 5F 41 44 44 52 45 ..CALL SCR_ADDRE
013330: 53 53 09 3B 67 65 74 20 73 63 72 20 61 64 64 72 SS.;get scr addr
013340: 65 73 73 0D 0A 09 4C 44 20 42 2C 38 09 09 09 0D ess...LD B,8....
013350: 0A 0D 0A 09 4C 44 20 41 2C 28 48 4C 29 09 3B 31 ....LD A,(HL).;1
013360: 09 3B 78 6F 72 20 62 79 74 65 0D 0A 09 43 50 4C .;xor byte...CPL
013370: 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 4C ...LD (HL),A...L
013380: 44 20 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 D A,H...ADD B...
013390: 4C 44 20 48 2C 41 09 09 09 3B 6E 65 78 74 20 6C LD H,A...;next l
0133A0: 69 6E 65 0D 0A 09 0D 0A 09 4C 44 20 41 2C 28 48 ine......LD A,(H
0133B0: 4C 29 09 3B 32 0D 0A 09 43 50 4C 0D 0A 09 4C 44 L).;2...CPL...LD
0133C0: 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 (HL),A...LD A,H
0133D0: 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C ...ADD B...LD H,
0133E0: 41 0D 0A 0D 0A 09 4C 44 20 41 2C 28 48 4C 29 09 A.....LD A,(HL).
0133F0: 3B 33 0D 0A 09 43 50 4C 0D 0A 09 4C 44 20 28 48 ;3...CPL...LD (H
013400: 4C 29 2C 41 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 L),A...LD A,H...
013410: 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A ADD B...LD H,A..
013420: 0D 0A 09 4C 44 20 41 2C 28 48 4C 29 09 3B 34 0D ...LD A,(HL).;4.
013430: 0A 09 43 50 4C 0D 0A 09 4C 44 20 28 48 4C 29 2C ..CPL...LD (HL),
013440: 41 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 A...LD A,H...ADD
013450: 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A 0D 0A 09 B...LD H,A.....
013460: 4C 44 20 41 2C 28 48 4C 29 09 3B 35 0D 0A 09 43 LD A,(HL).;5...C
013470: 50 4C 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D 0A PL...LD (HL),A..
013480: 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 42 0D .LD A,H...ADD B.
013490: 0A 09 4C 44 20 48 2C 41 0D 0A 09 0D 0A 09 4C 44 ..LD H,A......LD
0134A0: 20 41 2C 28 48 4C 29 09 3B 36 0D 0A 09 43 50 4C A,(HL).;6...CPL
0134B0: 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 4C ...LD (HL),A...L
0134C0: 44 20 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 D A,H...ADD B...
0134D0: 4C 44 20 48 2C 41 0D 0A 0D 0A 09 4C 44 20 41 2C LD H,A.....LD A,
0134E0: 28 48 4C 29 09 3B 37 0D 0A 09 43 50 4C 0D 0A 09 (HL).;7...CPL...
0134F0: 4C 44 20 28 48 4C 29 2C 41 0D 0A 09 4C 44 20 41 LD (HL),A...LD A
013500: 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 ,H...ADD B...LD
013510: 48 2C 41 0D 0A 0D 0A 09 4C 44 20 41 2C 28 48 4C H,A.....LD A,(HL
013520: 29 09 3B 38 0D 0A 09 43 50 4C 0D 0A 09 4C 44 20 ).;8...CPL...LD
013530: 28 48 4C 29 2C 41 0D 0A 0D 0A 09 50 4F 50 20 48 (HL),A.....POP H
013540: 4C 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 50 4F 50 L...POP BC...POP
013550: 20 41 46 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 0D AF...RET.......
013560: 0A 0D 0A 0D 0A 0D 0A 0D 0A 2E 43 45 4C 4C 32 0D ..........CELL2.
013570: 0A 09 50 55 53 48 20 42 43 09 09 09 3B 53 61 6D ..PUSH BC...;Sam
013580: 65 20 61 73 20 62 65 6C 6F 77 20 62 75 74 20 68 e as below but h
013590: 6C 3D 73 63 72 65 65 6E 20 61 64 64 72 65 73 73 l=screen address
0135A0: 0D 0A 09 4C 44 20 43 2C 41 0D 0A 09 4A 52 20 43 ...LD C,A...JR C
0135B0: 45 4C 4C 58 0D 0A 2E 43 45 4C 4C 0D 0A 3B 2D 2D ELLX...CELL..;--
0135C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0135D0: 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 46 49 4C 4C 20 43 ------..;.FILL C
0135E0: 45 4C 4C 20 57 49 54 48 20 41 20 42 59 54 45 0D ELL WITH A BYTE.
0135F0: 0A 3B 09 45 4E 54 52 59 20 48 3D 58 20 50 4F 53 .;.ENTRY H=X POS
013600: 2C 4C 3D 59 20 50 4F 53 2C 41 3D 62 79 74 65 0D ,L=Y POS,A=byte.
013610: 0A 3B 09 45 58 49 54 20 41 46 2C 48 4C 20 43 4F .;.EXIT AF,HL CO
013620: 52 52 55 50 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D RRUPT..;--------
013630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013640: 0D 0A 20 20 20 20 20 20 20 20 50 55 53 48 20 42 .. PUSH B
013650: 43 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 43 2C C.. LD C,
013660: 41 0D 0A 09 43 41 4C 4C 20 53 43 52 5F 41 44 44 A...CALL SCR_ADD
013670: 52 45 53 53 09 09 3B 67 65 74 20 61 64 64 72 65 RESS..;get addre
013680: 73 73 0D 0A 63 65 6C 6C 78 09 4C 44 20 42 2C 38 ss..cellx.LD B,8
013690: 09 09 0D 0A 0D 0A 09 4C 44 20 28 48 4C 29 2C 43 .......LD (HL),C
0136A0: 09 3B 31 09 09 3B 4C 44 20 48 4C 2C 09 77 69 74 .;1..;LD HL,.wit
0136B0: 68 20 62 79 74 65 0D 0A 09 4C 44 20 41 2C 48 0D h byte...LD A,H.
0136C0: 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 ..ADD B...LD H,A
0136D0: 09 09 09 09 3B 6E 65 78 74 20 6C 69 6E 65 0D 0A ....;next line..
0136E0: 0D 0A 09 4C 44 20 28 48 4C 29 2C 43 09 3B 32 0D ...LD (HL),C.;2.
0136F0: 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 42 ..LD A,H...ADD B
013700: 0D 0A 09 4C 44 20 48 2C 41 0D 0A 0D 0A 09 4C 44 ...LD H,A.....LD
013710: 20 28 48 4C 29 2C 43 09 3B 33 0D 0A 09 4C 44 20 (HL),C.;3...LD
013720: 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 4C 44 A,H...ADD B...LD
013730: 20 48 2C 41 0D 0A 0D 0A 09 4C 44 20 28 48 4C 29 H,A.....LD (HL)
013740: 2C 43 09 3B 34 0D 0A 09 4C 44 20 41 2C 48 0D 0A ,C.;4...LD A,H..
013750: 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 0D .ADD B...LD H,A.
013760: 0A 0D 0A 09 4C 44 20 28 48 4C 29 2C 43 09 3B 35 ....LD (HL),C.;5
013770: 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 ...LD A,H...ADD
013780: 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A 0D 0A 09 4C B...LD H,A.....L
013790: 44 20 28 48 4C 29 2C 43 09 3B 36 0D 0A 09 4C 44 D (HL),C.;6...LD
0137A0: 20 41 2C 48 0D 0A 09 41 44 44 20 42 0D 0A 09 4C A,H...ADD B...L
0137B0: 44 20 48 2C 41 0D 0A 0D 0A 09 4C 44 20 28 48 4C D H,A.....LD (HL
0137C0: 29 2C 43 09 3B 37 0D 0A 09 4C 44 20 41 2C 48 0D ),C.;7...LD A,H.
0137D0: 0A 09 41 44 44 20 42 0D 0A 09 4C 44 20 48 2C 41 ..ADD B...LD H,A
0137E0: 0D 0A 0D 0A 09 4C 44 20 28 48 4C 29 2C 43 09 3B .....LD (HL),C.;
0137F0: 38 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 8...LD A,H...ADD
013800: 20 42 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 50 4F B...LD H,A...PO
013810: 50 20 42 43 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A P BC...RET......
013820: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
013830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013840: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 47 45 54 20 --------..;.GET
013850: 41 44 44 52 45 53 53 0D 0A 3B 09 45 6E 74 72 79 ADDRESS..;.Entry
013860: 20 2D 20 48 4C 20 3D 20 43 75 72 73 6F 72 20 70 - HL = Cursor p
013870: 6F 73 69 74 69 6F 6E 0D 0A 3B 09 45 78 69 74 20 osition..;.Exit
013880: 20 2D 20 48 4C 20 3D 20 41 64 64 72 65 73 73 20 - HL = Address
013890: 77 61 6E 74 65 64 0D 0A 3B 09 55 73 65 64 20 20 wanted..;.Used
0138A0: 2D 20 44 45 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D - DE..;---------
0138B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0138C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0138D0: 2E 47 65 74 41 64 64 72 65 73 73 0D 0A 09 50 55 .GetAddress...PU
0138E0: 53 48 09 41 46 0D 0A 09 50 55 53 48 09 48 4C 0D SH.AF...PUSH.HL.
0138F0: 0A 09 4C 44 09 41 2C 4C 09 09 09 3B 20 47 65 74 ..LD.A,L...; Get
013900: 20 72 6F 77 20 69 6E 20 41 0D 0A 09 41 44 44 09 row in A...ADD.
013910: 4C 09 09 09 3B 20 64 6F 75 62 6C 65 20 72 6F 77 L...; double row
013920: 20 6E 75 6D 62 65 72 2E 0D 0A 09 4C 44 09 4C 2C number....LD.L,
013930: 41 09 09 09 3B 20 47 65 74 20 6C 6F 77 20 62 79 A...; Get low by
013940: 74 65 20 69 6E 74 6F 20 4C 0D 0A 09 4C 44 09 48 te into L...LD.H
013950: 2C 30 09 09 09 3B 20 47 65 74 20 68 69 67 68 20 ,0...; Get high
013960: 62 79 74 65 20 69 6E 74 6F 20 48 0D 0A 20 20 20 byte into H..
013970: 20 20 20 20 20 4C 44 09 44 45 2C 54 41 42 4C 45 LD.DE,TABLE
013980: 0D 0A 09 41 44 44 20 20 20 20 20 48 4C 2C 44 45 ...ADD HL,DE
013990: 0D 0A 09 4C 44 09 45 2C 28 48 4C 29 09 09 09 3B ...LD.E,(HL)...;
0139A0: 20 47 65 74 20 69 6E 74 6F 20 44 45 2E 0D 0A 09 Get into DE....
0139B0: 49 4E 43 09 48 4C 0D 0A 09 4C 44 09 44 2C 28 48 INC.HL...LD.D,(H
0139C0: 4C 29 0D 0A 09 50 4F 50 09 48 4C 0D 0A 09 4C 44 L)...POP.HL...LD
0139D0: 09 4C 2C 48 09 09 09 3B 20 50 72 65 70 61 72 65 .L,H...; Prepare
0139E0: 20 76 61 6C 75 65 20 74 6F 20 61 64 64 0D 0A 09 value to add...
0139F0: 4C 44 09 48 2C 30 0D 0A 09 41 44 44 09 48 4C 2C LD.H,0...ADD.HL,
013A00: 44 45 09 09 09 3B 20 4F 66 66 73 65 74 20 6E 6F DE...; Offset no
013A10: 77 20 69 6E 20 48 4C 2E 0D 0A 20 20 20 20 20 20 w in HL...
013A20: 20 20 4C 44 20 09 44 45 2C 53 43 52 45 45 4E 5F LD .DE,SCREEN_
013A30: 43 0D 0A 09 41 44 44 09 48 4C 2C 44 45 09 09 09 C...ADD.HL,DE...
013A40: 3B 61 64 64 20 74 6F 20 62 61 73 65 20 6F 66 20 ;add to base of
013A50: 73 63 72 65 65 6E 5F 63 0D 0A 09 50 4F 50 09 41 screen_c...POP.A
013A60: 46 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 2E 53 43 F...RET.......SC
013A70: 52 5F 41 44 44 52 45 53 53 0D 0A 3B 0D 0A 3B 09 R_ADDRESS..;..;.
013A80: 45 4E 54 52 59 20 2D 20 48 3D 58 20 20 4C 3D 59 ENTRY - H=X L=Y
013A90: 0D 0A 3B 0D 0A 0D 0A 09 50 55 53 48 20 41 46 0D ..;.....PUSH AF.
013AA0: 0A 09 50 55 53 48 20 44 45 0D 0A 09 50 55 53 48 ..PUSH DE...PUSH
013AB0: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 6C 64 20 HL.. ld
013AC0: 68 2C 30 0D 0A 09 4C 44 20 41 2C 4C 0D 0A 09 41 h,0...LD A,L...A
013AD0: 44 44 20 4C 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 DD L...LD L,A...
013AE0: 4C 44 20 64 65 2C 54 41 42 4C 45 0D 0A 09 41 44 LD de,TABLE...AD
013AF0: 44 20 48 4C 2C 64 65 0D 0A 09 4C 44 20 45 2C 28 D HL,de...LD E,(
013B00: 48 4C 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 4C HL)...INC HL...L
013B10: 44 20 44 2C 28 48 4C 29 0D 0A 09 50 4F 50 20 48 D D,(HL)...POP H
013B20: 4C 0D 0A 09 4C 44 20 4C 2C 48 0D 0A 09 4C 44 20 L...LD L,H...LD
013B30: 48 2C 30 0D 0A 09 41 44 44 20 48 4C 2C 44 45 0D H,0...ADD HL,DE.
013B40: 0A 09 4C 44 20 64 65 2C 28 52 4C 5F 4F 46 46 53 ..LD de,(RL_OFFS
013B50: 45 54 29 0D 0A 09 41 44 44 20 48 4C 2C 44 45 0D ET)...ADD HL,DE.
013B60: 0A 09 4C 44 20 41 2C 48 0D 0A 09 41 4E 44 20 25 ..LD A,H...AND %
013B70: 30 30 30 30 30 31 31 31 0D 0A 09 41 44 44 20 26 00000111...ADD &
013B80: 43 30 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 50 4F C0...LD H,A...PO
013B90: 50 20 44 45 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 P DE...POP AF...
013BA0: 52 45 54 0D 0A 0D 0A 54 41 42 4C 45 09 0D 0A 57 RET....TABLE...W
013BB0: 4F 52 44 20 26 30 30 30 30 0D 0A 57 4F 52 44 20 ORD &0000..WORD
013BC0: 26 30 30 35 30 0D 0A 57 4F 52 44 20 26 30 30 41 &0050..WORD &00A
013BD0: 30 0D 0A 57 4F 52 44 20 26 30 30 46 30 0D 0A 57 0..WORD &00F0..W
013BE0: 4F 52 44 20 26 30 31 34 30 0D 0A 57 4F 52 44 20 ORD &0140..WORD
013BF0: 26 30 31 39 30 0D 0A 57 4F 52 44 20 26 30 31 45 &0190..WORD &01E
013C00: 30 0D 0A 57 4F 52 44 20 26 30 32 33 30 0D 0A 57 0..WORD &0230..W
013C10: 4F 52 44 20 26 30 32 38 30 0D 0A 57 4F 52 44 20 ORD &0280..WORD
013C20: 26 30 32 44 30 0D 0A 57 4F 52 44 20 26 30 33 32 &02D0..WORD &032
013C30: 30 0D 0A 57 4F 52 44 20 26 30 33 37 30 0D 0A 57 0..WORD &0370..W
013C40: 4F 52 44 20 26 30 33 43 30 0D 0A 57 4F 52 44 20 ORD &03C0..WORD
013C50: 26 30 34 31 30 0D 0A 57 4F 52 44 20 26 30 34 36 &0410..WORD &046
013C60: 30 0D 0A 57 4F 52 44 20 26 30 34 42 30 0D 0A 57 0..WORD &04B0..W
013C70: 4F 52 44 20 26 30 35 30 30 0D 0A 57 4F 52 44 20 ORD &0500..WORD
013C80: 26 30 35 35 30 0D 0A 57 4F 52 44 20 26 30 35 41 &0550..WORD &05A
013C90: 30 0D 0A 57 4F 52 44 20 26 30 35 46 30 0D 0A 57 0..WORD &05F0..W
013CA0: 4F 52 44 20 26 30 36 34 30 0D 0A 57 4F 52 44 20 ORD &0640..WORD
013CB0: 26 30 36 39 30 0D 0A 57 4F 52 44 20 26 30 36 45 &0690..WORD &06E
013CC0: 30 0D 0A 57 4F 52 44 20 26 30 37 33 30 0D 0A 57 0..WORD &0730..W
013CD0: 4F 52 44 20 26 30 37 38 30 0D 0A 0D 0A 20 20 20 ORD &0780....
013CE0: 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D ;--------
013CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013D00: 2D 2D 2D 2D 2D 2D 0D 0A 2E 43 6C 65 61 72 5F 6B ------...Clear_k
013D10: 65 79 73 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 52 45 eys...CALL KM_RE
013D20: 41 44 5F 43 48 41 52 0D 0A 09 4A 52 20 43 2C 43 AD_CHAR...JR C,C
013D30: 6C 65 61 72 5F 6B 65 79 73 0D 0A 09 52 45 54 0D lear_keys...RET.
013D40: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
013D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
013D60: 0A 2E 41 4E 53 49 4A 50 54 41 42 4C 45 0D 0A 57 ..ANSIJPTABLE..W
013D70: 4F 52 44 09 41 4C 4C 4F 46 46 0D 0A 57 4F 52 44 ORD.ALLOFF..WORD
013D80: 09 42 4F 4C 44 4F 4E 0D 0A 57 4F 52 44 09 46 45 .BOLDON..WORD.FE
013D90: 49 4E 54 4F 4E 0D 0A 57 4F 52 44 09 49 54 41 4C INTON..WORD.ITAL
013DA0: 49 43 4F 4E 0D 0A 57 4F 52 44 09 55 4E 44 45 52 ICON..WORD.UNDER
013DB0: 4F 4E 0D 0A 57 4F 52 44 09 49 4E 56 45 52 53 45 ON..WORD.INVERSE
013DC0: 4F 4E 0D 0A 57 4F 52 44 09 53 41 4D 45 42 41 43 ON..WORD.SAMEBAC
013DD0: 4B 46 4F 52 45 0D 0A 57 4F 52 44 09 46 4F 52 45 KFORE..WORD.FORE
013DE0: 47 52 4F 55 4E 44 0D 0A 57 4F 52 44 09 42 41 43 GROUND..WORD.BAC
013DF0: 4B 47 52 4F 55 4E 44 0D 0A 57 4F 52 44 09 53 4D KGROUND..WORD.SM
013E00: 41 53 48 54 48 45 4D 0D 0A 2E 41 4E 53 49 54 45 ASHTHEM...ANSITE
013E10: 58 54 0D 0A 09 4C 44 20 41 2C 28 48 4C 29 0D 0A XT...LD A,(HL)..
013E20: 09 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 .INC HL..
013E30: 20 4F 52 20 41 0D 0A 09 52 45 54 20 5A 0D 0A 09 OR A...RET Z...
013E40: 42 49 54 20 37 2C 41 0D 0A 09 4A 52 20 5A 2C 41 BIT 7,A...JR Z,A
013E50: 4E 54 58 31 0D 0A 09 52 45 53 20 37 2C 41 0D 0A NTX1...RES 7,A..
013E60: 09 50 55 53 48 20 48 4C 0D 0A 09 4C 44 20 4C 2C .PUSH HL...LD L,
013E70: 41 09 0D 0A 09 4C 44 20 48 2C 30 0D 0A 09 4C 44 A....LD H,0...LD
013E80: 20 44 45 2C 41 4E 53 49 4A 50 54 41 42 4C 45 0D DE,ANSIJPTABLE.
013E90: 0A 09 41 44 44 20 48 4C 2C 48 4C 0D 0A 09 41 44 ..ADD HL,HL...AD
013EA0: 44 20 48 4C 2C 44 45 0D 0A 09 4C 44 20 45 2C 28 D HL,DE...LD E,(
013EB0: 48 4C 29 3A 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 HL):INC HL...LD
013EC0: 44 2C 28 48 4C 29 0D 0A 09 45 58 20 48 4C 2C 44 D,(HL)...EX HL,D
013ED0: 45 0D 0A 09 43 41 4C 4C 20 50 55 4C 4C 4A 50 0D E...CALL PULLJP.
013EE0: 0A 09 50 4F 50 20 48 4C 0D 0A 09 4A 50 20 41 4E ..POP HL...JP AN
013EF0: 53 49 54 45 58 54 0D 0A 2E 41 4E 54 58 31 0D 0A SITEXT...ANTX1..
013F00: 09 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 .CALL SCREENWRIT
013F10: 45 0D 0A 09 4A 50 20 41 4E 53 49 54 45 58 54 0D E...JP ANSITEXT.
013F20: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
013F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013F40: 0D 0A 2E 59 45 53 4E 4F 0D 0A 09 50 55 53 48 20 ...YESNO...PUSH
013F50: 42 43 0D 0A 09 4C 44 20 42 2C 41 0D 0A 09 43 41 BC...LD B,A...CA
013F60: 4C 4C 20 4B 4D 5F 57 41 49 54 5F 43 48 41 52 0D LL KM_WAIT_CHAR.
013F70: 0A 09 52 45 53 20 35 2C 41 0D 0A 09 43 50 20 22 ..RES 5,A...CP "
013F80: 59 22 0D 0A 09 4A 52 20 5A 2C 59 4E 45 4E 44 0D Y"...JR Z,YNEND.
013F90: 0A 09 43 50 20 22 4E 22 0D 0A 09 4A 52 20 5A 2C ..CP "N"...JR Z,
013FA0: 79 4E 45 4E 44 0D 0A 09 4C 44 20 41 2C 42 0D 0A yNEND...LD A,B..
013FB0: 2E 59 4E 45 4E 44 09 50 4F 50 20 42 43 0D 0A 09 .YNEND.POP BC...
013FC0: 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RET..;----------
013FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 44 45 3D ----------..;DE=
013FF0: 73 74 61 72 74 20 61 64 64 09 20 20 20 20 42 3D start add. B=
014000: 6C 65 6E 20 6F 66 20 73 74 72 0D 0A 3B 42 3D 6C len of str..;B=l
014010: 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 en
014020: 43 3D 6C 65 6E 20 6F 66 20 73 74 72 0D 0A 3B 0D C=len of str..;.
014030: 0A 0D 0A 2E 4B 45 59 49 4E 50 0D 0A 09 4C 44 20 ....KEYINP...LD
014040: 41 2C 22 5F 22 0D 0A 2E 4B 45 59 49 4E 50 32 0D A,"_"...KEYINP2.
014050: 0A 09 4C 44 20 28 44 45 4C 43 48 41 52 29 2C 41 ..LD (DELCHAR),A
014060: 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 4C 44 20 ...PUSH HL...LD
014070: 28 4B 45 59 5F 4F 4C 44 53 54 29 2C 44 45 0D 0A (KEY_OLDST),DE..
014080: 09 4C 44 20 48 4C 2C 28 59 29 0D 0A 09 4C 44 20 .LD HL,(Y)...LD
014090: 28 4B 45 59 5F 53 54 43 55 52 29 2C 48 4C 0D 0A (KEY_STCUR),HL..
0140A0: 09 4C 44 20 28 4B 45 59 5F 4F 4C 44 43 55 52 29 .LD (KEY_OLDCUR)
0140B0: 2C 48 4C 0D 0A 09 43 41 4C 4C 20 4B 45 59 5F 4C ,HL...CALL KEY_L
0140C0: 49 4E 45 0D 0A 09 4C 44 20 43 2C 30 0D 0A 09 4A INE...LD C,0...J
0140D0: 50 20 4B 45 59 5F 49 4E 50 55 54 32 0D 0A 0D 0A P KEY_INPUT2....
0140E0: 2E 49 4E 50 55 54 4C 49 4E 45 0D 0A 09 4C 44 20 .INPUTLINE...LD
0140F0: 41 2C 22 5F 22 0D 0A 2E 49 4E 50 55 54 4C 49 4E A,"_"...INPUTLIN
014100: 45 32 0D 0A 09 4C 44 20 28 44 45 4C 43 48 41 52 E2...LD (DELCHAR
014110: 29 2C 41 09 09 3B 20 57 68 65 6E 20 64 65 6C 20 ),A..; When del
014120: 70 6F 70 20 69 6E 20 5F 20 6F 72 0D 0A 09 50 55 pop in _ or...PU
014130: 53 48 20 48 4C 0D 0A 09 50 55 53 48 20 42 43 09 SH HL...PUSH BC.
014140: 09 09 3B 20 53 61 76 65 20 6C 65 6E 67 74 68 0D ..; Save length.
014150: 0A 09 4C 44 20 48 4C 2C 28 59 29 0D 0A 09 4C 44 ..LD HL,(Y)...LD
014160: 20 28 4B 45 59 5F 53 54 43 55 52 29 2C 48 4C 09 (KEY_STCUR),HL.
014170: 3B 20 53 61 76 65 20 73 63 72 65 65 6E 20 70 6F ; Save screen po
014180: 73 0D 0A 09 4C 44 20 48 2C 30 0D 0A 09 4C 44 20 s...LD H,0...LD
014190: 4C 2C 42 09 09 09 3B 20 48 4C 3D 6C 65 6E 0D 0A L,B...; HL=len..
0141A0: 20 20 20 20 20 20 20 20 4C 44 20 43 2C 30 0D 0A LD C,0..
0141B0: 09 41 44 44 20 48 4C 2C 44 45 09 09 3B 20 48 4C .ADD HL,DE..; HL
0141C0: 3D 65 6E 64 2B 31 0D 0A 09 44 45 43 20 48 4C 09 =end+1...DEC HL.
0141D0: 09 09 3B 20 48 4C 3D 65 6E 64 0D 0A 2E 49 31 09 ..; HL=end...I1.
0141E0: 4C 44 20 41 2C 28 48 4C 29 0D 0A 09 43 50 20 33 LD A,(HL)...CP 3
0141F0: 32 0D 0A 20 20 20 20 20 20 20 20 4A 50 20 4E 5A 2.. JP NZ
014200: 2C 49 32 09 09 3B 20 69 73 20 69 74 20 61 20 73 ,I2..; is it a s
014210: 70 61 63 65 3F 0D 0A 09 44 45 43 20 48 4C 09 09 pace?...DEC HL..
014220: 09 3B 20 4E 4F 2C 20 43 6F 6E 74 20 74 6F 20 66 .; NO, Cont to f
014230: 69 6E 64 20 6F 6E 65 2E 2E 2E 0D 0A 20 20 20 20 ind one.....
014240: 20 20 20 20 49 4E 43 20 43 0D 0A 09 44 4A 4E 5A INC C...DJNZ
014250: 20 49 31 0D 0A 20 20 20 20 20 20 20 20 4A 50 20 I1.. JP
014260: 49 34 09 09 09 3B 20 45 6D 70 74 79 21 0D 0A 2E I4...; Empty!...
014270: 49 32 09 50 55 53 48 20 42 43 09 09 09 3B 20 73 I2.PUSH BC...; s
014280: 61 76 65 20 6C 65 6E 20 6F 66 20 74 65 78 74 0D ave len of text.
014290: 0A 09 50 55 53 48 20 44 45 09 09 09 3B 20 73 61 ..PUSH DE...; sa
0142A0: 76 65 20 73 74 61 72 74 0D 0A 2E 49 33 09 4C 44 ve start...I3.LD
0142B0: 20 41 2C 28 44 45 29 0D 0A 09 49 4E 43 20 44 45 A,(DE)...INC DE
0142C0: 0D 0A 09 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 ...CALL WRITE_CH
0142D0: 41 52 0D 0A 09 44 4A 4E 5A 20 49 33 09 09 09 3B AR...DJNZ I3...;
0142E0: 20 50 72 69 6E 74 20 73 74 72 69 6E 67 0D 0A 09 Print string...
0142F0: 4C 44 20 28 4B 45 59 5F 4F 4C 44 53 54 29 2C 44 LD (KEY_OLDST),D
014300: 45 09 3B 20 6E 65 77 20 73 74 61 72 74 0D 0A 09 E.; new start...
014310: 50 4F 50 20 44 45 09 09 09 3B 20 67 65 74 20 73 POP DE...; get s
014320: 74 61 72 74 0D 0A 2E 49 34 09 4C 44 20 48 4C 2C tart...I4.LD HL,
014330: 28 59 29 0D 0A 09 4C 44 20 28 4B 45 59 5F 4F 4C (Y)...LD (KEY_OL
014340: 44 43 55 52 29 2C 48 4C 09 3B 20 53 65 74 20 70 DCUR),HL.; Set p
014350: 6F 73 0D 0A 09 4C 44 20 42 2C 43 09 09 09 3B 20 os...LD B,C...;
014360: 67 65 74 20 6C 65 6E 0D 0A 09 4C 44 20 41 2C 43 get len...LD A,C
014370: 09 09 09 0D 0A 09 4F 52 20 41 0D 0A 09 4A 50 20 ......OR A...JP
014380: 5A 2C 49 36 20 20 20 20 20 20 20 20 20 20 20 20 Z,I6
014390: 20 20 20 20 20 3B 20 69 73 20 74 68 61 74 20 69 ; is that i
0143A0: 74 0D 0A 09 4C 44 20 41 2C 28 44 45 4C 43 48 41 t...LD A,(DELCHA
0143B0: 52 29 0D 0A 2E 49 35 09 43 41 4C 4C 20 57 52 49 R)...I5.CALL WRI
0143C0: 54 45 5F 43 48 41 52 0D 0A 09 44 4A 4E 5A 20 49 TE_CHAR...DJNZ I
0143D0: 35 09 09 09 3B 20 4E 6F 70 65 20 73 70 61 63 65 5...; Nope space
0143E0: 73 20 6C 65 66 74 20 73 6F 20 70 72 69 6E 74 0D s left so print.
0143F0: 0A 2E 49 36 09 50 4F 50 20 42 43 09 09 09 3B 20 ..I6.POP BC...;
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 4E E5 11 00 C1 02 00 00 00 02 ......N.........
014420: 11 00 C2 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014430: 11 00 C4 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014440: 11 00 C6 02 00 00 00 02 11 00 C7 02 00 00 00 02 ................
014450: 11 00 C8 02 00 00 00 02 11 00 C9 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 67 65 74 20 6C 65 6E 67 74 68 0D 0A 09 4C 44 20 get length...LD
014510: 43 2C 42 09 09 09 3B 20 73 65 74 20 6D 61 78 20 C,B...; set max
014520: 6C 65 6E 0D 0A 09 50 4F 50 20 48 4C 20 20 20 20 len...POP HL
014530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 ;
014540: 67 65 74 20 6C 65 6E 67 74 68 0D 0A 09 4C 44 20 get length...LD
014550: 42 2C 48 0D 0A 09 4C 44 20 48 4C 2C 28 4B 45 59 B,H...LD HL,(KEY
014560: 5F 4F 4C 44 43 55 52 29 20 20 20 20 20 20 3B 20 _OLDCUR) ;
014570: 42 3D 6C 65 6E 67 74 68 20 20 43 3D 73 74 72 20 B=length C=str
014580: 6C 65 6E 0D 0A 09 4C 44 20 44 45 2C 28 4B 45 59 len...LD DE,(KEY
014590: 5F 4F 4C 44 53 54 29 0D 0A 09 4C 44 20 28 59 29 _OLDST)...LD (Y)
0145A0: 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 43 41 4C ,HL.. CAL
0145B0: 4C 20 43 55 52 53 4F 52 09 09 3B 20 73 65 74 20 L CURSOR..; set
0145C0: 75 70 0D 0A 0D 0A 2E 4B 65 79 5F 69 6E 70 75 74 up.....Key_input
0145D0: 32 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 2...CALL KM_WAIT
0145E0: 5F 43 48 41 52 0D 0A 2E 49 37 09 43 50 20 31 33 _CHAR...I7.CP 13
0145F0: 09 0D 0A 09 4A 52 20 5A 2C 4B 49 45 4E 44 0D 0A ....JR Z,KIEND..
014600: 09 43 50 20 26 46 43 0D 0A 09 4A 52 20 5A 2C 4B .CP &FC...JR Z,K
014610: 49 45 4E 44 09 09 3B 20 45 6E 74 65 72 2F 65 73 IEND..; Enter/es
014620: 63 0D 0A 09 43 50 20 32 34 09 0D 0A 09 4A 50 20 c...CP 24....JP
014630: 5A 2C 4B 49 44 45 4C 5F 4C 49 4E 45 09 09 3B 20 Z,KIDEL_LINE..;
014640: 43 74 72 6C 20 58 0D 0A 09 43 50 20 26 37 66 09 Ctrl X...CP &7f.
014650: 09 09 3B 20 44 65 6C 2F 41 72 72 6F 77 0D 0A 09 ..; Del/Arrow...
014660: 4A 52 20 5A 2C 4B 49 44 45 4C 0D 0A 09 43 50 20 JR Z,KIDEL...CP
014670: 31 30 0D 0A 09 4A 52 20 5A 2C 4B 49 44 45 4C 0D 10...JR Z,KIDEL.
014680: 0A 0D 0A 09 4C 44 20 48 2C 41 09 09 09 3B 20 48 ....LD H,A...; H
014690: 3D 63 68 61 72 0D 0A 09 4C 44 20 41 2C 42 09 09 =char...LD A,B..
0146A0: 09 3B 20 66 69 6E 64 20 6C 65 6E 67 74 68 0D 0A .; find length..
0146B0: 09 43 50 20 43 0D 0A 20 20 20 20 20 20 20 20 4A .CP C.. J
0146C0: 50 20 5A 2C 4B 49 42 45 45 50 09 09 3B 20 74 6F P Z,KIBEEP..; to
0146D0: 6F 6F 20 66 61 72 0D 0A 09 49 4E 43 20 43 09 09 oo far...INC C..
0146E0: 09 3B 20 69 6E 63 20 6C 65 6E 0D 0A 09 4C 44 20 .; inc len...LD
0146F0: 41 2C 48 0D 0A 09 4C 44 20 28 44 45 29 2C 41 09 A,H...LD (DE),A.
014700: 0D 0A 09 49 4E 43 20 44 45 09 09 09 3B 20 70 6F ...INC DE...; po
014710: 6B 65 20 63 68 61 72 0D 0A 09 43 41 4C 4C 20 57 ke char...CALL W
014720: 52 49 54 45 5F 43 48 41 52 0D 0A 09 43 41 4C 4C RITE_CHAR...CALL
014730: 20 43 55 52 53 4F 52 09 09 3B 20 70 72 69 6E 74 CURSOR..; print
014740: 2F 6D 6F 76 65 0D 0A 09 4A 50 20 4B 45 59 5F 49 /move...JP KEY_I
014750: 4E 50 55 54 32 09 09 3B 20 63 6F 6E 74 2E 2E 2E NPUT2..; cont...
014760: 0D 0A 0D 0A 2E 4B 49 45 4E 44 09 43 41 4C 4C 20 .....KIEND.CALL
014770: 43 55 52 53 4F 52 20 20 20 20 20 20 20 20 20 20 CURSOR
014780: 20 20 20 3B 72 65 6D 6F 76 65 20 63 75 72 73 6F ;remove curso
014790: 72 0D 0A 09 50 55 53 48 20 41 46 09 09 09 3B 73 r...PUSH AF...;s
0147A0: 61 76 65 20 6B 65 79 0D 0A 09 4C 44 20 41 2C 42 ave key...LD A,B
0147B0: 0D 0A 09 53 55 42 20 43 0D 0A 09 4F 52 20 41 0D ...SUB C...OR A.
0147C0: 0A 09 4A 52 20 5A 2C 49 39 09 09 09 3B 20 69 66 ..JR Z,I9...; if
0147D0: 20 6C 65 6E 67 74 68 20 6D 61 78 0D 0A 09 4C 44 length max...LD
0147E0: 20 42 2C 41 09 09 09 3B 20 6C 65 6E 67 74 68 0D B,A...; length.
0147F0: 0A 2E 49 38 09 4C 44 20 41 2C 22 20 22 0D 0A 09 ..I8.LD A," "...
014800: 4C 44 20 28 44 45 29 2C 41 0D 0A 09 49 4E 43 20 LD (DE),A...INC
014810: 44 45 0D 0A 09 43 41 4C 4C 20 57 52 49 54 45 5F DE...CALL WRITE_
014820: 43 48 41 52 0D 0A 09 44 4A 4E 5A 20 49 38 09 09 CHAR...DJNZ I8..
014830: 09 3B 20 50 72 69 6E 74 20 73 70 61 63 65 73 0D .; Print spaces.
014840: 0A 2E 49 39 20 20 20 20 20 4C 44 20 42 2C 43 09 ..I9 LD B,C.
014850: 09 09 3B 20 67 65 74 20 6C 65 6E 67 74 68 0D 0A ..; get length..
014860: 09 50 4F 50 20 41 46 09 09 09 3B 20 6B 65 79 0D .POP AF...; key.
014870: 0A 09 50 4F 50 20 48 4C 09 09 09 3B 20 67 65 74 ..POP HL...; get
014880: 20 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4B 49 44 45 ...RET.....KIDE
014890: 4C 5F 4C 49 4E 45 0D 0A 09 50 55 53 48 20 42 43 L_LINE...PUSH BC
0148A0: 0D 0A 09 4C 44 20 44 45 2C 28 4B 45 59 5F 4F 4C ...LD DE,(KEY_OL
0148B0: 44 53 54 29 0D 0A 09 4C 44 20 41 2C 22 20 22 0D DST)...LD A," ".
0148C0: 0A 2E 4B 44 4C 20 20 20 20 4C 44 20 28 44 45 29 ..KDL LD (DE)
0148D0: 2C 41 0D 0A 09 49 4E 43 20 44 45 0D 0A 09 44 4A ,A...INC DE...DJ
0148E0: 4E 5A 20 4B 44 4C 0D 0A 09 50 4F 50 20 42 43 0D NZ KDL...POP BC.
0148F0: 0A 09 4C 44 20 48 4C 2C 28 4B 45 59 5F 53 54 43 ..LD HL,(KEY_STC
014900: 55 52 29 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D UR)...LD (Y),HL.
014910: 0A 09 43 41 4C 4C 20 4B 45 59 5F 4C 49 4E 45 0D ..CALL KEY_LINE.
014920: 0A 09 43 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 ..CALL CURSOR...
014930: 4C 44 20 43 2C 30 0D 0A 09 4A 50 20 4B 45 59 5F LD C,0...JP KEY_
014940: 49 4E 50 55 54 32 0D 0A 09 0D 0A 2E 4B 49 44 45 INPUT2......KIDE
014950: 4C 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 43 50 20 L...LD A,C...CP
014960: 30 0D 0A 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 0.. JR Z,
014970: 4B 49 42 45 45 50 0D 0A 09 44 45 43 20 43 0D 0A KIBEEP...DEC C..
014980: 20 20 20 20 20 20 20 20 44 45 43 20 44 45 0D 0A DEC DE..
014990: 09 43 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 4C .CALL CURSOR...L
0149A0: 44 20 48 4C 2C 28 59 29 0D 0A 09 44 45 43 20 48 D HL,(Y)...DEC H
0149B0: 09 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 ....LD (Y),HL...
0149C0: 4C 44 20 41 2C 28 44 45 4C 43 48 41 52 29 0D 0A LD A,(DELCHAR)..
0149D0: 09 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 52 .CALL WRITE_CHAR
0149E0: 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 43 ...LD (Y),HL...C
0149F0: 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 4A 50 20 ALL CURSOR...JP
014A00: 4B 45 59 5F 49 4E 50 55 54 32 0D 0A 0D 0A 2E 4B KEY_INPUT2.....K
014A10: 45 59 5F 4C 49 4E 45 0D 0A 09 4C 44 20 48 4C 2C EY_LINE...LD HL,
014A20: 28 59 29 0D 0A 09 50 55 53 48 20 42 43 0D 0A 2E (Y)...PUSH BC...
014A30: 4B 4C 49 4E 45 09 4C 44 20 41 2C 22 5F 22 0D 0A KLINE.LD A,"_"..
014A40: 09 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 52 .CALL WRITE_CHAR
014A50: 0D 0A 09 44 4A 4E 5A 20 4B 4C 49 4E 45 0D 0A 09 ...DJNZ KLINE...
014A60: 50 4F 50 20 42 43 0D 0A 09 4C 44 20 28 59 29 2C POP BC...LD (Y),
014A70: 48 4C 0D 0A 09 52 45 54 0D 0A 0D 0A 4B 49 42 45 HL...RET....KIBE
014A80: 45 50 09 4C 44 20 41 2C 37 0D 0A 09 43 41 4C 4C EP.LD A,7...CALL
014A90: 20 26 42 42 35 41 0D 0A 09 4A 50 20 4B 45 59 5F &BB5A...JP KEY_
014AA0: 49 4E 50 55 54 32 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D INPUT2..;-------
014AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014AC0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 2E 41 6E 79 --------.....Any
014AD0: 6B 65 79 0D 0A 09 4C 44 20 48 4C 2C 50 52 45 53 key...LD HL,PRES
014AE0: 53 0D 0A 09 43 41 4C 4C 20 41 4E 53 49 54 45 58 S...CALL ANSITEX
014AF0: 54 0D 0A 09 4A 50 20 4B 4D 5F 57 41 49 54 5F 43 T...JP KM_WAIT_C
014B00: 48 41 52 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D HAR....;--------
014B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014B20: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 44 45 43 38 09 --------...DEC8.
014B30: 43 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 2E 44 45 CALL CURSOR...DE
014B40: 43 38 32 20 20 4C 44 20 41 2C 30 0D 0A 09 4C 44 C82 LD A,0...LD
014B50: 20 28 54 45 4D 50 4E 55 4D 29 2C 41 0D 0A 09 4C (TEMPNUM),A...L
014B60: 44 20 43 2C 30 0D 0A 09 4C 44 20 41 2C 28 58 29 D C,0...LD A,(X)
014B70: 0D 0A 09 4C 44 20 48 2C 41 0D 0A 2E 44 45 43 38 ...LD H,A...DEC8
014B80: 31 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 5F 43 1.CALL KM_WAIT_C
014B90: 48 41 52 0D 0A 09 43 50 20 26 37 46 0D 0A 09 4A HAR...CP &7F...J
014BA0: 50 20 5A 2C 44 45 43 38 44 45 4C 0D 0A 09 43 50 P Z,DEC8DEL...CP
014BB0: 20 31 33 0D 0A 09 4A 50 20 5A 2C 43 55 52 53 4F 13...JP Z,CURSO
014BC0: 52 0D 0A 09 43 50 20 22 30 22 0D 0A 09 4A 50 20 R...CP "0"...JP
014BD0: 43 2C 44 45 43 38 31 0D 0A 09 43 50 20 22 39 22 C,DEC81...CP "9"
014BE0: 2B 31 0D 0A 09 4A 50 20 4E 43 2C 44 45 43 38 31 +1...JP NC,DEC81
014BF0: 0D 0A 20 20 20 20 20 20 20 20 53 55 42 20 22 30 .. SUB "0
014C00: 22 0D 0A 09 4C 44 20 42 2C 41 0D 0A 09 4C 44 20 "...LD B,A...LD
014C10: 41 2C 43 0D 0A 09 43 50 20 33 0D 0A 09 4A 50 20 A,C...CP 3...JP
014C20: 5A 2C 44 45 43 38 31 0D 0A 09 4C 44 20 41 2C 28 Z,DEC81...LD A,(
014C30: 54 45 4D 50 4E 55 4D 29 0D 0A 09 41 44 44 20 41 TEMPNUM)...ADD A
014C40: 2C 41 0D 0A 09 4C 44 20 45 2C 41 0D 0A 09 41 44 ,A...LD E,A...AD
014C50: 44 20 41 2C 41 0D 0A 09 41 44 44 20 41 2C 41 0D D A,A...ADD A,A.
014C60: 0A 09 4A 52 20 43 2C 44 45 43 38 31 0D 0A 09 41 ..JR C,DEC81...A
014C70: 44 44 20 41 2C 45 0D 0A 09 4A 52 20 43 2C 44 45 DD A,E...JR C,DE
014C80: 43 38 31 0D 0A 09 41 44 44 20 41 2C 42 0D 0A 09 C81...ADD A,B...
014C90: 4A 52 20 43 2C 44 45 43 38 31 0D 0A 09 4C 44 20 JR C,DEC81...LD
014CA0: 28 54 45 4D 50 4E 55 4D 29 2C 41 0D 0A 09 4C 44 (TEMPNUM),A...LD
014CB0: 20 41 2C 42 0D 0A 09 41 44 44 20 22 30 22 0D 0A A,B...ADD "0"..
014CC0: 09 43 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 43 .CALL CURSOR...C
014CD0: 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 52 0D 0A ALL WRITE_CHAR..
014CE0: 09 43 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 49 .CALL CURSOR...I
014CF0: 4E 43 20 43 0D 0A 09 4A 50 20 44 45 43 38 31 0D NC C...JP DEC81.
014D00: 0A 2E 44 45 43 38 44 45 4C 0D 0A 09 4C 44 20 41 ..DEC8DEL...LD A
014D10: 2C 48 0D 0A 09 4C 44 20 28 58 29 2C 41 0D 0A 09 ,H...LD (X),A...
014D20: 50 55 53 48 20 48 4C 0D 0A 09 4C 44 20 48 4C 2C PUSH HL...LD HL,
014D30: 44 45 43 53 50 0D 0A 09 43 41 4C 4C 20 41 4E 53 DECSP...CALL ANS
014D40: 49 54 45 58 54 0D 0A 09 50 4F 50 20 48 4C 0D 0A ITEXT...POP HL..
014D50: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 48 0D 0A LD A,H..
014D60: 09 4C 44 20 28 58 29 2C 41 0D 0A 09 4A 50 20 44 .LD (X),A...JP D
014D70: 45 43 38 32 0D 0A 09 0D 0A 2E 44 45 43 53 50 09 EC82......DECSP.
014D80: 09 42 59 54 45 20 22 20 20 20 20 20 22 2C 30 0D .BYTE " ",0.
014D90: 0A 2E 54 45 4D 50 4E 55 4D 09 57 4F 52 44 20 30 ..TEMPNUM.WORD 0
014DA0: 0D 0A 2E 44 45 43 58 09 09 42 59 54 45 20 30 0D ...DECX..BYTE 0.
014DB0: 0A 3B 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 .;- - - - - - -
014DC0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 0D 0A 2E - - - - - - -...
014DD0: 44 45 43 31 36 09 43 41 4C 4C 20 43 55 52 53 4F DEC16.CALL CURSO
014DE0: 52 0D 0A 2E 44 45 43 36 32 09 4C 44 20 48 4C 2C R...DEC62.LD HL,
014DF0: 30 0D 0A 09 4C 44 20 28 54 45 4D 50 4E 55 4D 29 0...LD (TEMPNUM)
014E00: 2C 48 4C 0D 0A 09 4C 44 20 43 2C 30 0D 0A 09 4C ,HL...LD C,0...L
014E10: 44 20 41 2C 28 58 29 0D 0A 09 4C 44 20 28 44 45 D A,(X)...LD (DE
014E20: 43 58 29 2C 41 0D 0A 2E 44 45 43 31 09 43 41 4C CX),A...DEC1.CAL
014E30: 4C 20 4B 4D 5F 57 41 49 54 5F 43 48 41 52 0D 0A L KM_WAIT_CHAR..
014E40: 09 43 50 20 26 37 46 0D 0A 09 4A 50 20 5A 2C 44 .CP &7F...JP Z,D
014E50: 45 43 31 36 44 45 4C 0D 0A 09 43 50 20 31 33 0D EC16DEL...CP 13.
014E60: 0A 09 4A 50 20 5A 2C 43 55 52 53 4F 52 0D 0A 09 ..JP Z,CURSOR...
014E70: 43 50 20 22 30 22 0D 0A 09 4A 50 20 43 2C 44 45 CP "0"...JP C,DE
014E80: 43 31 0D 0A 09 43 50 20 22 39 22 2B 31 0D 0A 09 C1...CP "9"+1...
014E90: 4A 50 20 4E 43 2C 44 45 43 31 0D 0A 20 20 20 20 JP NC,DEC1..
014EA0: 20 20 20 20 53 55 42 20 22 30 22 0D 0A 09 4C 44 SUB "0"...LD
014EB0: 20 42 2C 41 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 B,A...LD A,C...
014EC0: 43 50 20 35 0D 0A 09 4A 50 20 5A 2C 44 45 43 31 CP 5...JP Z,DEC1
014ED0: 0D 0A 09 4C 44 20 48 4C 2C 28 54 45 4D 50 4E 55 ...LD HL,(TEMPNU
014EE0: 4D 29 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 0D 0A M)...ADD HL,HL..
014EF0: 09 4C 44 20 44 2C 48 0D 0A 09 4C 44 20 45 2C 4C .LD D,H...LD E,L
014F00: 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 0D 0A 09 41 ...ADD HL,HL...A
014F10: 44 44 20 48 4C 2C 48 4C 0D 0A 09 4A 52 20 43 2C DD HL,HL...JR C,
014F20: 44 45 43 31 0D 0A 09 41 44 44 20 48 4C 2C 44 45 DEC1...ADD HL,DE
014F30: 0D 0A 09 4A 52 20 43 2C 44 45 43 31 0D 0A 09 4C ...JR C,DEC1...L
014F40: 44 20 45 2C 42 0D 0A 09 4C 44 20 44 2C 30 0D 0A D E,B...LD D,0..
014F50: 09 41 44 44 20 48 4C 2C 44 45 0D 0A 09 4A 52 20 .ADD HL,DE...JR
014F60: 43 2C 44 45 43 31 0D 0A 09 4C 44 20 28 54 45 4D C,DEC1...LD (TEM
014F70: 50 4E 55 4D 29 2C 48 4C 0D 0A 09 4C 44 20 41 2C PNUM),HL...LD A,
014F80: 42 0D 0A 09 41 44 44 20 22 30 22 0D 0A 09 43 41 B...ADD "0"...CA
014F90: 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 43 41 4C 4C LL CURSOR...CALL
014FA0: 20 57 52 49 54 45 5F 43 48 41 52 0D 0A 09 43 41 WRITE_CHAR...CA
014FB0: 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 49 4E 43 20 LL CURSOR...INC
014FC0: 43 0D 0A 09 4A 50 20 44 45 43 31 0D 0A 2E 44 45 C...JP DEC1...DE
014FD0: 43 31 36 44 45 4C 0D 0A 09 4C 44 20 41 2C 28 44 C16DEL...LD A,(D
014FE0: 45 43 58 29 0D 0A 09 4C 44 20 28 58 29 2C 41 0D ECX)...LD (X),A.
014FF0: 0A 09 4C 44 20 48 4C 2C 44 45 43 53 50 0D 0A 09 ..LD HL,DECSP...
015000: 43 41 4C 4C 20 41 4E 53 49 54 45 58 54 0D 0A 20 CALL ANSITEXT..
015010: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 44 45 43 LD A,(DEC
015020: 58 29 0D 0A 09 4C 44 20 28 58 29 2C 41 0D 0A 09 X)...LD (X),A...
015030: 4A 50 20 44 45 43 36 32 0D 0A 3B 2D 2D 2D 2D 2D JP DEC62..;-----
015040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 49 6E 76 65 72 ---------..Inver
015060: 73 65 5F 6C 69 6E 65 0D 0A 09 50 55 53 48 20 42 se_line...PUSH B
015070: 43 0D 0A 09 50 55 53 48 20 44 45 0D 0A 09 4C 44 C...PUSH DE...LD
015080: 20 43 2C 38 0D 0A 09 43 41 4C 4C 20 53 43 52 5F C,8...CALL SCR_
015090: 41 44 44 52 45 53 53 0D 0A 2E 49 4C 31 09 50 55 ADDRESS...IL1.PU
0150A0: 53 48 20 48 4C 0D 0A 09 50 55 53 48 20 42 43 0D SH HL...PUSH BC.
0150B0: 0A 2E 49 4C 32 09 4C 44 20 41 2C 28 48 4C 29 0D ..IL2.LD A,(HL).
0150C0: 0A 09 43 50 4C 0D 0A 09 4C 44 20 28 48 4C 29 2C ..CPL...LD (HL),
0150D0: 41 0D 0A 09 43 41 4C 4C 20 4E 45 58 54 42 59 54 A...CALL NEXTBYT
0150E0: 45 0D 0A 09 44 4A 4E 5A 20 49 4C 32 0D 0A 09 50 E...DJNZ IL2...P
0150F0: 4F 50 20 42 43 0D 0A 09 50 4F 50 20 48 4C 0D 0A OP BC...POP HL..
015100: 09 4C 44 20 41 2C 48 0D 0A 09 41 44 44 20 38 0D .LD A,H...ADD 8.
015110: 0A 09 4C 44 20 48 2C 41 0D 0A 09 44 45 43 20 43 ..LD H,A...DEC C
015120: 0D 0A 09 4A 52 20 4E 5A 2C 49 4C 31 0D 0A 09 50 ...JR NZ,IL1...P
015130: 4F 50 20 44 45 0D 0A 09 50 4F 50 20 42 43 0D 0A OP DE...POP BC..
015140: 09 52 45 54 0D 0A 0D 0A 2E 4E 45 58 54 42 59 54 .RET.....NEXTBYT
015150: 45 0D 0A 09 49 4E 43 20 4C 0D 0A 09 52 45 54 20 E...INC L...RET
015160: 4E 5A 0D 0A 09 49 4E 43 20 48 0D 0A 09 4C 44 20 NZ...INC H...LD
015170: 41 2C 48 0D 0A 09 41 4E 44 20 26 37 0D 0A 09 52 A,H...AND &7...R
015180: 45 54 20 4E 5A 0D 0A 09 4C 44 20 41 2C 48 0D 0A ET NZ...LD A,H..
015190: 09 53 55 42 20 26 38 0D 0A 09 4C 44 20 48 2C 41 .SUB &8...LD H,A
0151A0: 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4E 45 58 54 4C ...RET.....NEXTL
0151B0: 49 4E 45 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 INE.. LD
0151C0: 41 2C 48 0D 0A 09 41 44 44 20 41 2C 26 38 0D 0A A,H...ADD A,&8..
0151D0: 09 4C 44 20 48 2C 41 0D 0A 09 41 4E 44 20 26 33 .LD H,A...AND &3
0151E0: 38 0D 0A 09 52 45 54 20 4E 5A 0D 0A 09 4C 44 20 8...RET NZ...LD
0151F0: 41 2C 48 0D 0A 09 53 55 42 20 26 34 30 0D 0A 09 A,H...SUB &40...
015200: 4C 44 20 48 2C 41 0D 0A 09 4C 44 20 41 2C 4C 0D LD H,A...LD A,L.
015210: 0A 09 41 44 44 20 41 2C 26 35 30 0D 0A 09 4C 44 ..ADD A,&50...LD
015220: 20 4C 2C 41 0D 0A 09 52 45 54 20 4E 43 0D 0A 09 L,A...RET NC...
015230: 49 4E 43 20 48 0D 0A 09 4C 44 20 41 2C 48 0D 0A INC H...LD A,H..
015240: 09 41 4E 44 20 26 37 0D 0A 09 52 45 54 20 4E 5A .AND &7...RET NZ
015250: 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 53 55 42 20 ...LD A,H...SUB
015260: 26 38 0D 0A 09 4C 44 20 48 2C 41 0D 0A 09 52 45 &8...LD H,A...RE
015270: 54 0D 0A 3B 0D 0A 3B 09 50 52 49 4E 54 20 48 4C T..;..;.PRINT HL
015280: 0D 0A 3B 0D 0A 2E 4E 55 4D 42 45 52 31 36 0D 0A ..;...NUMBER16..
015290: 09 4C 44 20 43 2C 34 0D 0A 09 4C 44 20 41 2C 48 .LD C,4...LD A,H
0152A0: 09 0D 0A 09 4F 52 20 4C 0D 0A 09 4A 52 20 5A 2C ....OR L...JR Z,
0152B0: 4E 55 4D 5F 49 53 5F 30 0D 0A 09 4C 44 20 43 2C NUM_IS_0...LD C,
0152C0: 30 0D 0A 09 4C 44 20 44 45 2C 31 30 30 30 30 0D 0...LD DE,10000.
0152D0: 0A 09 43 41 4C 4C 20 43 4F 55 4E 54 0D 0A 09 4C ..CALL COUNT...L
0152E0: 44 20 44 45 2C 31 30 30 30 0D 0A 09 43 41 4C 4C D DE,1000...CALL
0152F0: 20 43 4F 55 4E 54 0D 0A 09 4C 44 20 44 45 2C 31 COUNT...LD DE,1
015300: 30 30 0D 0A 09 43 41 4C 4C 20 43 4F 55 4E 54 0D 00...CALL COUNT.
015310: 0A 09 4C 44 20 44 45 2C 31 30 0D 0A 20 09 43 41 ..LD DE,10.. .CA
015320: 4C 4C 20 43 4F 55 4E 54 0D 0A 09 4C 44 20 44 45 LL COUNT...LD DE
015330: 2C 31 0D 0A 2E 43 4F 55 4E 54 09 4C 44 20 42 2C ,1...COUNT.LD B,
015340: 30 0D 0A 2E 4E 4C 31 36 09 58 4F 52 20 41 0D 0A 0...NL16.XOR A..
015350: 09 53 42 43 20 48 4C 2C 44 45 0D 0A 09 4A 52 20 .SBC HL,DE...JR
015360: 43 2C 4E 31 36 45 4E 44 0D 0A 09 49 4E 43 20 42 C,N16END...INC B
015370: 0D 0A 09 4A 52 20 4E 4C 31 36 0D 0A 2E 4E 31 36 ...JR NL16...N16
015380: 45 4E 44 09 0D 0A 09 41 44 44 20 48 4C 2C 44 45 END....ADD HL,DE
015390: 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C 42 .. LD A,B
0153A0: 0D 0A 20 09 4F 52 20 41 0D 0A 20 09 4A 52 20 4E .. .OR A.. .JR N
0153B0: 5A 2C 4E 31 36 45 32 0D 0A 20 09 4C 44 20 41 2C Z,N16E2.. .LD A,
0153C0: 43 0D 0A 20 20 20 20 20 20 20 20 43 50 20 31 0D C.. CP 1.
0153D0: 0A 09 4A 52 20 5A 2C 4E 31 36 45 32 0D 0A 20 09 ..JR Z,N16E2.. .
0153E0: 4C 44 20 41 2C 22 20 22 0D 0A 20 09 4A 50 20 57 LD A," ".. .JP W
0153F0: 52 49 54 45 5F 43 48 41 52 0D 0A 0D 0A 2E 4E 31 RITE_CHAR.....N1
015400: 36 45 32 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 6E2.. LD
015410: 43 2C 31 20 20 0D 0A 09 4C 44 20 41 2C 42 0D 0A C,1 ...LD A,B..
015420: 09 41 44 44 20 22 30 22 0D 0A 09 4A 50 20 57 52 .ADD "0"...JP WR
015430: 49 54 45 5F 43 48 41 52 0D 0A 20 20 20 20 20 20 ITE_CHAR..
015440: 20 20 20 20 0D 0A 2E 4E 55 4D 5F 49 53 5F 30 0D ...NUM_IS_0.
015450: 0A 09 4C 44 20 41 2C 28 58 29 0D 0A 09 41 44 44 ..LD A,(X)...ADD
015460: 20 43 0D 0A 09 4C 44 20 28 58 29 2C 41 0D 0A 09 C...LD (X),A...
015470: 4C 44 20 41 2C 22 30 22 0D 0A 09 4A 50 20 57 52 LD A,"0"...JP WR
015480: 49 54 45 5F 43 48 41 52 0D 0A 09 20 0D 0A 3B 2D ITE_CHAR... ..;-
015490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0154A0: 2D 2D 2D 2D 2D 0D 0A 0D 0A 2E 4E 55 4D 42 45 52 -----.....NUMBER
0154B0: 38 0D 0A 3B 0D 0A 3B 09 50 52 49 4E 54 20 41 0D 8..;..;.PRINT A.
0154C0: 0A 3B 0D 0A 09 4C 44 20 43 2C 32 0D 0A 09 4F 52 .;...LD C,2...OR
0154D0: 20 41 0D 0A 09 4A 52 20 5A 2C 4E 55 4D 5F 49 53 A...JR Z,NUM_IS
0154E0: 5F 30 0D 0A 09 4C 44 20 43 2C 30 0D 0A 09 4C 44 _0...LD C,0...LD
0154F0: 20 44 2C 31 30 30 0D 0A 09 43 41 4C 4C 20 43 4F D,100...CALL CO
015500: 55 0D 0A 09 4C 44 20 44 2C 31 30 0D 0A 09 43 41 U...LD D,10...CA
015510: 4C 4C 20 43 4F 55 0D 0A 09 4C 44 20 44 2C 31 0D LL COU...LD D,1.
015520: 0A 2E 43 4F 55 09 4C 44 20 42 2C 30 0D 0A 2E 4E ..COU.LD B,0...N
015530: 4C 38 09 0D 0A 09 53 55 42 20 41 2C 44 0D 0A 09 L8....SUB A,D...
015540: 4A 52 20 43 2C 4E 38 45 4E 44 0D 0A 09 49 4E 43 JR C,N8END...INC
015550: 20 42 0D 0A 09 4A 52 20 4E 4C 38 0D 0A 2E 4E 38 B...JR NL8...N8
015560: 45 4E 44 09 0D 0A 09 41 44 44 20 41 2C 44 0D 0A END....ADD A,D..
015570: 09 4C 44 20 45 2C 41 0D 0A 20 20 20 20 20 20 20 .LD E,A..
015580: 20 4C 44 20 41 2C 42 0D 0A 20 09 4F 52 20 41 0D LD A,B.. .OR A.
015590: 0A 20 09 4A 52 20 4E 5A 2C 4E 38 45 32 0D 0A 20 . .JR NZ,N8E2..
0155A0: 09 4C 44 20 41 2C 43 0D 0A 20 20 20 20 20 20 20 .LD A,C..
0155B0: 20 43 50 20 31 0D 0A 09 4A 52 20 5A 2C 4E 38 45 CP 1...JR Z,N8E
0155C0: 32 0D 0A 20 09 4C 44 20 41 2C 22 20 22 0D 0A 20 2.. .LD A," "..
0155D0: 09 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 52 .CALL WRITE_CHAR
0155E0: 0D 0A 09 4C 44 20 41 2C 45 0D 0A 09 52 45 54 0D ...LD A,E...RET.
0155F0: 0A 0D 0A 2E 4E 38 45 32 0D 0A 20 20 20 20 20 20 ....N8E2..
015600: 20 20 4C 44 20 41 2C 45 0D 0A 20 20 20 20 20 20 LD A,E..
015610: 20 20 4C 44 20 43 2C 31 20 20 0D 0A 09 4C 44 20 LD C,1 ...LD
015620: 41 2C 42 0D 0A 09 41 44 44 20 22 30 22 0D 0A 09 A,B...ADD "0"...
015630: 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 52 0D CALL WRITE_CHAR.
015640: 0A 09 4C 44 20 41 2C 45 09 0D 0A 09 52 45 54 0D ..LD A,E....RET.
015650: 0A 0D 0A 0D 0A 0D 0A 4D 55 4C 54 49 0D 0A 3B 0D .......MULTI..;.
015660: 0A 3B 09 4D 55 4C 54 49 50 4C 59 20 48 4C 3D 44 .;.MULTIPLY HL=D
015670: 45 2A 42 43 0D 0A 3B 0D 0A 4D 55 4C 54 49 50 4C E*BC..;..MULTIPL
015680: 59 5F 44 45 42 43 0D 0A 0D 0A 09 4C 44 20 48 4C Y_DEBC.....LD HL
015690: 2C 30 09 0D 0A 09 4C 44 20 41 2C 44 0D 0A 09 4F ,0....LD A,D...O
0156A0: 52 20 45 0D 0A 09 52 45 54 20 5A 0D 0A 2E 4D 4C R E...RET Z...ML
0156B0: 50 09 41 44 44 20 48 4C 2C 42 43 0D 0A 09 44 45 P.ADD HL,BC...DE
0156C0: 43 20 44 45 0D 0A 09 4C 44 20 41 2C 44 0D 0A 09 C DE...LD A,D...
0156D0: 4F 52 20 45 0D 0A 09 4A 52 20 4E 5A 2C 4D 4C 50 OR E...JR NZ,MLP
0156E0: 0D 0A 09 52 45 54 0D 0A 0D 0A 44 49 56 49 44 45 ...RET....DIVIDE
0156F0: 0D 0A 3B 09 0D 0A 3B 09 44 49 56 49 44 45 20 42 ..;...;.DIVIDE B
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 4E E5 12 00 C1 02 00 00 00 02 ......N.........
015720: 12 00 C2 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015730: 12 00 C4 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015740: 12 00 C6 02 00 00 00 02 12 00 C7 02 00 00 00 02 ................
015750: 12 00 C8 02 00 00 00 02 12 00 C9 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 43 3D 48 4C 2F 44 45 20 20 2D 20 48 4C 3D 52 45 C=HL/DE - HL=RE
015810: 4D 41 4E 44 45 52 0D 0A 3B 0D 0A 2E 44 49 56 49 MANDER..;...DIVI
015820: 44 45 5F 48 4C 44 45 0D 0A 0D 0A 0D 0A 09 4C 44 DE_HLDE.......LD
015830: 20 42 43 2C 30 0D 0A 2E 44 4C 50 09 53 42 43 20 BC,0...DLP.SBC
015840: 48 4C 2C 44 45 0D 0A 09 4A 52 20 43 2C 44 45 4E HL,DE...JR C,DEN
015850: 44 0D 0A 09 49 4E 43 20 42 43 0D 0A 09 52 45 54 D...INC BC...RET
015860: 20 5A 0D 0A 09 4A 52 20 44 4C 50 0D 0A 2E 44 45 Z...JR DLP...DE
015870: 4E 44 09 41 44 44 20 48 4C 2C 44 45 0D 0A 09 52 ND.ADD HL,DE...R
015880: 45 54 0D 0A 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 ET........
015890: 20 20 20 20 0D 0A 2E 68 65 78 20 20 20 20 50 55 ...hex PU
0158A0: 53 48 20 41 46 0D 0A 20 20 20 20 20 20 09 52 52 SH AF.. .RR
0158B0: 41 20 0D 0A 20 20 20 20 20 20 09 52 52 41 20 0D A .. .RRA .
0158C0: 0A 20 20 20 20 20 20 09 52 52 41 20 0D 0A 20 20 . .RRA ..
0158D0: 20 20 20 20 09 52 52 41 20 0D 0A 20 20 20 20 20 .RRA ..
0158E0: 20 09 43 41 4C 4C 20 68 65 78 32 0D 0A 20 20 20 .CALL hex2..
0158F0: 20 20 20 09 50 4F 50 20 41 46 0D 0A 2E 68 65 78 .POP AF...hex
015900: 32 20 20 09 41 4E 44 20 26 46 0D 0A 20 20 20 20 2 .AND &F..
015910: 20 20 09 41 44 44 20 26 39 30 0D 0A 20 20 20 20 .ADD &90..
015920: 20 20 09 44 41 41 20 0D 0A 20 20 20 20 20 20 09 .DAA .. .
015930: 41 44 43 20 26 34 30 0D 0A 20 20 20 20 20 20 09 ADC &40.. .
015940: 44 41 41 20 0D 0A 20 20 20 20 20 20 09 43 41 4C DAA .. .CAL
015950: 4C 20 20 57 52 49 54 45 5F 43 48 41 52 0D 0A 20 L WRITE_CHAR..
015960: 20 20 20 20 20 09 52 45 54 20 20 0D 0A 0D 0A 0D .RET .....
015970: 0A 0D 0A 1A 00 00 00 00 00 00 00 00 00 00 00 00 ................
015980: 59 5F 44 45 42 43 0D 0A 0D 0A 09 4C 44 20 48 4C Y_DEBC.....LD HL
015990: 2C 30 09 0D 0A 09 4C 44 20 41 2C 44 0D 0A 09 4F ,0....LD A,D...O
0159A0: 52 20 45 0D 0A 09 52 45 54 20 5A 0D 0A 2E 4D 4C R E...RET Z...ML
0159B0: 50 09 41 44 44 20 48 4C 2C 42 43 0D 0A 09 44 45 P.ADD HL,BC...DE
0159C0: 43 20 44 45 0D 0A 09 4C 44 20 41 2C 44 0D 0A 09 C DE...LD A,D...
0159D0: 4F 52 20 45 0D 0A 09 4A 52 20 4E 5A 2C 4D 4C 50 OR E...JR NZ,MLP
0159E0: 0D 0A 09 52 45 54 0D 0A 0D 0A 44 49 56 49 44 45 ...RET....DIVIDE
0159F0: 0D 0A 3B 09 0D 0A 3B 09 44 49 56 49 44 45 20 42 ..;...;.DIVIDE B
015A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C00: 31 20 70 72 69 6E 74 20 22 47 72 61 70 68 69 63 1 print "Graphic
015C10: 73 20 64 72 69 76 65 72 20 64 61 74 61 20 61 72 s driver data ar
015C20: 65 61 22 0D 0A 0D 0A 0D 0A 2E 48 4F 55 52 4E 55 ea".......HOURNU
015C30: 4D 20 20 20 20 20 20 20 20 45 51 55 20 20 20 20 M EQU
015C40: 20 54 49 4D 45 4C 49 4E 45 2B 36 0D 0A 2E 4D 49 TIMELINE+6...MI
015C50: 4E 4E 55 4D 20 20 20 20 20 20 20 20 20 45 51 55 NNUM EQU
015C60: 20 20 20 20 20 54 49 4D 45 4C 49 4E 45 2B 39 0D TIMELINE+9.
015C70: 0A 2E 53 45 43 4E 55 4D 20 20 20 20 20 20 20 20 ..SECNUM
015C80: 20 45 51 55 20 20 20 20 20 54 49 4D 45 4C 49 4E EQU TIMELIN
015C90: 45 2B 31 32 0D 0A 0D 0A 2E 43 4F 4C 4F 55 52 53 E+12.....COLOURS
015CA0: 41 56 45 0D 0A 09 09 09 57 4F 52 44 20 4A 48 69 AVE.....WORD JHi
015CB0: 67 68 49 6E 74 0D 0A 09 09 09 57 4F 52 44 20 62 ghInt.....WORD b
015CC0: 61 63 6B 63 6F 6C 6F 75 72 0D 0A 09 09 09 57 4F ackcolour.....WO
015CD0: 52 44 20 66 6F 72 65 63 6F 6C 6F 75 72 0D 0A 09 RD forecolour...
015CE0: 09 09 57 4F 52 44 20 4A 41 4E 53 49 0D 0A 09 09 ..WORD JANSI....
015CF0: 09 57 4F 52 44 20 4A 50 52 49 4E 54 0D 0A 09 09 .WORD JPRINT....
015D00: 09 57 4F 52 44 20 4A 67 65 74 63 68 61 72 61 63 .WORD Jgetcharac
015D10: 74 65 72 0D 0A 0D 0A 0D 0A 2E 6E 75 6D 62 65 72 ter.......number
015D20: 70 6F 73 09 09 77 6F 72 64 09 6E 75 6D 62 65 72 pos..word.number
015D30: 62 75 66 66 65 72 0D 0A 2E 6E 75 6D 62 65 72 62 buffer...numberb
015D40: 75 66 66 65 72 09 09 62 79 74 65 20 32 35 35 0D uffer..byte 255.
015D50: 0A 09 09 09 64 65 66 73 20 31 35 0D 0A 2E 63 68 ....defs 15...ch
015D60: 61 72 61 63 74 65 72 6E 6F 20 20 20 20 09 62 79 aracterno .by
015D70: 74 65 20 30 0D 0A 2E 68 61 76 65 6C 6F 61 64 65 te 0...haveloade
015D80: 64 09 09 62 79 74 65 20 30 0D 0A 2E 66 6F 72 65 d..byte 0...fore
015D90: 63 6F 6C 6F 75 72 09 09 62 79 74 65 20 30 0D 0A colour..byte 0..
015DA0: 2E 62 61 63 6B 63 6F 6C 6F 75 72 09 09 62 79 74 .backcolour..byt
015DB0: 65 20 30 0D 0A 2E 61 6E 73 69 77 61 73 66 69 72 e 0...ansiwasfir
015DC0: 73 74 09 09 62 79 74 65 20 30 0D 0A 2E 66 6F 6E st..byte 0...fon
015DD0: 74 73 65 74 09 09 62 79 74 65 20 30 0D 0A 2E 63 tset..byte 0...c
015DE0: 75 72 73 6F 72 5F 70 6F 73 09 09 77 6F 72 64 20 ursor_pos..word
015DF0: 30 0D 0A 2E 41 4E 53 49 53 54 4F 52 45 09 09 44 0...ANSISTORE..D
015E00: 45 46 53 20 32 35 0D 0A 2E 52 45 53 45 54 5F 41 EFS 25...RESET_A
015E10: 4E 53 49 5F 42 55 46 09 09 44 45 46 53 20 36 0D NSI_BUF..DEFS 6.
015E20: 0A 2E 43 59 43 54 49 4D 45 4F 55 54 09 09 42 59 ..CYCTIMEOUT..BY
015E30: 54 45 20 32 30 0D 0A 0D 0A 0D 0A 0D 0A 1A 20 09 TE 20......... .
015E40: 44 41 41 20 0D 0A 20 20 20 20 20 20 09 43 41 4C DAA .. .CAL
015E50: 4C 20 20 57 52 49 54 45 5F 43 48 41 52 0D 0A 20 L WRITE_CHAR..
015E60: 20 20 20 20 20 09 52 45 54 20 20 0D 0A 0D 0A 0D .RET .....
015E70: 0A 0D 0A 1A 00 00 00 00 00 00 00 00 00 00 00 00 ................
015E80: 20 45 51 55 20 20 20 20 20 54 49 4D 45 4C 49 4E EQU TIMELIN
015E90: 45 2B 31 32 0D 0A 0D 0A 2E 43 4F 4C 4F 55 52 53 E+12.....COLOURS
015EA0: 41 56 45 0D 0A 09 09 09 57 4F 52 44 20 4A 48 69 AVE.....WORD JHi
015EB0: 67 68 49 6E 74 0D 0A 09 09 09 57 4F 52 44 20 62 ghInt.....WORD b
015EC0: 61 63 6B 63 6F 6C 6F 75 72 0D 0A 09 09 09 57 4F ackcolour.....WO
015ED0: 52 44 20 66 6F 72 65 63 6F 6C 6F 75 72 0D 0A 09 RD forecolour...
015EE0: 09 09 57 4F 52 44 20 4A 41 4E 53 49 0D 0A 09 09 ..WORD JANSI....
015EF0: 09 57 4F 52 44 20 4A 50 52 49 4E 54 0D 0A 09 09 .WORD JPRINT....
015F00: 09 57 4F 52 44 20 4A 67 65 74 63 68 61 72 61 63 .WORD Jgetcharac
015F10: 74 65 72 0D 0A 0D 0A 0D 0A 2E 6E 75 6D 62 65 72 ter.......number
015F20: 70 6F 73 09 09 77 6F 72 64 09 6E 75 6D 62 65 72 pos..word.number
015F30: 62 75 66 66 65 72 0D 0A 2E 6E 75 6D 62 65 72 62 buffer...numberb
015F40: 75 66 66 65 72 09 09 62 79 74 65 20 32 35 35 0D uffer..byte 255.
015F50: 0A 09 09 09 64 65 66 73 20 31 35 0D 0A 2E 63 68 ....defs 15...ch
015F60: 61 72 61 63 74 65 72 6E 6F 20 20 20 20 09 62 79 aracterno .by
015F70: 74 65 20 30 0D 0A 2E 68 61 76 65 6C 6F 61 64 65 te 0...haveloade
015F80: 64 09 09 62 79 74 65 20 30 0D 0A 2E 66 6F 72 65 d..byte 0...fore
015F90: 63 6F 6C 6F 75 72 09 09 62 79 74 65 20 30 0D 0A colour..byte 0..
015FA0: 2E 62 61 63 6B 63 6F 6C 6F 75 72 09 09 62 79 74 .backcolour..byt
015FB0: 65 20 30 0D 0A 2E 61 6E 73 69 77 61 73 66 69 72 e 0...ansiwasfir
015FC0: 73 74 09 09 62 79 74 65 20 30 0D 0A 2E 66 6F 6E st..byte 0...fon
015FD0: 74 73 65 74 09 09 62 79 74 65 20 30 0D 0A 2E 63 tset..byte 0...c
015FE0: 75 72 73 6F 72 5F 70 6F 73 09 09 77 6F 72 64 20 ursor_pos..word
015FF0: 30 0D 0A 2E 41 4E 53 49 53 54 4F 52 45 09 09 44 0...ANSISTORE..D
016000: 31 20 70 72 69 6E 74 20 22 46 69 6C 65 20 53 79 1 print "File Sy
016010: 73 74 65 6D 22 0D 0A 2E 43 61 74 5F 64 69 73 63 stem"...Cat_disc
016020: 0D 0A 09 50 55 53 48 20 49 58 0D 0A 09 4C 44 20 ...PUSH IX...LD
016030: 48 4C 2C 28 52 4C 5F 4F 46 46 53 45 54 29 0D 0A HL,(RL_OFFSET)..
016040: 09 43 41 4C 4C 20 26 42 43 30 35 09 09 09 3B 53 .CALL &BC05...;S
016050: 45 54 20 4F 46 46 53 45 54 0D 0A 09 4C 44 20 49 ET OFFSET...LD I
016060: 58 2C 43 41 54 57 49 4E 44 4F 57 0D 0A 09 43 41 X,CATWINDOW...CA
016070: 4C 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 4C 44 20 LL MBORDER...LD
016080: 48 2C 31 3A 4C 44 20 44 2C 37 38 3A 4C 44 20 4C H,1:LD D,78:LD L
016090: 2C 32 3A 4C 44 20 45 2C 32 30 0D 0A 09 43 41 4C ,2:LD E,20...CAL
0160A0: 4C 20 26 42 42 36 36 09 09 09 3B 54 58 54 20 57 L &BB66...;TXT W
0160B0: 49 4E 20 45 4E 41 42 4C 45 0D 0A 09 4C 44 20 48 IN ENABLE...LD H
0160C0: 4C 2C 26 31 30 31 0D 0A 09 43 41 4C 4C 20 26 42 L,&101...CALL &B
0160D0: 42 37 35 09 09 09 3B 4C 4F 43 41 54 45 0D 0A 09 B75...;LOCATE...
0160E0: 4C 44 20 44 45 2C 41 6D 73 64 6F 73 0D 0A 09 43 LD DE,Amsdos...C
0160F0: 41 4C 4C 20 43 41 53 5F 43 41 54 41 4C 4F 55 47 ALL CAS_CATALOUG
016100: 45 0D 0A 09 50 4F 50 20 49 58 0D 0A 09 52 45 54 E...POP IX...RET
016110: 0D 0A 2E 43 61 74 57 69 6E 64 6F 77 0D 0A 42 59 ...CatWindow..BY
016120: 54 45 20 30 2C 31 2C 32 31 2C 38 30 0D 0A 3B 2D TE 0,1,21,80..;-
016130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016150: 0D 0A 0D 0A 2E 43 41 54 5F 43 4C 45 41 52 0D 0A .....CAT_CLEAR..
016160: 09 50 55 53 48 20 49 58 0D 0A 09 4C 44 20 49 58 .PUSH IX...LD IX
016170: 2C 43 41 54 57 49 4E 44 4F 57 0D 0A 09 43 41 4C ,CATWINDOW...CAL
016180: 4C 20 57 49 4E 44 4F 57 5F 57 49 50 45 0D 0A 09 L WINDOW_WIPE...
016190: 50 4F 50 20 49 58 0D 0A 09 52 45 54 0D 0A 3B 2D POP IX...RET..;-
0161A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0161B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0161C0: 2D 0D 0A 0D 0A 2E 43 61 74 61 6C 6F 75 67 65 0D -.....Catalouge.
0161D0: 0A 09 43 41 4C 4C 20 43 61 74 5F 64 69 73 63 0D ..CALL Cat_disc.
0161E0: 0A 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 5F 43 ..CALL KM_WAIT_C
0161F0: 48 41 52 0D 0A 09 43 41 4C 4C 20 43 41 54 5F 43 HAR...CALL CAT_C
016200: 4C 45 41 52 0D 0A 09 4C 44 20 41 2C 26 46 46 0D LEAR...LD A,&FF.
016210: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
016220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016230: 2D 2D 2D 0D 0A 2E 44 69 73 63 5F 57 69 6E 64 6F ---...Disc_Windo
016240: 77 0D 0A 09 4C 44 20 48 4C 2C 28 52 4C 5F 4F 46 w...LD HL,(RL_OF
016250: 46 53 45 54 29 0D 0A 09 43 41 4C 4C 20 26 42 43 FSET)...CALL &BC
016260: 30 35 09 09 09 3B 53 45 54 20 4F 46 46 53 45 54 05...;SET OFFSET
016270: 0D 0A 09 4C 44 20 48 2C 30 3A 4C 44 20 44 2C 37 ...LD H,0:LD D,7
016280: 39 3A 4C 44 20 4C 2C 32 34 3A 4C 44 20 45 2C 32 9:LD L,24:LD E,2
016290: 34 0D 0A 09 4A 50 20 26 42 42 36 36 09 09 09 3B 4...JP &BB66...;
0162A0: 54 58 54 20 57 49 4E 20 45 4E 41 42 4C 45 0D 0A TXT WIN ENABLE..
0162B0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
0162C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -------------...
0162D0: 0A 2E 44 4F 53 0D 0A 20 20 20 20 20 20 20 20 4C ..DOS.. L
0162E0: 44 20 49 58 2C 44 4F 53 57 49 4E 0D 0A 09 43 41 D IX,DOSWIN...CA
0162F0: 4C 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 43 41 4C LL MBORDER...CAL
016300: 4C 20 4D 50 52 49 4E 54 0D 0A 2E 44 4F 53 53 54 L MPRINT...DOSST
016310: 20 20 0D 0A 09 4C 44 20 48 4C 2C 34 36 2A 32 35 ...LD HL,46*25
016320: 36 2B 34 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 6+4...LD (Y),HL.
016330: 0A 09 4C 44 20 48 4C 2C 44 52 49 56 45 41 0D 0A ..LD HL,DRIVEA..
016340: 09 4C 44 20 41 2C 28 44 52 49 56 45 53 29 0D 0A .LD A,(DRIVES)..
016350: 20 20 20 20 20 20 20 20 41 44 44 20 4C 0D 0A 09 ADD L...
016360: 4C 44 20 4C 2C 41 0D 0A 09 43 41 4C 4C 20 54 45 LD L,A...CALL TE
016370: 58 54 0D 0A 0D 0A 09 4C 44 20 49 58 2C 44 4F 53 XT.....LD IX,DOS
016380: 57 49 4E 0D 0A 09 4C 44 20 41 2C 28 49 58 2B 31 WIN...LD A,(IX+1
016390: 30 29 0D 0A 09 4C 44 20 28 4D 43 55 52 59 29 2C 0)...LD (MCURY),
0163A0: 41 0D 0A 09 43 41 4C 4C 20 4D 45 4E 55 5F 43 55 A...CALL MENU_CU
0163B0: 52 53 4F 52 0D 0A 09 43 50 20 26 46 43 0D 0A 09 RSOR...CP &FC...
0163C0: 4A 50 20 5A 2C 44 4F 53 45 58 49 54 0D 0A 09 50 JP Z,DOSEXIT...P
0163D0: 55 53 48 20 48 4C 0D 0A 09 43 41 4C 4C 20 44 49 USH HL...CALL DI
0163E0: 53 43 5F 57 49 4E 44 4F 57 0D 0A 09 50 4F 50 20 SC_WINDOW...POP
0163F0: 48 4C 0D 0A 09 4A 50 20 28 48 4C 29 0D 0A 0D 0A HL...JP (HL)....
016400: 2E 44 4F 53 45 58 49 54 0D 0A 09 4C 44 20 49 58 .DOSEXIT...LD IX
016410: 2C 44 4F 53 57 49 4E 0D 0A 09 43 41 4C 4C 20 57 ,DOSWIN...CALL W
016420: 49 4E 44 4F 57 5F 57 49 50 45 0D 0A 09 4C 44 20 INDOW_WIPE...LD
016430: 49 58 2C 46 49 4C 45 53 4D 45 4E 55 0D 0A 09 4C IX,FILESMENU...L
016440: 44 20 41 2C 26 46 46 0D 0A 09 52 45 54 0D 0A 3B D A,&FF...RET..;
016450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016460: 2D 2D 2D 2D 0D 0A 0D 0A 0D 0A 2E 44 52 49 56 45 ----.......DRIVE
016470: 09 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 52 49 56 ......LD A,(DRIV
016480: 45 53 29 0D 0A 09 43 50 4C 0D 0A 09 41 4E 44 20 ES)...CPL...AND
016490: 31 09 0D 0A 09 43 41 4C 4C 20 47 45 54 53 54 0D 1....CALL GETST.
0164A0: 0A 20 20 20 20 20 20 20 20 4A 50 20 4E 43 2C 44 . JP NC,D
0164B0: 4F 53 53 54 0D 0A 09 42 49 54 20 35 2C 41 0D 0A OSST...BIT 5,A..
0164C0: 09 4A 50 20 5A 2C 44 4F 53 53 54 0D 0A 0D 0A 20 .JP Z,DOSST....
0164D0: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 44 52 49 LD HL,DRI
0164E0: 56 45 41 0D 0A 09 4C 44 20 41 2C 28 44 52 49 56 VEA...LD A,(DRIV
0164F0: 45 53 29 0D 0A 09 43 50 4C 0D 0A 09 41 4E 44 20 ES)...CPL...AND
016500: 31 09 0D 0A 09 4C 44 20 28 44 52 49 56 45 53 29 1....LD (DRIVES)
016510: 2C 41 0D 0A 09 41 44 44 20 4C 0D 0A 09 4C 44 20 ,A...ADD L...LD
016520: 4C 2C 41 0D 0A 09 58 4F 52 20 41 0D 0A 09 43 41 L,A...XOR A...CA
016530: 4C 4C 20 44 4F 53 43 41 4C 4C 09 3B 53 45 54 20 LL DOSCALL.;SET
016540: 54 4F 20 44 52 49 56 45 20 41 20 4F 52 20 42 0D TO DRIVE A OR B.
016550: 0A 09 4A 50 20 44 4F 53 53 54 0D 0A 0D 0A 2E 47 ..JP DOSST.....G
016560: 45 54 53 54 0D 0A 09 52 53 54 20 33 2C 47 45 54 ETST...RST 3,GET
016570: 44 52 53 54 41 54 0D 0A 09 52 45 54 0D 0A 0D 0A DRSTAT...RET....
016580: 0D 0A 0D 0A 2E 45 52 41 53 45 0D 0A 09 43 41 4C .....ERASE...CAL
016590: 4C 20 4F 50 45 4E 5F 46 49 4C 45 0D 0A 09 43 50 L OPEN_FILE...CP
0165A0: 20 26 46 43 0D 0A 09 4A 50 20 5A 2C 45 52 41 53 &FC...JP Z,ERAS
0165B0: 45 58 58 0D 0A 09 4C 44 20 41 2C 42 0D 0A 09 4C EXX...LD A,B...L
0165C0: 44 20 28 45 52 41 4C 45 4E 29 2C 41 0D 0A 09 43 D (ERALEN),A...C
0165D0: 41 4C 4C 20 57 49 4E 44 4F 57 5F 57 49 50 45 0D ALL WINDOW_WIPE.
0165E0: 0A 09 4C 44 20 49 58 2C 45 52 41 49 58 0D 0A 09 ..LD IX,ERAIX...
0165F0: 4C 44 20 41 2C 31 0D 0A 20 20 20 20 20 20 20 20 LD A,1..
016600: 4C 44 20 48 4C 2C 45 52 41 53 54 52 0D 0A 09 43 LD HL,ERASTR...C
016610: 41 4C 4C 20 44 4F 53 43 41 4C 4C 0D 0A 09 4A 50 ALL DOSCALL...JP
016620: 20 44 4F 53 53 54 0D 0A 2E 45 52 41 53 45 58 58 DOSST...ERASEXX
016630: 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 57 ...CALL WINDOW_W
016640: 49 50 45 0D 0A 09 4A 50 20 44 4F 53 53 54 0D 0A IPE...JP DOSST..
016650: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
016660: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 0D 0A 2E 52 --------.......R
016670: 45 4E 41 4D 45 5F 42 4F 52 0D 0A 09 42 59 54 45 ENAME_BOR...BYTE
016680: 20 32 34 2C 32 31 2C 34 2C 33 30 0D 0A 2E 52 45 24,21,4,30...RE
016690: 4E 41 4D 45 0D 0A 09 4C 44 20 49 58 2C 52 45 4E NAME...LD IX,REN
0166A0: 41 4D 45 5F 42 4F 52 0D 0A 09 43 41 4C 4C 20 4D AME_BOR...CALL M
0166B0: 42 4F 52 44 45 52 0D 0A 0D 0A 09 4C 44 20 48 4C BORDER.....LD HL
0166C0: 2C 32 35 2A 32 35 36 2B 32 32 0D 0A 09 4C 44 20 ,25*256+22...LD
0166D0: 28 59 29 2C 48 4C 0D 0A 09 4C 44 20 44 45 2C 4E (Y),HL...LD DE,N
0166E0: 41 4D 45 31 0D 0A 09 4C 44 20 48 4C 2C 4E 45 57 AME1...LD HL,NEW
0166F0: 4E 41 4D 45 0D 0A 09 43 41 4C 4C 20 52 45 4E 41 NAME...CALL RENA
016700: 4D 45 49 4E 50 0D 0A 09 43 50 20 26 46 43 0D 0A MEINP...CP &FC..
016710: 09 4A 50 20 5A 2C 52 45 4E 58 58 0D 0A 09 4C 44 .JP Z,RENXX...LD
016720: 20 41 2C 42 0D 0A 09 4C 44 20 28 4E 41 4D 45 31 A,B...LD (NAME1
016730: 4C 45 4E 29 2C 41 0D 0A 0D 0A 09 4C 44 20 48 4C LEN),A.....LD HL
016740: 2C 32 35 2A 32 35 36 2B 32 33 0D 0A 09 4C 44 20 ,25*256+23...LD
016750: 28 59 29 2C 48 4C 0D 0A 09 4C 44 20 44 45 2C 4E (Y),HL...LD DE,N
016760: 41 4D 45 32 0D 0A 09 4C 44 20 48 4C 2C 4F 4C 44 AME2...LD HL,OLD
016770: 4E 41 4D 45 0D 0A 09 43 41 4C 4C 20 52 45 4E 41 NAME...CALL RENA
016780: 4D 45 49 4E 50 0D 0A 09 43 50 20 26 46 43 0D 0A MEINP...CP &FC..
016790: 09 4A 50 20 5A 2C 52 45 4E 58 58 0D 0A 09 4C 44 .JP Z,RENXX...LD
0167A0: 20 41 2C 42 0D 0A 09 4C 44 20 28 4E 41 4D 45 32 A,B...LD (NAME2
0167B0: 4C 45 4E 29 2C 41 0D 0A 0D 0A 09 43 41 4C 4C 20 LEN),A.....CALL
0167C0: 57 49 4E 44 4F 57 5F 57 49 50 45 0D 0A 09 4C 44 WINDOW_WIPE...LD
0167D0: 20 49 58 2C 52 45 4E 49 58 5F 4E 41 4D 45 32 0D IX,RENIX_NAME2.
0167E0: 0A 09 4C 44 20 41 2C 32 0D 0A 09 4C 44 20 48 4C ..LD A,2...LD HL
0167F0: 2C 52 45 4E 53 54 52 0D 0A 09 43 41 4C 4C 20 44 ,RENSTR...CALL D
016800: 4F 53 43 41 4C 4C 0D 0A 09 4A 50 20 44 4F 53 53 OSCALL...JP DOSS
016810: 54 0D 0A 0D 0A 2E 52 45 4E 41 4D 45 49 4E 50 0D T.....RENAMEINP.
016820: 0A 09 50 55 53 48 20 44 45 0D 0A 09 43 41 4C 4C ..PUSH DE...CALL
016830: 20 54 45 58 54 0D 0A 09 50 4F 50 20 44 45 0D 0A TEXT...POP DE..
016840: 09 4C 44 20 42 2C 31 36 0D 0A 09 43 41 4C 4C 20 .LD B,16...CALL
016850: 4B 45 59 49 4E 50 0D 0A 09 52 45 54 0D 0A 2E 52 KEYINP...RET...R
016860: 45 4E 58 58 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 ENXX...CALL WIND
016870: 4F 57 5F 57 49 50 45 0D 0A 09 4A 50 20 44 4F 53 OW_WIPE...JP DOS
016880: 53 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ST..;-----------
016890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 44 4F 53 ----------...DOS
0168A0: 43 41 4C 4C 0D 0A 09 50 55 53 48 20 41 46 0D 0A CALL...PUSH AF..
0168B0: 09 43 41 4C 4C 20 4B 4C 5F 46 49 4E 44 5F 43 4F .CALL KL_FIND_CO
0168C0: 4D 4D 41 4E 44 0D 0A 09 4A 52 20 4E 43 2C 44 4F MMAND...JR NC,DO
0168D0: 53 42 45 45 50 0D 0A 09 4C 44 20 41 2C 43 0D 0A SBEEP...LD A,C..
0168E0: 09 4C 44 20 28 52 53 58 52 4F 4D 29 2C 41 0D 0A .LD (RSXROM),A..
0168F0: 09 4C 44 20 28 52 53 58 43 41 4C 4C 29 2C 48 4C .LD (RSXCALL),HL
016900: 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 52 53 54 20 ...POP AF...RST
016910: 26 31 38 2C 52 53 58 43 41 4C 4C 0D 0A 09 52 45 &18,RSXCALL...RE
016920: 54 0D 0A 2E 44 4F 53 42 45 45 50 0D 0A 09 50 4F T...DOSBEEP...PO
016930: 50 20 41 46 0D 0A 09 4C 44 20 41 2C 37 0D 0A 09 P AF...LD A,7...
016940: 4A 50 20 26 42 42 35 41 0D 0A 2E 4B 4C 5F 46 49 JP &BB5A...KL_FI
016950: 4E 44 5F 43 4F 4D 4D 41 4E 44 09 45 51 55 09 26 ND_COMMAND.EQU.&
016960: 42 43 44 34 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D BCD4....;-------
016970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
016990: 0A 3B 09 50 55 4C 4C 20 44 4F 57 4E 20 57 49 4E .;.PULL DOWN WIN
0169A0: 44 4F 57 2F 41 53 4B 20 46 49 4C 45 4E 41 4D 45 DOW/ASK FILENAME
0169B0: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
0169C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0169D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4F 50 45 4E ---------...OPEN
0169E0: 5F 46 49 4C 45 0D 0A 09 58 4F 52 20 41 0D 0A 2E _FILE...XOR A...
0169F0: 4F 46 33 20 20 20 20 4C 44 20 28 4F 50 45 4E 46 OF3 LD (OPENF
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 4E E5 13 00 C1 02 00 00 00 02 ......N.........
016A20: 13 00 C2 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A30: 13 00 C4 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A40: 13 00 C6 02 00 00 00 02 13 00 C7 02 00 00 00 02 ................
016A50: 13 00 C8 02 00 00 00 02 13 00 C9 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 49 4C 45 5F 46 29 2C 41 09 3B 20 53 65 74 20 66 ILE_F),A.; Set f
016B10: 6C 61 67 0D 0A 09 4C 44 20 49 58 2C 4F 50 45 4E lag...LD IX,OPEN
016B20: 46 49 4C 45 4E 41 4D 45 09 3B 20 50 72 69 6E 74 FILENAME.; Print
016B30: 20 62 6F 72 64 65 72 0D 0A 09 43 41 4C 4C 20 4D border...CALL M
016B40: 42 4F 52 44 45 52 0D 0A 0D 0A 20 20 20 20 20 20 BORDER....
016B50: 20 20 4C 44 20 48 4C 2C 32 36 2A 32 35 36 2B 32 LD HL,26*256+2
016B60: 33 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 3...LD (Y),HL...
016B70: 4C 44 20 48 4C 2C 46 49 4C 45 4E 41 4D 45 0D 0A LD HL,FILENAME..
016B80: 09 43 41 4C 4C 20 54 45 58 54 09 09 3B 20 50 72 .CALL TEXT..; Pr
016B90: 69 6E 74 20 66 69 6C 65 6E 61 6D 65 0D 0A 0D 0A int filename....
016BA0: 2E 4F 46 31 20 20 20 09 4C 44 20 44 45 2C 4E 41 .OF1 .LD DE,NA
016BB0: 4D 45 0D 0A 20 20 20 20 20 20 09 4C 44 20 42 2C ME.. .LD B,
016BC0: 31 36 0D 0A 20 20 20 20 20 20 09 43 41 4C 4C 20 16.. .CALL
016BD0: 4B 45 59 49 4E 50 20 09 09 3B 20 49 6E 70 75 74 KEYINP ..; Input
016BE0: 0D 0A 0D 0A 09 43 50 20 26 46 43 0D 0A 09 4A 52 .....CP &FC...JR
016BF0: 20 5A 2C 4F 46 32 09 09 3B 20 45 73 63 61 70 65 Z,OF2..; Escape
016C00: 20 0D 0A 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 .... LD
016C10: 4C 2C 41 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 4F L,A...LD A,C...O
016C20: 52 20 41 0D 0A 20 20 20 20 20 20 20 20 4A 50 20 R A.. JP
016C30: 5A 2C 4F 46 43 41 54 09 09 3B 20 49 66 20 6E 6F Z,OFCAT..; If no
016C40: 20 6C 65 6E 67 74 68 20 74 68 65 6E 20 43 41 54 length then CAT
016C50: 0D 0A 09 4C 44 20 41 2C 4C 0D 0A 2E 4F 46 32 20 ...LD A,L...OF2
016C60: 20 09 4C 44 20 48 4C 2C 4E 41 4D 45 0D 0A 09 4C .LD HL,NAME...L
016C70: 44 20 44 45 2C 41 4D 53 44 4F 53 09 09 3B 20 52 D DE,AMSDOS..; R
016C80: 65 74 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4F 46 43 et...RET.....OFC
016C90: 41 54 09 43 41 4C 4C 20 43 41 54 5F 44 49 53 43 AT.CALL CAT_DISC
016CA0: 0D 0A 09 4C 44 20 41 2C 26 46 46 0D 0A 20 20 20 ...LD A,&FF..
016CB0: 20 20 20 20 20 4A 52 20 4F 46 33 09 09 09 3B 20 JR OF3...;
016CC0: 43 61 74 2F 73 65 74 20 66 6C 61 67 20 74 6F 20 Cat/set flag to
016CD0: 26 46 46 0D 0A 09 0D 0A 2E 4F 50 45 4E 46 49 4C &FF......OPENFIL
016CE0: 45 43 4C 52 0D 0A 09 4C 44 20 41 2C 28 4F 50 45 ECLR...LD A,(OPE
016CF0: 4E 46 49 4C 45 5F 46 29 0D 0A 09 4F 52 20 41 0D NFILE_F)...OR A.
016D00: 0A 09 4A 50 20 4E 5A 2C 57 49 4E 44 4F 57 5F 50 ..JP NZ,WINDOW_P
016D10: 41 47 45 09 3B 20 57 69 70 65 20 70 61 67 65 0D AGE.; Wipe page.
016D20: 0A 09 4C 44 20 49 58 2C 4F 50 45 4E 46 49 4C 45 ..LD IX,OPENFILE
016D30: 4E 41 4D 45 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 NAME...CALL WIND
016D40: 4F 57 5F 57 49 50 45 0D 0A 09 52 45 54 0D 0A 0D OW_WIPE...RET...
016D50: 0A 2E 4F 50 45 4E 46 49 4C 45 4E 41 4D 45 0D 0A ..OPENFILENAME..
016D60: 42 59 54 45 20 32 34 2C 32 32 0D 0A 42 59 54 45 BYTE 24,22..BYTE
016D70: 20 33 0D 0A 42 59 54 45 20 33 30 0D 0A 2E 4F 50 3..BYTE 30...OP
016D80: 45 4E 46 49 4C 45 5F 46 0D 0A 42 59 54 45 20 30 ENFILE_F..BYTE 0
016D90: 0D 0A 0D 0A 2E 4F 50 45 4E 5F 46 49 4C 45 5F 42 .....OPEN_FILE_B
016DA0: 4F 52 44 0D 0A 09 4C 44 20 49 58 2C 46 49 4C 45 ORD...LD IX,FILE
016DB0: 5F 42 4F 52 44 45 52 0D 0A 20 20 20 20 20 20 20 _BORDER..
016DC0: 20 43 41 4C 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 CALL MBORDER...
016DD0: 43 41 4C 4C 20 4D 50 52 49 4E 54 09 09 09 3B 61 CALL MPRINT...;a
016DE0: 73 6B 20 66 69 6C 65 6E 61 6D 65 0D 0A 20 20 20 sk filename..
016DF0: 20 20 20 20 20 4C 44 20 48 2C 33 36 0D 0A 20 20 LD H,36..
016E00: 20 20 20 09 4C 44 20 4C 2C 32 33 0D 0A 09 4C 44 .LD L,23...LD
016E10: 20 28 59 29 2C 48 4C 0D 0A 20 20 20 09 4C 44 20 (Y),HL.. .LD
016E20: 44 45 2C 4E 41 4D 45 0D 0A 20 20 20 20 20 20 09 DE,NAME.. .
016E30: 4C 44 20 42 2C 31 36 0D 0A 20 20 20 20 20 20 09 LD B,16.. .
016E40: 43 41 4C 4C 20 4B 45 59 49 4E 50 20 09 09 3B 69 CALL KEYINP ..;i
016E50: 6E 70 75 74 0D 0A 20 20 20 20 20 20 09 4C 44 20 nput.. .LD
016E60: 48 4C 2C 4E 41 4D 45 0D 0A 09 4C 44 20 44 45 2C HL,NAME...LD DE,
016E70: 41 4D 53 44 4F 53 0D 0A 09 52 45 54 0D 0A 0D 0A AMSDOS...RET....
016E80: 65 74 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 4F 46 43 et...RET.....OFC
016E90: 41 54 09 43 41 4C 4C 20 43 41 54 5F 44 49 53 43 AT.CALL CAT_DISC
016EA0: 0D 0A 09 4C 44 20 41 2C 26 46 46 0D 0A 20 20 20 ...LD A,&FF..
016EB0: 20 20 20 20 20 4A 52 20 4F 46 33 09 09 09 3B 20 JR OF3...;
016EC0: 43 61 74 2F 73 65 74 20 66 6C 61 67 20 74 6F 20 Cat/set flag to
016ED0: 26 46 46 0D 0A 09 0D 0A 2E 4F 50 45 4E 46 49 4C &FF......OPENFIL
016EE0: 45 43 4C 52 0D 0A 09 4C 44 20 41 2C 28 4F 50 45 ECLR...LD A,(OPE
016EF0: 4E 46 49 4C 45 5F 46 29 0D 0A 09 4F 52 20 41 0D NFILE_F)...OR A.
016F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0170A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0170B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0170C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0170D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0170E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0170F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
017100: 0D 0A 31 20 70 72 69 6E 74 20 22 53 75 62 20 72 ..1 print "Sub r
017110: 6F 75 74 69 6E 65 73 22 0D 0A 0D 0A 3B 2D 2D 2D outines"....;---
017120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 ------------..;.
017140: 56 69 65 77 20 61 6E 20 61 73 63 69 69 20 66 69 View an ascii fi
017150: 6C 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D le..;-----------
017160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017170: 2D 2D 2D 2D 2D 0D 0A 2E 56 49 45 57 5F 46 49 4C -----...VIEW_FIL
017180: 45 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 49 4E 5F E...CALL CAS_IN_
017190: 41 42 41 4E 44 4F 4E 0D 0A 20 20 20 20 20 20 20 ABANDON..
0171A0: 20 43 41 4C 4C 20 44 49 53 43 5F 57 49 4E 44 4F CALL DISC_WINDO
0171B0: 57 0D 0A 09 43 41 4C 4C 20 4F 50 45 4E 5F 46 49 W...CALL OPEN_FI
0171C0: 4C 45 09 09 09 3B 20 47 65 74 20 66 69 6C 65 6E LE...; Get filen
0171D0: 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 43 50 20 ame.. CP
0171E0: 26 46 43 0D 0A 09 4A 50 20 5A 2C 56 69 65 77 46 &FC...JP Z,ViewF
0171F0: 69 6C 65 45 72 72 6F 72 0D 0A 09 43 41 4C 4C 20 ileError...CALL
017200: 43 41 53 5F 49 4E 5F 4F 50 45 4E 09 09 3B 20 4F CAS_IN_OPEN..; O
017210: 70 65 6E 20 69 6E 20 66 69 6C 65 0D 0A 09 4A 50 pen in file...JP
017220: 20 4E 43 2C 56 69 65 77 46 69 6C 65 45 72 72 6F NC,ViewFileErro
017230: 72 0D 0A 20 20 20 20 20 20 20 20 43 50 20 26 31 r.. CP &1
017240: 36 0D 0A 09 4A 50 20 4E 5A 2C 56 69 65 77 46 69 6...JP NZ,ViewFi
017250: 6C 65 45 72 72 6F 72 0D 0A 0D 0A 2E 56 49 45 57 leError.....VIEW
017260: 46 30 0D 0A 09 43 41 4C 4C 20 43 4C 53 5F 53 43 F0...CALL CLS_SC
017270: 52 45 45 4E 09 09 09 3B 20 43 6C 65 61 72 20 73 REEN...; Clear s
017280: 63 72 65 65 6E 0D 0A 09 43 41 4C 4C 20 41 4C 4C creen...CALL ALL
017290: 4F 46 46 09 09 09 3B 20 54 75 72 6E 20 6F 66 66 OFF...; Turn off
0172A0: 20 61 6C 6C 20 61 6E 73 69 0D 0A 0D 0A 2E 56 49 all ansi.....VI
0172B0: 45 57 46 31 09 20 20 20 20 0D 0A 09 43 41 4C 4C EWF1. ...CALL
0172C0: 20 43 41 53 5F 49 4E 5F 43 48 41 52 09 09 3B 20 CAS_IN_CHAR..;
0172D0: 47 65 74 20 63 68 61 72 61 63 74 65 72 0D 0A 09 Get character...
0172E0: 4A 52 20 4E 43 2C 45 4E 44 5F 56 49 45 57 0D 0A JR NC,END_VIEW..
0172F0: 0D 0A 09 50 55 53 48 20 41 46 09 09 09 09 3B 20 ...PUSH AF....;
017300: 50 61 75 73 65 20 66 6F 72 20 61 20 62 69 74 0D Pause for a bit.
017310: 0A 09 4C 44 20 42 43 2C 32 30 30 0D 0A 56 50 42 ..LD BC,200..VPB
017320: 43 20 20 20 20 44 45 43 20 42 43 0D 0A 09 4C 44 C DEC BC...LD
017330: 20 41 2C 42 09 09 09 0D 0A 09 4F 52 20 43 0D 0A A,B......OR C..
017340: 09 4A 52 20 4E 5A 2C 56 50 42 43 0D 0A 09 50 4F .JR NZ,VPBC...PO
017350: 50 20 41 46 0D 0A 0D 0A 09 70 75 73 68 20 61 66 P AF.....push af
017360: 0D 0A 0D 0A 09 43 41 4C 4C 20 53 43 52 45 45 4E .....CALL SCREEN
017370: 57 52 49 54 45 09 09 0D 0A 09 70 6F 70 20 61 66 WRITE.....pop af
017380: 0D 0A 09 63 61 6C 6C 20 6F 75 74 70 75 74 0D 0A ...call output..
017390: 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 52 45 41 44 5F ...CALL KM_READ_
0173A0: 43 48 41 52 09 09 3B 20 54 65 73 74 20 6B 65 79 CHAR..; Test key
0173B0: 0D 0A 09 4A 52 20 4E 43 2C 56 49 45 57 46 31 09 ...JR NC,VIEWF1.
0173C0: 09 09 3B 20 4E 6F 20 6B 65 79 20 70 72 65 73 73 ..; No key press
0173D0: 65 64 20 74 68 65 6E 20 72 65 61 64 0D 0A 0D 0A ed then read....
0173E0: 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 5F 43 48 .CALL KM_WAIT_CH
0173F0: 41 52 09 09 3B 20 2E 2E 77 61 69 74 20 75 6E 74 AR..; ..wait unt
017400: 69 6C 6C 20 6E 65 78 74 20 6B 65 79 0D 0A 09 43 ill next key...C
017410: 50 20 26 46 43 0D 0A 09 4A 52 20 4E 5A 2C 56 49 P &FC...JR NZ,VI
017420: 45 57 46 31 09 09 09 3B 20 52 65 61 64 20 63 68 EWF1...; Read ch
017430: 61 72 0D 0A 0D 0A 2E 45 4E 44 5F 56 49 45 57 09 ar.....END_VIEW.
017440: 09 09 09 3B 20 49 66 20 65 73 63 20 74 68 65 6E ...; If esc then
017450: 20 65 78 69 74 0D 0A 09 43 41 4C 4C 20 43 41 53 exit...CALL CAS
017460: 5F 49 4E 5F 43 4C 4F 53 45 09 09 3B 20 43 6C 6F _IN_CLOSE..; Clo
017470: 73 65 20 66 69 6C 65 0D 0A 09 4A 50 20 4E 43 2C se file...JP NC,
017480: 56 69 65 77 46 69 6C 65 45 72 72 6F 72 0D 0A 20 ViewFileError..
017490: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 4E 59 32 CALL ANY2
0174A0: 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 5F ...CALL KM_WAIT_
0174B0: 43 48 41 52 0D 0A 2E 56 69 65 77 46 69 6C 65 45 CHAR...ViewFileE
0174C0: 72 72 6F 72 0D 0A 20 09 43 41 4C 4C 20 57 49 4E rror.. .CALL WIN
0174D0: 44 4F 57 5F 50 41 47 45 09 09 3B 70 72 69 6E 74 DOW_PAGE..;print
0174E0: 20 70 61 67 65 0D 0A 09 43 41 4C 4C 20 50 52 49 page...CALL PRI
0174F0: 4E 54 5F 44 41 54 41 5F 43 55 52 53 4F 52 0D 0A NT_DATA_CURSOR..
017500: 09 4C 44 20 41 2C 26 46 46 0D 0A 09 52 45 54 0D .LD A,&FF...RET.
017510: 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .....;----------
017520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017530: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 50 52 49 4E --------..;.PRIN
017540: 54 20 46 49 4C 45 20 53 54 41 54 53 0D 0A 3B 2D T FILE STATS..;-
017550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017570: 2D 0D 0A 2E 46 49 4C 45 5F 53 54 41 54 53 0D 0A -...FILE_STATS..
017580: 09 43 41 4C 4C 20 43 41 53 5F 49 4E 5F 41 42 41 .CALL CAS_IN_ABA
017590: 4E 44 4F 4E 0D 0A 09 43 41 4C 4C 20 44 49 53 43 NDON...CALL DISC
0175A0: 5F 57 49 4E 44 4F 57 0D 0A 09 43 41 4C 4C 20 4F _WINDOW...CALL O
0175B0: 50 45 4E 5F 46 49 4C 45 09 09 09 3B 4F 70 65 6E PEN_FILE...;Open
0175C0: 20 66 69 6C 65 20 6F 75 74 0D 0A 20 20 20 20 20 file out..
0175D0: 20 20 20 43 50 20 26 46 43 0D 0A 09 4A 50 20 5A CP &FC...JP Z
0175E0: 2C 46 73 65 78 69 74 33 0D 0A 0D 0A 09 43 41 4C ,Fsexit3.....CAL
0175F0: 4C 20 43 41 53 5F 49 4E 5F 4F 50 45 4E 09 09 0D L CAS_IN_OPEN...
017600: 0A 09 4A 50 20 4E 43 2C 46 73 65 78 69 74 0D 0A ..JP NC,Fsexit..
017610: 0D 0A 09 4C 44 20 28 48 45 41 44 44 45 52 29 2C ...LD (HEADDER),
017620: 48 4C 09 09 09 3B 20 53 61 76 65 20 68 65 61 64 HL...; Save head
017630: 64 65 72 20 61 64 64 0D 0A 09 4C 44 20 28 54 59 der add...LD (TY
017640: 50 29 2C 41 09 09 09 3B 20 53 61 76 65 20 66 69 P),A...; Save fi
017650: 6C 65 20 74 79 70 65 0D 0A 0D 0A 09 50 55 53 48 le type.....PUSH
017660: 20 42 43 0D 0A 09 50 55 53 48 20 44 45 09 09 09 BC...PUSH DE...
017670: 09 3B 20 53 61 76 65 20 6C 6F 63 2F 6C 65 6E 0D .; Save loc/len.
017680: 0A 09 4C 44 20 49 58 2C 46 69 6C 65 53 74 61 74 ..LD IX,FileStat
017690: 57 69 6E 64 6F 77 0D 0A 09 43 41 4C 4C 20 4D 42 Window...CALL MB
0176A0: 4F 52 44 45 52 09 09 09 3B 20 50 72 69 6E 74 20 ORDER...; Print
0176B0: 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 26 31 30 32 0D .....LD HL,&102.
0176C0: 0A 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 4C 44 ..LD (Y),HL...LD
0176D0: 20 48 4C 2C 54 59 50 45 0D 0A 09 43 41 4C 4C 20 HL,TYPE...CALL
0176E0: 54 45 58 54 09 09 09 3B 20 3F 20 22 54 79 70 65 TEXT...; ? "Type
0176F0: 20 22 0D 0A 0D 0A 09 4C 44 20 41 2C 28 54 59 50 ".....LD A,(TYP
017700: 29 0D 0A 09 42 49 54 20 30 2C 41 0D 0A 09 4A 52 )...BIT 0,A...JR
017710: 20 5A 2C 46 53 31 0D 0A 09 4C 44 20 48 4C 2C 50 Z,FS1...LD HL,P
017720: 52 4F 54 09 09 09 3B 20 50 6F 72 74 65 63 74 65 ROT...; Portecte
017730: 64 0D 0A 09 43 41 4C 4C 20 54 45 58 54 09 09 09 d...CALL TEXT...
017740: 3B 20 3F 20 5B 50 5D 0D 0A 0D 0A 2E 46 53 31 09 ; ? [P].....FS1.
017750: 4C 44 20 41 2C 28 54 59 50 29 0D 0A 09 53 52 4C LD A,(TYP)...SRL
017760: 20 41 0D 0A 09 41 4E 44 20 33 09 09 09 09 3B 20 A...AND 3....;
017770: 41 20 63 6F 6E 74 61 69 6E 73 20 66 69 6C 65 20 A contains file
017780: 74 79 70 65 0D 0A 0D 0A 09 4C 44 20 44 45 2C 46 type.....LD DE,F
017790: 69 6C 65 53 74 61 74 54 61 62 6C 65 0D 0A 09 4C ileStatTable...L
0177A0: 44 20 4C 2C 41 0D 0A 09 4C 44 20 48 2C 30 0D 0A D L,A...LD H,0..
0177B0: 09 41 44 44 20 48 4C 2C 48 4C 09 3B 2A 32 0D 0A .ADD HL,HL.;*2..
0177C0: 09 41 44 44 20 48 4C 2C 48 4C 09 3B 2A 34 0D 0A .ADD HL,HL.;*4..
0177D0: 09 41 44 44 20 48 4C 2C 44 45 0D 0A 0D 0A 09 4C .ADD HL,DE.....L
0177E0: 44 20 45 2C 28 48 4C 29 3A 49 4E 43 20 48 4C 0D D E,(HL):INC HL.
0177F0: 0A 09 4C 44 20 44 2C 28 48 4C 29 3A 49 4E 43 20 ..LD D,(HL):INC
017800: 48 4C 0D 0A 09 4C 44 20 43 2C 28 48 4C 29 3A 49 HL...LD C,(HL):I
017810: 4E 43 20 48 4C 0D 0A 09 4C 44 20 42 2C 28 48 4C NC HL...LD B,(HL
017820: 29 0D 0A 20 09 4C 44 20 28 46 53 4A 50 29 2C 42 ).. .LD (FSJP),B
017830: 43 09 09 09 3B 20 53 61 76 65 20 6A 75 6D 70 0D C...; Save jump.
017840: 0A 09 45 58 20 48 4C 2C 44 45 0D 0A 0D 0A 09 43 ..EX HL,DE.....C
017850: 41 4C 4C 20 54 45 58 54 09 09 09 3B 20 50 72 69 ALL TEXT...; Pri
017860: 6E 74 20 22 42 41 53 49 43 20 22 20 6F 72 20 22 nt "BASIC " or "
017870: 42 49 4E 41 52 59 22 20 65 74 63 2E 2E 0D 0A 09 BINARY" etc.....
017880: 43 41 4C 4C 20 4C 46 46 0D 0A 0D 0A 09 4C 44 20 CALL LFF.....LD
017890: 48 4C 2C 44 41 54 41 5F 4C 4F 43 09 09 09 3B 20 HL,DATA_LOC...;
0178A0: 3F 20 44 61 74 61 20 6C 6F 63 0D 0A 09 43 41 4C ? Data loc...CAL
0178B0: 4C 20 54 45 58 54 0D 0A 09 50 4F 50 20 44 45 09 L TEXT...POP DE.
0178C0: 0D 0A 09 43 41 4C 4C 20 46 53 5F 4E 55 4D 0D 0A ...CALL FS_NUM..
0178D0: 0D 0A 09 4C 44 20 48 4C 2C 46 49 4C 45 5F 4C 45 ...LD HL,FILE_LE
0178E0: 4E 47 54 48 09 09 3B 20 3F 20 46 69 6C 65 20 6C NGTH..; ? File l
0178F0: 65 6E 67 74 68 0D 0A 20 20 20 20 20 20 20 20 43 ength.. C
017900: 41 4C 4C 20 54 45 58 54 0D 0A 09 50 4F 50 20 44 ALL TEXT...POP D
017910: 45 0D 0A 09 43 41 4C 4C 20 46 53 5F 4E 55 4D 0D E...CALL FS_NUM.
017920: 0A 0D 0A 09 43 41 4C 4C 20 4C 46 46 0D 0A 09 4C ....CALL LFF...L
017930: 44 20 48 4C 2C 28 46 53 4A 50 29 09 0D 0A 09 4A D HL,(FSJP)....J
017940: 50 20 28 48 4C 29 09 09 09 09 3B 4A 55 4D 50 21 P (HL)....;JUMP!
017950: 21 21 0D 0A 0D 0A 2E 46 53 5F 4E 55 4D 0D 0A 09 !!.....FS_NUM...
017960: 4C 44 20 41 2C 44 0D 0A 09 43 41 4C 4C 20 48 45 LD A,D...CALL HE
017970: 58 0D 0A 09 4C 44 20 41 2C 45 0D 0A 09 43 41 4C X...LD A,E...CAL
017980: 4C 20 48 45 58 0D 0A 09 4A 50 20 4C 46 46 09 09 L HEX...JP LFF..
017990: 09 3B 20 50 72 69 6E 74 20 69 6E 20 68 65 78 20 .; Print in hex
0179A0: 61 6E 64 20 6C 69 6E 65 20 66 65 65 64 20 28 4C and line feed (L
0179B0: 46 29 0D 0A 09 0D 0A 0D 0A 2E 42 41 53 50 52 49 F)........BASPRI
0179C0: 4E 54 0D 0A 2E 53 43 52 50 52 49 4E 54 0D 0A 09 NT...SCRPRINT...
0179D0: 4A 50 20 46 53 45 58 49 54 09 09 09 3B 20 4A 75 JP FSEXIT...; Ju
0179E0: 73 74 20 73 6F 20 49 20 63 61 6E 20 65 78 70 61 st so I can expa
0179F0: 6E 64 0D 0A 0D 0A 2E 42 49 4E 50 52 49 4E 54 0D nd.....BINPRINT.
017A00: 0A 09 4C 44 20 42 2C 32 35 35 09 09 09 3B 32 35 ..LD B,255...;25
017A10: 35 20 62 79 74 65 73 20 6F 66 20 69 6E 66 6F 0D 5 bytes of info.
017A20: 0A 09 4C 44 20 48 4C 2C 58 4D 4F 44 45 4D 09 09 ..LD HL,XMODEM..
017A30: 09 3B 73 74 6F 72 61 65 20 61 72 65 61 0D 0A 2E .;storae area...
017A40: 42 50 31 09 43 41 4C 4C 20 43 41 53 5F 49 4E 5F BP1.CALL CAS_IN_
017A50: 43 48 41 52 0D 0A 09 4A 50 20 4E 43 2C 46 73 65 CHAR...JP NC,Fse
017A60: 78 69 74 0D 0A 09 4C 44 20 28 48 4C 29 2C 41 0D xit...LD (HL),A.
017A70: 0A 09 49 4E 43 20 48 4C 0D 0A 09 44 4A 4E 5A 20 ..INC HL...DJNZ
017A80: 42 50 31 09 09 09 3B 69 6E 70 75 74 20 64 61 74 BP1...;input dat
017A90: 61 0D 0A 09 4C 44 20 48 4C 2C 58 4D 4F 44 45 4D a...LD HL,XMODEM
017AA0: 09 09 09 3B 73 74 61 72 74 20 61 64 64 72 65 73 ...;start addres
017AB0: 73 20 6F 66 20 64 61 74 61 0D 0A 09 4C 44 20 43 s of data...LD C
017AC0: 2C 31 34 09 09 09 09 3B 31 36 20 6E 75 6D 73 20 ,14....;16 nums
017AD0: 70 61 72 20 6C 69 6E 65 0D 0A 2E 42 50 33 09 50 par line...BP3.P
017AE0: 55 53 48 20 42 43 0D 0A 09 43 41 4C 4C 20 50 52 USH BC...CALL PR
017AF0: 49 4E 54 48 45 58 4C 49 4E 45 0D 0A 09 43 41 4C INTHEXLINE...CAL
017B00: 4C 20 4C 46 46 0D 0A 09 50 4F 50 20 42 43 09 09 L LFF...POP BC..
017B10: 09 09 3B 73 65 74 20 68 65 69 67 68 74 0D 0A 09 ..;set height...
017B20: 44 45 43 20 43 0D 0A 09 4A 52 20 4E 5A 2C 42 50 DEC C...JR NZ,BP
017B30: 33 09 09 09 3B 6C 6F 6F 70 0D 0A 09 4A 50 20 46 3...;loop...JP F
017B40: 53 45 58 49 54 09 09 09 3B 65 78 69 74 0D 0A 0D SEXIT...;exit...
017B50: 0A 0D 0A 41 53 43 50 52 49 4E 54 0D 0A 3B 09 4C ...ASCPRINT..;.L
017B60: 44 20 42 20 2C 32 35 35 0D 0A 41 50 32 09 43 41 D B ,255..AP2.CA
017B70: 4C 4C 20 43 41 53 5F 49 4E 5F 43 48 41 52 0D 0A LL CAS_IN_CHAR..
017B80: 09 4A 50 20 4E 43 2C 46 73 65 78 69 74 0D 0A 09 .JP NC,Fsexit...
017B90: 52 45 53 20 37 2C 41 0D 0A 09 43 41 4C 4C 20 57 RES 7,A...CALL W
017BA0: 52 49 54 45 5F 43 48 41 52 0D 0A 09 4C 44 20 41 RITE_CHAR...LD A
017BB0: 2C 28 59 29 0D 0A 09 43 50 20 32 30 0D 0A 09 4A ,(Y)...CP 20...J
017BC0: 52 20 5A 2C 46 53 45 58 49 54 0D 0A 0D 0A 09 4C R Z,FSEXIT.....L
017BD0: 44 20 41 2C 28 58 29 0D 0A 09 43 50 20 30 0D 0A D A,(X)...CP 0..
017BE0: 09 4A 52 20 4E 5A 2C 41 50 34 0D 0A 0D 0A 09 4C .JR NZ,AP4.....L
017BF0: 44 20 41 2C 31 0D 0A 09 4C 44 20 28 58 29 2C 41 D A,1...LD (X),A
017C00: 09 3B 74 61 62 0D 0A 2E 41 50 34 09 4C 44 20 41 .;tab...AP4.LD A
017C10: 2C 28 58 29 0D 0A 09 43 50 20 37 38 0D 0A 09 4A ,(X)...CP 78...J
017C20: 52 20 4E 5A 2C 41 50 33 20 20 20 20 20 20 20 3B R NZ,AP3 ;
017C30: 72 69 67 68 74 20 6A 75 73 74 0D 0A 20 20 20 20 right just..
017C40: 20 20 20 20 4C 44 20 41 2C 31 0D 0A 09 4C 44 20 LD A,1...LD
017C50: 28 58 29 2C 41 0D 0A 09 4C 44 20 41 2C 28 59 29 (X),A...LD A,(Y)
017C60: 0D 0A 09 49 4E 43 20 41 0D 0A 09 43 50 20 32 30 ...INC A...CP 20
017C70: 0D 0A 09 4A 52 20 5A 2C 46 53 45 58 49 54 09 0D ...JR Z,FSEXIT..
017C80: 0A 09 4C 44 20 28 59 29 2C 41 0D 0A 2E 41 50 33 ..LD (Y),A...AP3
017C90: 09 0D 0A 3B 09 44 4A 4E 5A 20 41 50 32 09 09 09 ...;.DJNZ AP2...
017CA0: 3B 70 72 69 6E 74 20 31 32 38 20 63 68 61 72 73 ;print 128 chars
017CB0: 20 66 72 6F 6D 20 61 73 63 69 69 20 66 69 6C 65 from ascii file
017CC0: 0D 0A 09 4A 50 20 41 50 32 09 09 09 09 3B 6F 72 ...JP AP2....;or
017CD0: 20 74 6F 20 6C 69 6E 65 20 32 30 0D 0A 0D 0A 2E to line 20.....
017CE0: 46 53 45 58 49 54 0D 0A 09 43 41 4C 4C 20 4C 46 FSEXIT...CALL LF
017CF0: 46 0D 0A 09 43 41 4C 4C 20 41 4E 59 4B 45 59 09 F...CALL ANYKEY.
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 4E E5 14 00 C1 02 00 00 00 02 ......N.........
017D20: 14 00 C2 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D30: 14 00 C4 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D40: 14 00 C6 02 00 00 00 02 14 00 C7 02 00 00 00 02 ................
017D50: 14 00 C8 02 00 00 00 02 14 00 C9 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 09 09 3B 77 61 69 74 20 66 6F 72 20 6B 65 79 0D ..;wait for key.
017E10: 0A 2E 46 53 45 58 49 54 33 0D 0A 09 43 41 4C 4C ..FSEXIT3...CALL
017E20: 20 43 41 53 5F 49 4E 5F 43 4C 4F 53 45 0D 0A 09 CAS_IN_CLOSE...
017E30: 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 50 41 47 45 CALL WINDOW_PAGE
017E40: 09 09 3B 45 72 61 20 77 69 6E 64 6F 77 20 61 6E ..;Era window an
017E50: 64 20 72 65 74 0D 0A 09 43 41 4C 4C 20 50 52 49 d ret...CALL PRI
017E60: 4E 54 5F 44 41 54 41 5F 43 55 52 53 4F 52 0D 0A NT_DATA_CURSOR..
017E70: 09 4C 44 20 41 2C 26 46 46 0D 0A 09 52 45 54 0D .LD A,&FF...RET.
017E80: 0A 2E 4C 46 46 0D 0A 09 43 41 4C 4C 20 4C 46 0D ..LFF...CALL LF.
017E90: 0A 09 4C 44 20 41 2C 31 0D 0A 09 4C 44 20 28 58 ..LD A,1...LD (X
017EA0: 29 2C 41 0D 0A 09 52 45 54 0D 0A 2E 4C 46 09 4C ),A...RET...LF.L
017EB0: 44 20 41 2C 28 59 29 0D 0A 09 49 4E 43 20 41 0D D A,(Y)...INC A.
017EC0: 0A 09 43 50 20 32 35 09 0D 0A 09 4A 52 20 4E 5A ..CP 25....JR NZ
017ED0: 2C 4C 46 32 0D 0A 09 58 4F 52 20 41 0D 0A 2E 4C ,LF2...XOR A...L
017EE0: 46 32 09 4C 44 20 28 59 29 2C 41 0D 0A 20 20 20 F2.LD (Y),A..
017EF0: 20 20 20 20 20 58 4F 52 20 41 0D 0A 09 4C 44 20 XOR A...LD
017F00: 28 58 29 2C 41 0D 0A 09 52 45 54 09 09 09 09 3B (X),A...RET....;
017F10: 6C 69 6E 65 20 66 65 65 64 0D 0A 0D 0A 2E 46 69 line feed.....Fi
017F20: 6C 65 53 74 61 74 54 61 62 6C 65 0D 0A 57 4F 52 leStatTable..WOR
017F30: 44 20 42 41 53 49 43 09 09 09 3B 68 6C 20 70 6F D BASIC...;hl po
017F40: 69 6E 74 73 20 74 6F 20 22 42 41 49 53 43 20 22 ints to "BAISC "
017F50: 0D 0A 57 4F 52 44 20 42 41 53 50 52 49 4E 54 09 ..WORD BASPRINT.
017F60: 09 09 3B 74 68 65 6E 20 6A 70 20 74 6F 0D 0A 57 ..;then jp to..W
017F70: 4F 52 44 20 42 49 4E 41 52 59 0D 0A 57 4F 52 44 ORD BINARY..WORD
017F80: 20 42 49 4E 50 52 49 4E 54 09 09 09 3B 27 6A 70 BINPRINT...;'jp
017F90: 20 74 6F 20 62 69 6E 20 70 72 69 6E 74 27 0D 0A to bin print'..
017FA0: 57 4F 52 44 20 53 43 52 45 45 4E 0D 0A 57 4F 52 WORD SCREEN..WOR
017FB0: 44 20 53 43 52 50 52 49 4E 54 0D 0A 57 4F 52 44 D SCRPRINT..WORD
017FC0: 20 41 53 43 49 49 0D 0A 57 4F 52 44 20 41 53 43 ASCII..WORD ASC
017FD0: 50 52 49 4E 54 0D 0A 0D 0A 2E 46 69 6C 65 53 74 PRINT.....FileSt
017FE0: 61 74 57 69 6E 64 6F 77 0D 0A 09 42 59 54 45 20 atWindow...BYTE
017FF0: 30 2C 31 2C 32 33 2C 38 30 0D 0A 0D 0A 3B 2D 2D 0,1,23,80....;--
018000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 0D 0A ------------- ..
018020: 2E 50 52 49 4E 54 48 45 58 4C 49 4E 45 0D 0A 09 .PRINTHEXLINE...
018030: 50 55 53 48 20 48 4C 09 09 09 09 3B 73 61 76 65 PUSH HL....;save
018040: 20 62 63 28 68 65 69 67 68 74 29 20 68 6C 28 61 bc(height) hl(a
018050: 64 64 29 0D 0A 09 4C 44 20 42 2C 31 36 09 09 09 dd)...LD B,16...
018060: 09 3B 31 36 20 62 79 74 65 73 0D 0A 2E 42 50 32 .;16 bytes...BP2
018070: 09 0D 0A 09 4C 44 20 41 2C 22 20 22 0D 0A 09 43 ....LD A," "...C
018080: 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 52 0D 0A ALL WRITE_CHAR..
018090: 09 4C 44 20 41 2C 28 48 4C 29 0D 0A 09 43 41 4C .LD A,(HL)...CAL
0180A0: 4C 20 48 45 58 0D 0A 09 49 4E 43 20 48 4C 0D 0A L HEX...INC HL..
0180B0: 09 44 4A 4E 5A 20 42 50 32 09 09 09 3B 70 72 69 .DJNZ BP2...;pri
0180C0: 6E 74 20 6C 69 6E 65 20 6F 66 20 31 36 20 62 79 nt line of 16 by
0180D0: 74 65 73 0D 0A 09 4C 44 20 41 2C 28 58 29 0D 0A tes...LD A,(X)..
0180E0: 09 41 44 44 20 35 09 0D 0A 09 4C 44 20 28 58 29 .ADD 5....LD (X)
0180F0: 2C 41 09 09 09 3B 74 61 62 0D 0A 09 50 4F 50 20 ,A...;tab...POP
018100: 48 4C 09 09 09 09 3B 67 65 74 20 61 64 72 65 73 HL....;get adres
018110: 73 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 42 2C s.. LD B,
018120: 31 36 0D 0A 2E 42 50 35 09 4C 44 20 41 2C 28 48 16...BP5.LD A,(H
018130: 4C 29 0D 0A 09 52 45 53 20 37 2C 41 0D 0A 09 43 L)...RES 7,A...C
018140: 50 20 33 32 0D 0A 09 4A 50 20 4E 43 2C 42 50 36 P 32...JP NC,BP6
018150: 0D 0A 09 4C 44 20 41 2C 22 2E 22 0D 0A 2E 42 50 ...LD A,"."...BP
018160: 36 09 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 41 6.CALL WRITE_CHA
018170: 52 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 44 4A 4E R...INC HL...DJN
018180: 5A 20 42 50 35 09 09 09 3B 70 72 69 6E 74 20 69 Z BP5...;print i
018190: 6E 20 61 73 63 69 69 0D 0A 09 52 45 54 09 0D 0A n ascii...RET...
0181A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
0181B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0181C0: 2D 2D 2D 0D 0A 0D 0A 0D 0A 0D 0A 2E 47 45 54 5F ---.........GET_
0181D0: 42 55 46 5F 43 48 41 52 0D 0A 09 4C 44 20 41 2C BUF_CHAR...LD A,
0181E0: 28 48 4C 29 0D 0A 09 50 55 53 48 20 41 46 0D 0A (HL)...PUSH AF..
0181F0: 09 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 41 2C 48 .INC HL...LD A,H
018200: 0D 0A 09 43 50 20 52 5F 42 55 46 46 45 52 5F 45 ...CP R_BUFFER_E
018210: 4E 44 32 0D 0A 09 4A 52 20 4E 5A 2C 47 42 43 31 ND2...JR NZ,GBC1
018220: 0D 0A 09 4C 44 20 48 2C 52 5F 42 55 46 46 45 52 ...LD H,R_BUFFER
018230: 5F 53 54 41 52 54 32 0D 0A 2E 47 42 43 31 20 20 _START2...GBC1
018240: 20 20 50 4F 50 20 41 46 0D 0A 09 52 45 54 09 09 POP AF...RET..
018250: 09 09 3B 69 6E 63 20 74 68 72 6F 75 67 68 20 62 ..;inc through b
018260: 75 66 66 65 72 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D uffer....;------
018270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 56 49 45 ---------..;.VIE
018290: 57 20 42 55 46 46 45 52 0D 0A 3B 2D 2D 2D 2D 2D W BUFFER..;-----
0182A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0182B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 56 42 55 ----------...VBU
0182C0: 46 46 0D 0A 09 43 41 4C 4C 20 43 4C 53 5F 53 43 FF...CALL CLS_SC
0182D0: 52 45 45 4E 0D 0A 3B 09 4C 44 20 48 4C 2C 28 49 REEN..;.LD HL,(I
0182E0: 4E 50 55 54 48 49 47 48 29 0D 0A 09 4C 44 20 48 NPUTHIGH)...LD H
0182F0: 4C 2C 52 5F 42 55 46 46 45 52 5F 53 54 41 52 54 L,R_BUFFER_START
018300: 0D 0A 09 4C 44 20 42 43 2C 52 5F 42 55 46 46 45 ...LD BC,R_BUFFE
018310: 52 5F 4C 45 4E 47 54 48 2F 31 36 0D 0A 2E 56 49 R_LENGTH/16...VI
018320: 42 31 09 0D 0A 09 50 55 53 48 20 42 43 0D 0A 09 B1....PUSH BC...
018330: 4C 44 20 41 2C 22 26 22 0D 0A 09 43 41 4C 4C 20 LD A,"&"...CALL
018340: 53 43 52 45 45 4E 57 52 49 54 45 0D 0A 09 4C 44 SCREENWRITE...LD
018350: 20 41 2C 48 0D 0A 09 43 41 4C 4C 20 48 45 58 0D A,H...CALL HEX.
018360: 0A 09 4C 44 20 41 2C 4C 0D 0A 09 43 41 4C 4C 20 ..LD A,L...CALL
018370: 48 45 58 0D 0A 09 4C 44 20 41 2C 36 0D 0A 09 4C HEX...LD A,6...L
018380: 44 20 28 58 29 2C 41 0D 0A 09 0D 0A 09 4C 44 20 D (X),A......LD
018390: 42 2C 31 36 0D 0A 09 4C 44 20 44 45 2C 56 42 55 B,16...LD DE,VBU
0183A0: 46 46 45 52 5F 4C 49 4E 45 0D 0A 2E 56 49 42 32 FFER_LINE...VIB2
0183B0: 09 43 41 4C 4C 20 47 45 54 5F 42 55 46 5F 43 48 .CALL GET_BUF_CH
0183C0: 41 52 0D 0A 09 4C 44 20 28 44 45 29 2C 41 0D 0A AR...LD (DE),A..
0183D0: 09 49 4E 43 20 44 45 0D 0A 09 44 4A 4E 5A 20 56 .INC DE...DJNZ V
0183E0: 49 42 32 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 IB2...PUSH HL...
0183F0: 4C 44 20 48 4C 2C 56 42 55 46 46 45 52 5F 4C 49 LD HL,VBUFFER_LI
018400: 4E 45 0D 0A 09 43 41 4C 4C 20 50 52 49 4E 54 48 NE...CALL PRINTH
018410: 45 58 4C 49 4E 45 0D 0A 09 50 4F 50 20 48 4C 0D EXLINE...POP HL.
018420: 0A 09 43 41 4C 4C 20 57 41 49 54 5F 46 4C 59 0D ..CALL WAIT_FLY.
018430: 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C 31 30 . LD A,10
018440: 0D 0A 09 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 ...CALL SCREENWR
018450: 49 54 45 0D 0A 09 4C 44 20 41 2C 31 33 0D 0A 09 ITE...LD A,13...
018460: 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 45 CALL SCREENWRITE
018470: 0D 0A 09 50 4F 50 20 42 43 0D 0A 0D 0A 09 43 41 ...POP BC.....CA
018480: 4C 4C 20 4B 4D 5F 52 45 41 44 5F 43 48 41 52 09 LL KM_READ_CHAR.
018490: 09 3B 74 65 73 74 20 6B 65 79 0D 0A 09 4A 52 20 .;test key...JR
0184A0: 4E 43 2C 56 49 42 5F 53 4B 49 50 09 09 09 3B 6E NC,VIB_SKIP...;n
0184B0: 6F 20 6B 65 79 20 70 72 65 73 73 65 64 20 74 68 o key pressed th
0184C0: 65 6E 20 72 65 61 64 0D 0A 09 43 41 4C 4C 20 4B en read...CALL K
0184D0: 4D 5F 57 41 49 54 5F 43 48 41 52 09 09 3B 2E 2E M_WAIT_CHAR..;..
0184E0: 77 61 69 74 20 75 6E 74 69 6C 6C 20 6E 65 78 74 wait untill next
0184F0: 20 6B 65 79 0D 0A 09 43 50 20 26 46 43 0D 0A 09 key...CP &FC...
018500: 4A 52 20 5A 2C 56 49 42 5F 45 58 49 54 09 09 09 JR Z,VIB_EXIT...
018510: 3B 72 65 61 64 20 63 68 61 72 0D 0A 2E 56 49 42 ;read char...VIB
018520: 5F 53 4B 49 50 0D 0A 09 44 45 43 20 42 43 0D 0A _SKIP...DEC BC..
018530: 09 4C 44 20 41 2C 43 0D 0A 09 4F 52 20 42 0D 0A .LD A,C...OR B..
018540: 09 4A 52 20 4E 5A 2C 56 49 42 31 0D 0A 2E 56 49 .JR NZ,VIB1...VI
018550: 42 5F 45 58 49 54 0D 0A 20 20 20 20 20 20 20 20 B_EXIT..
018560: 63 61 6C 6C 20 61 6E 79 32 0D 0A 09 43 41 4C 4C call any2...CALL
018570: 20 4B 4D 5F 57 41 49 54 5F 43 48 41 52 0D 0A 09 KM_WAIT_CHAR...
018580: 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 50 41 47 45 CALL WINDOW_PAGE
018590: 09 09 3B 72 65 74 0D 0A 20 20 20 20 20 20 20 20 ..;ret..
0185A0: 43 41 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 5F CALL PRINT_DATA_
0185B0: 43 55 52 53 4F 52 0D 0A 09 4C 44 20 41 2C 26 46 CURSOR...LD A,&F
0185C0: 46 0D 0A 09 52 45 54 0D 0A 41 4E 59 32 0D 0A 20 F...RET..ANY2..
0185D0: 09 4C 44 20 48 4C 2C 41 4E 59 33 0D 0A 09 4A 50 .LD HL,ANY3...JP
0185E0: 20 41 4E 53 49 54 45 58 54 0D 0A 2E 56 42 55 46 ANSITEXT...VBUF
0185F0: 46 45 52 5F 4C 49 4E 45 09 44 45 46 53 20 31 36 FER_LINE.DEFS 16
018600: 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ......;---------
018610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 53 41 56 ---------..;.SAV
018630: 45 20 54 48 45 20 42 55 46 46 45 52 0D 0A 3B 2D E THE BUFFER..;-
018640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018660: 0D 0A 2E 53 41 56 45 5F 42 55 46 46 45 52 0D 0A ...SAVE_BUFFER..
018670: 09 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 41 42 .CALL CAS_OUT_AB
018680: 41 4E 44 4F 4E 0D 0A 09 43 41 4C 4C 20 44 49 53 ANDON...CALL DIS
018690: 43 5F 57 49 4E 44 4F 57 0D 0A 09 43 41 4C 4C 20 C_WINDOW...CALL
0186A0: 4F 50 45 4E 5F 46 49 4C 45 5F 42 4F 52 44 0D 0A OPEN_FILE_BORD..
0186B0: 09 43 50 20 26 46 43 0D 0A 20 20 20 20 20 20 20 .CP &FC..
0186C0: 20 4A 50 20 5A 2C 53 41 42 45 58 49 54 0D 0A 09 JP Z,SABEXIT...
0186D0: 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 4F 50 45 CALL CAS_OUT_OPE
0186E0: 4E 0D 0A 09 4A 50 20 4E 43 2C 53 41 42 44 49 53 N...JP NC,SABDIS
0186F0: 43 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 28 49 4E 50 C.....LD HL,(INP
018700: 55 54 48 49 47 48 29 0D 0A 09 4C 44 20 42 43 2C UTHIGH)...LD BC,
018710: 52 5F 42 55 46 46 45 52 5F 4C 45 4E 47 54 48 09 R_BUFFER_LENGTH.
018720: 0D 0A 2E 53 41 42 09 43 41 4C 4C 20 47 45 54 5F ...SAB.CALL GET_
018730: 42 55 46 5F 43 48 41 52 0D 0A 09 4F 52 20 41 0D BUF_CHAR...OR A.
018740: 0A 09 4A 52 20 5A 2C 53 41 42 32 0D 0A 09 43 41 ..JR Z,SAB2...CA
018750: 4C 4C 20 43 41 53 5F 4F 55 54 5F 43 48 41 52 0D LL CAS_OUT_CHAR.
018760: 0A 09 4A 50 20 4E 43 2C 53 41 42 44 49 53 43 0D ..JP NC,SABDISC.
018770: 0A 2E 53 41 42 32 0D 0A 09 44 45 43 20 42 43 0D ..SAB2...DEC BC.
018780: 0A 09 4C 44 20 41 2C 42 0D 0A 09 4F 52 20 43 0D ..LD A,B...OR C.
018790: 0A 09 4A 52 20 4E 5A 2C 53 41 42 0D 0A 09 4C 44 ..JR NZ,SAB...LD
0187A0: 20 41 2C 26 31 41 0D 0A 09 43 41 4C 4C 20 43 41 A,&1A...CALL CA
0187B0: 53 5F 4F 55 54 5F 43 48 41 52 0D 0A 09 43 41 4C S_OUT_CHAR...CAL
0187C0: 4C 20 43 41 53 5F 4F 55 54 5F 43 4C 4F 53 45 0D L CAS_OUT_CLOSE.
0187D0: 0A 09 4A 50 20 4E 43 2C 53 41 42 44 49 53 43 0D ..JP NC,SABDISC.
0187E0: 0A 2E 53 41 42 45 58 49 54 0D 0A 20 20 09 4C 44 ..SABEXIT.. .LD
0187F0: 20 49 58 2C 46 49 4C 45 5F 42 4F 52 44 45 52 09 IX,FILE_BORDER.
018800: 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 57 ...CALL WINDOW_W
018810: 49 50 45 09 09 09 3B 73 61 76 65 20 61 73 20 76 IPE...;save as v
018820: 69 65 77 20 62 75 74 20 77 72 74 65 73 20 74 6F iew but wrtes to
018830: 20 64 72 69 76 65 0D 0A 09 4C 44 20 41 2C 26 46 drive...LD A,&F
018840: 45 0D 0A 09 52 45 54 0D 0A 2E 53 41 42 44 49 53 E...RET...SABDIS
018850: 43 0D 0A 09 4C 44 20 41 2C 37 0D 0A 09 43 41 4C C...LD A,7...CAL
018860: 4C 20 26 42 42 35 41 0D 0A 20 20 20 20 20 20 20 L &BB5A..
018870: 20 4A 52 20 53 41 42 45 58 49 54 0D 0A 09 0D 0A JR SABEXIT.....
018880: 2E 4D 43 5F 42 55 53 59 5F 50 52 49 4E 54 45 52 .MC_BUSY_PRINTER
018890: 09 45 51 55 20 26 42 44 32 45 0D 0A 2E 4D 43 5F .EQU &BD2E...MC_
0188A0: 53 45 4E 44 5F 50 52 49 4E 54 45 52 09 45 51 55 SEND_PRINTER.EQU
0188B0: 20 26 42 44 33 31 0D 0A 2E 4D 43 5F 50 52 49 4E &BD31...MC_PRIN
0188C0: 54 5F 43 48 41 52 09 09 45 51 55 20 26 42 44 32 T_CHAR..EQU &BD2
0188D0: 42 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D B..;------------
0188E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0188F0: 2D 2D 2D 2D 0D 0A 3B 09 70 72 69 6E 74 20 62 75 ----..;.print bu
018900: 66 66 65 72 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ffer..;---------
018910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018920: 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 2E 50 52 49 4E 54 ------.....PRINT
018930: 5F 42 55 46 46 45 52 0D 0A 09 43 41 4C 4C 20 26 _BUFFER...CALL &
018940: 42 44 32 45 0D 0A 09 4C 44 20 41 2C 26 46 45 0D BD2E...LD A,&FE.
018950: 0A 20 20 20 20 20 20 20 20 52 45 54 20 43 0D 0A . RET C..
018960: 0D 0A 09 4C 44 20 48 4C 2C 28 49 4E 50 55 54 48 ...LD HL,(INPUTH
018970: 49 47 48 29 0D 0A 09 4C 44 20 42 43 2C 52 5F 42 IGH)...LD BC,R_B
018980: 55 46 46 45 52 5F 4C 45 4E 47 54 48 09 09 3B 73 UFFER_LENGTH..;s
018990: 65 74 20 75 70 20 76 61 72 73 0D 0A 2E 50 42 55 et up vars...PBU
0189A0: 46 31 09 43 41 4C 4C 20 4D 43 5F 42 55 53 59 5F F1.CALL MC_BUSY_
0189B0: 50 52 49 4E 54 45 52 09 09 3B 74 65 73 74 20 70 PRINTER..;test p
0189C0: 72 69 6E 74 65 72 0D 0A 09 4A 52 20 4E 43 2C 50 rinter...JR NC,P
0189D0: 42 55 46 32 09 09 09 3B 69 66 20 69 64 6C 65 20 BUF2...;if idle
0189E0: 74 68 65 6E 20 70 72 69 6E 74 0D 0A 09 43 41 4C then print...CAL
0189F0: 4C 20 4B 4D 5F 52 45 41 44 5F 43 48 41 52 09 09 L KM_READ_CHAR..
018A00: 3B 74 65 73 74 20 6B 65 79 73 0D 0A 09 4A 52 20 ;test keys...JR
018A10: 4E 43 2C 50 42 55 46 31 09 09 09 3B 6E 6F 70 65 NC,PBUF1...;nope
018A20: 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 54 5F ...CALL KM_WAIT_
018A30: 43 48 41 52 09 09 3B 77 61 69 74 20 0D 0A 09 43 CHAR..;wait ...C
018A40: 50 20 26 46 43 09 09 09 09 09 0D 0A 09 4A 52 20 P &FC........JR
018A50: 4E 5A 2C 50 42 55 46 31 09 09 09 3B 69 66 20 6E NZ,PBUF1...;if n
018A60: 6F 74 20 65 73 63 61 70 65 20 74 68 65 6E 20 63 ot escape then c
018A70: 6F 6E 74 0D 0A 09 4A 52 20 50 42 55 46 5F 45 58 ont...JR PBUF_EX
018A80: 49 54 09 09 09 3B 65 78 69 74 20 69 66 20 65 73 IT...;exit if es
018A90: 63 0D 0A 2E 50 42 55 46 32 09 43 41 4C 4C 20 47 c...PBUF2.CALL G
018AA0: 45 54 5F 42 55 46 5F 43 48 41 52 09 09 3B 73 65 ET_BUF_CHAR..;se
018AB0: 74 20 63 68 61 72 0D 0A 09 42 49 54 20 37 2C 41 t char...BIT 7,A
018AC0: 09 09 09 09 3B 69 73 20 69 74 20 61 62 6F 76 65 ....;is it above
018AD0: 20 31 32 38 0D 0A 09 4A 52 20 5A 2C 50 42 55 46 128...JR Z,PBUF
018AE0: 33 09 09 09 3B 6E 6F 0D 0A 09 4C 44 20 41 2C 22 3...;no...LD A,"
018AF0: 2E 22 09 09 09 3B 69 66 20 73 6F 20 62 72 69 6E ."...;if so brin
018B00: 67 20 69 74 20 64 6F 77 6E 0D 0A 2E 50 42 55 46 g it down...PBUF
018B10: 33 09 09 09 09 09 0D 0A 09 4F 52 20 41 0D 0A 09 3........OR A...
018B20: 43 41 4C 4C 20 4E 5A 2C 4D 43 5F 53 45 4E 44 5F CALL NZ,MC_SEND_
018B30: 50 52 49 4E 54 45 52 09 09 3B 70 72 69 6E 74 0D PRINTER..;print.
018B40: 0A 20 20 20 20 20 09 44 45 43 20 42 43 0D 0A 09 . .DEC BC...
018B50: 4C 44 20 41 2C 42 0D 0A 09 4F 52 20 43 0D 0A 09 LD A,B...OR C...
018B60: 4A 52 20 4E 5A 2C 50 42 55 46 31 09 09 09 3B 6A JR NZ,PBUF1...;j
018B70: 70 20 69 66 20 6F 6B 0D 0A 2E 50 42 55 46 5F 45 p if ok...PBUF_E
018B80: 58 49 54 0D 0A 09 4C 44 20 41 2C 26 46 45 0D 0A XIT...LD A,&FE..
018B90: 09 52 45 54 09 09 09 09 3B 65 78 69 74 0D 0A 0D .RET....;exit...
018BA0: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
018BB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018BC0: 0D 0A 3B 09 50 52 49 4E 54 20 50 41 47 45 0D 0A ..;.PRINT PAGE..
018BD0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
018BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
018BF0: 2E 50 52 49 4E 54 5F 50 41 47 45 0D 0A 09 43 41 .PRINT_PAGE...CA
018C00: 4C 4C 20 26 42 44 32 45 0D 0A 09 4C 44 20 41 2C LL &BD2E...LD A,
018C10: 26 46 45 0D 0A 20 20 20 20 20 20 20 20 52 45 54 &FE.. RET
018C20: 20 43 0D 0A 0D 0A 09 4C 44 20 42 2C 38 30 09 09 C.....LD B,80..
018C30: 09 3B 77 69 64 74 68 20 6F 66 20 70 61 67 65 0D .;width of page.
018C40: 0A 09 4C 44 20 43 2C 32 35 09 09 09 3B 68 65 69 ..LD C,25...;hei
018C50: 67 68 74 09 0D 0A 09 4C 44 20 48 4C 2C 53 43 52 ght....LD HL,SCR
018C60: 45 45 4E 5F 43 09 09 3B 73 74 61 72 74 0D 0A 2E EEN_C..;start...
018C70: 50 41 47 45 30 09 50 55 53 48 20 42 43 09 09 09 PAGE0.PUSH BC...
018C80: 3B 73 61 76 65 20 68 65 69 67 68 74 2F 77 69 64 ;save height/wid
018C90: 74 68 0D 0A 2E 50 41 47 45 31 09 4C 44 20 41 2C th...PAGE1.LD A,
018CA0: 28 48 4C 29 0D 0A 09 42 49 54 20 37 2C 41 0D 0A (HL)...BIT 7,A..
018CB0: 09 4A 52 20 5A 2C 50 41 47 45 39 0D 0A 09 4C 44 .JR Z,PAGE9...LD
018CC0: 20 41 2C 22 2E 22 0D 0A 2E 50 41 47 45 39 09 49 A,"."...PAGE9.I
018CD0: 4E 43 20 48 4C 0D 0A 09 43 41 4C 4C 20 4D 43 5F NC HL...CALL MC_
018CE0: 50 52 49 4E 54 5F 43 48 41 52 0D 0A 2E 50 41 47 PRINT_CHAR...PAG
018CF0: 45 32 09 44 4A 4E 5A 20 50 41 47 45 31 09 09 3B E2.DJNZ PAGE1..;
018D00: 70 72 69 6E 74 20 6C 69 6E 65 20 0D 0A 09 4C 44 print line ...LD
018D10: 20 41 2C 31 33 0D 0A 09 43 41 4C 4C 20 4D 43 5F A,13...CALL MC_
018D20: 50 52 49 4E 54 5F 43 48 41 52 0D 0A 09 4C 44 20 PRINT_CHAR...LD
018D30: 41 2C 31 30 0D 0A 09 43 41 4C 4C 20 4D 43 5F 50 A,10...CALL MC_P
018D40: 52 49 4E 54 5F 43 48 41 52 09 3B 6C 66 2B 63 72 RINT_CHAR.;lf+cr
018D50: 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 44 45 43 20 ...POP BC...DEC
018D60: 43 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 4F 52 20 C...LD A,C...OR
018D70: 41 0D 0A 09 4A 52 20 4E 5A 2C 50 41 47 45 30 09 A...JR NZ,PAGE0.
018D80: 09 3B 69 66 20 6E 6F 74 20 6C 69 6E 65 20 32 35 .;if not line 25
018D90: 20 74 68 65 6E 20 63 6F 6E 74 0D 0A 09 4C 44 20 then cont...LD
018DA0: 41 2C 26 46 45 0D 0A 09 52 45 54 09 09 09 3B 72 A,&FE...RET...;r
018DB0: 65 74 0D 0A 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D et........;-----
018DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
018DE0: 3B 09 43 4C 49 50 20 41 4E 44 20 53 41 56 45 20 ;.CLIP AND SAVE
018DF0: 54 4F 20 44 49 53 43 0D 0A 3B 2D 2D 2D 2D 2D 2D TO DISC..;------
018E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -------------...
018E20: 0A 2E 43 4C 49 50 53 41 56 45 0D 0A 09 43 41 4C ..CLIPSAVE...CAL
018E30: 4C 20 43 41 53 5F 4F 55 54 5F 41 42 41 4E 44 4F L CAS_OUT_ABANDO
018E40: 4E 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 5F N...CALL WINDOW_
018E50: 57 49 50 45 0D 0A 09 43 41 4C 4C 20 44 49 53 43 WIPE...CALL DISC
018E60: 5F 57 49 4E 44 4F 57 0D 0A 09 43 41 4C 4C 20 43 _WINDOW...CALL C
018E70: 4C 49 50 0D 0A 09 43 50 20 22 59 22 0D 0A 09 4A LIP...CP "Y"...J
018E80: 50 20 4E 5A 2C 43 4C 49 50 58 31 0D 0A 09 4C 44 P NZ,CLIPX1...LD
018E90: 20 28 43 4C 49 50 53 56 29 2C 48 4C 0D 0A 20 20 (CLIPSV),HL..
018EA0: 20 20 20 20 20 20 4C 44 20 41 2C 28 58 29 0D 0A LD A,(X)..
018EB0: 09 4C 44 20 28 43 53 58 29 2C 41 0D 0A 09 43 41 .LD (CSX),A...CA
018EC0: 4C 4C 20 4F 50 45 4E 5F 46 49 4C 45 5F 42 4F 52 LL OPEN_FILE_BOR
018ED0: 44 0D 0A 09 43 50 20 26 46 43 0D 0A 09 4A 50 20 D...CP &FC...JP
018EE0: 5A 2C 43 4C 49 50 58 31 0D 0A 20 20 20 20 20 20 Z,CLIPX1..
018EF0: 20 20 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 4F CALL CAS_OUT_O
018F00: 50 45 4E 0D 0A 09 4A 50 20 4E 43 2C 43 4C 49 50 PEN...JP NC,CLIP
018F10: 44 49 53 43 0D 0A 09 4C 44 20 41 2C 28 43 53 58 DISC...LD A,(CSX
018F20: 29 0D 0A 09 4C 44 20 42 2C 41 0D 0A 09 4C 44 20 )...LD B,A...LD
018F30: 44 2C 41 0D 0A 20 20 20 20 20 20 20 20 4F 52 20 D,A.. OR
018F40: 41 0D 0A 09 4A 52 20 5A 2C 43 4C 49 50 53 30 0D A...JR Z,CLIPS0.
018F50: 0A 2E 43 4C 49 50 53 31 09 4C 44 20 41 2C 22 20 ..CLIPS1.LD A,"
018F60: 22 0D 0A 20 20 20 20 20 09 43 41 4C 4C 20 43 41 ".. .CALL CA
018F70: 53 5F 4F 55 54 5F 43 48 41 52 0D 0A 09 44 4A 4E S_OUT_CHAR...DJN
018F80: 5A 20 43 4C 49 50 53 31 0D 0A 2E 43 4C 49 50 53 Z CLIPS1...CLIPS
018F90: 30 0D 0A 09 4C 44 20 42 43 2C 28 43 4C 49 50 4C 0...LD BC,(CLIPL
018FA0: 45 4E 29 0D 0A 09 4C 44 20 48 4C 2C 28 43 4C 49 EN)...LD HL,(CLI
018FB0: 50 53 56 29 0D 0A 2E 43 4C 49 50 53 32 0D 0A 09 PSV)...CLIPS2...
018FC0: 4C 44 20 41 2C 28 48 4C 29 0D 0A 09 43 41 4C 4C LD A,(HL)...CALL
018FD0: 20 43 41 53 5F 4F 55 54 5F 43 48 41 52 0D 0A 09 CAS_OUT_CHAR...
018FE0: 49 4E 43 20 48 4C 0D 0A 09 49 4E 43 20 44 0D 0A INC HL...INC D..
018FF0: 09 4C 44 20 41 2C 44 0D 0A 09 43 50 20 38 30 0D .LD A,D...CP 80.
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 4E E5 15 00 C1 02 00 00 00 02 ......N.........
019020: 15 00 C2 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019030: 15 00 C4 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019040: 15 00 C6 02 00 00 00 02 15 00 C7 02 00 00 00 02 ................
019050: 15 00 C8 02 00 00 00 02 15 00 C9 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 0A 09 4A 52 20 4E 5A 2C 43 4C 49 50 53 33 0D 0A ..JR NZ,CLIPS3..
019110: 09 4C 44 20 41 2C 31 33 0D 0A 09 43 41 4C 4C 20 .LD A,13...CALL
019120: 43 41 53 5F 4F 55 54 5F 43 48 41 52 0D 0A 09 4C CAS_OUT_CHAR...L
019130: 44 20 41 2C 31 30 0D 0A 09 43 41 4C 4C 20 43 41 D A,10...CALL CA
019140: 53 5F 4F 55 54 5F 43 48 41 52 09 3B 6C 66 2B 63 S_OUT_CHAR.;lf+c
019150: 72 0D 0A 09 4C 44 20 44 2C 30 0D 0A 2E 43 4C 49 r...LD D,0...CLI
019160: 50 53 33 0D 0A 09 44 45 43 20 42 43 0D 0A 09 4C PS3...DEC BC...L
019170: 44 20 41 2C 43 0D 0A 09 4F 52 20 42 0D 0A 09 4A D A,C...OR B...J
019180: 52 20 4E 5A 2C 43 4C 49 50 53 32 09 09 3B 69 66 R NZ,CLIPS2..;if
019190: 20 6E 6F 74 20 66 69 6E 69 73 68 65 64 20 74 68 not finished th
0191A0: 65 6E 20 63 6F 6E 74 0D 0A 09 4C 44 20 41 2C 31 en cont...LD A,1
0191B0: 33 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 4F 55 54 3...CALL CAS_OUT
0191C0: 5F 43 48 41 52 0D 0A 09 4C 44 20 41 2C 31 30 0D _CHAR...LD A,10.
0191D0: 0A 09 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 43 ..CALL CAS_OUT_C
0191E0: 48 41 52 09 3B 6C 66 2B 63 72 0D 0A 09 4C 44 20 HAR.;lf+cr...LD
0191F0: 41 2C 26 31 41 0D 0A 09 43 41 4C 4C 20 43 41 53 A,&1A...CALL CAS
019200: 5F 4F 55 54 5F 43 48 41 52 0D 0A 2E 43 44 45 09 _OUT_CHAR...CDE.
019210: 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 43 4C 4F CALL CAS_OUT_CLO
019220: 53 45 0D 0A 2E 43 4C 49 50 58 31 09 43 41 4C 4C SE...CLIPX1.CALL
019230: 20 57 49 4E 44 4F 57 5F 50 41 47 45 0D 0A 09 43 WINDOW_PAGE...C
019240: 41 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 5F 43 ALL PRINT_DATA_C
019250: 55 52 53 4F 52 0D 0A 09 4C 44 20 41 2C 26 46 46 URSOR...LD A,&FF
019260: 0D 0A 09 52 45 54 0D 0A 2E 43 4C 49 50 44 49 53 ...RET...CLIPDIS
019270: 43 0D 0A 09 4C 44 20 41 2C 37 0D 0A 09 43 41 4C C...LD A,7...CAL
019280: 4C 20 26 42 42 35 41 0D 0A 09 4A 50 20 43 44 45 L &BB5A...JP CDE
019290: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
0192A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0192B0: 2D 0D 0A 3B 09 43 4C 49 50 20 50 41 47 45 0D 0A -..;.CLIP PAGE..
0192C0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
0192D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0192E0: 0A 2E 43 4C 49 50 5F 50 41 47 45 0D 0A 09 43 41 ..CLIP_PAGE...CA
0192F0: 4C 4C 20 26 42 44 32 45 0D 0A 09 4C 44 20 41 2C LL &BD2E...LD A,
019300: 26 46 45 0D 0A 20 20 20 20 20 20 20 20 52 45 54 &FE.. RET
019310: 20 43 0D 0A 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 C.....CALL WIND
019320: 4F 57 5F 57 49 50 45 0D 0A 09 43 41 4C 4C 20 43 OW_WIPE...CALL C
019330: 4C 49 50 0D 0A 09 43 50 20 22 59 22 0D 0A 09 4A LIP...CP "Y"...J
019340: 50 20 4E 5A 2C 43 4C 49 50 58 32 0D 0A 20 20 20 P NZ,CLIPX2..
019350: 20 20 20 20 20 4C 44 20 41 2C 28 58 29 0D 0A 09 LD A,(X)...
019360: 4C 44 20 44 2C 41 0D 0A 09 4C 44 20 42 2C 41 0D LD D,A...LD B,A.
019370: 0A 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A 09 . OR A...
019380: 4A 52 20 5A 2C 43 4C 49 50 35 53 4B 0D 0A 2E 43 JR Z,CLIP5SK...C
019390: 4C 49 50 35 09 4C 44 20 41 2C 22 20 22 0D 0A 20 LIP5.LD A," "..
0193A0: 20 20 20 20 09 43 41 4C 4C 20 4D 43 5F 50 52 49 .CALL MC_PRI
0193B0: 4E 54 5F 43 48 41 52 0D 0A 09 44 4A 4E 5A 20 43 NT_CHAR...DJNZ C
0193C0: 4C 49 50 35 0D 0A 2E 43 4C 49 50 35 53 4B 0D 0A LIP5...CLIP5SK..
0193D0: 09 4C 44 20 42 43 2C 28 43 4C 49 50 4C 45 4E 29 .LD BC,(CLIPLEN)
0193E0: 0D 0A 0D 0A 2E 43 4C 49 50 36 09 4C 44 20 41 2C .....CLIP6.LD A,
0193F0: 28 48 4C 29 0D 0A 09 42 49 54 20 37 2C 41 0D 0A (HL)...BIT 7,A..
019400: 09 4A 52 20 5A 2C 43 4C 49 50 39 0D 0A 09 4C 44 .JR Z,CLIP9...LD
019410: 20 41 2C 22 2E 22 0D 0A 2E 43 4C 49 50 39 0D 0A A,"."...CLIP9..
019420: 09 43 41 4C 4C 20 4D 43 5F 50 52 49 4E 54 5F 43 .CALL MC_PRINT_C
019430: 48 41 52 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 49 HAR...INC HL...I
019440: 4E 43 20 44 0D 0A 09 4C 44 20 41 2C 44 0D 0A 09 NC D...LD A,D...
019450: 43 50 20 38 30 0D 0A 09 4A 52 20 4E 5A 2C 43 4C CP 80...JR NZ,CL
019460: 49 50 37 0D 0A 09 4C 44 20 41 2C 31 33 0D 0A 09 IP7...LD A,13...
019470: 43 41 4C 4C 20 4D 43 5F 50 52 49 4E 54 5F 43 48 CALL MC_PRINT_CH
019480: 41 52 0D 0A 09 4C 44 20 41 2C 31 30 0D 0A 09 43 AR...LD A,10...C
019490: 41 4C 4C 20 4D 43 5F 50 52 49 4E 54 5F 43 48 41 ALL MC_PRINT_CHA
0194A0: 52 09 3B 6C 66 2B 63 72 0D 0A 09 4C 44 20 44 2C R.;lf+cr...LD D,
0194B0: 30 0D 0A 2E 43 4C 49 50 37 0D 0A 09 44 45 43 20 0...CLIP7...DEC
0194C0: 42 43 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 4F 52 BC...LD A,C...OR
0194D0: 20 42 0D 0A 09 4A 52 20 4E 5A 2C 43 4C 49 50 36 B...JR NZ,CLIP6
0194E0: 09 09 3B 69 66 20 6E 6F 74 20 66 69 6E 69 73 68 ..;if not finish
0194F0: 65 64 20 74 68 65 6E 20 63 6F 6E 74 0D 0A 09 4C ed then cont...L
019500: 44 20 41 2C 31 33 0D 0A 09 43 41 4C 4C 20 4D 43 D A,13...CALL MC
019510: 5F 50 52 49 4E 54 5F 43 48 41 52 0D 0A 09 4C 44 _PRINT_CHAR...LD
019520: 20 41 2C 31 30 0D 0A 09 43 41 4C 4C 20 4D 43 5F A,10...CALL MC_
019530: 50 52 49 4E 54 5F 43 48 41 52 09 3B 6C 66 2B 63 PRINT_CHAR.;lf+c
019540: 72 0D 0A 2E 43 4C 49 50 58 32 09 43 41 4C 4C 20 r...CLIPX2.CALL
019550: 57 49 4E 44 4F 57 5F 50 41 47 45 0D 0A 09 43 41 WINDOW_PAGE...CA
019560: 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 5F 43 55 LL PRINT_DATA_CU
019570: 52 53 4F 52 0D 0A 09 4C 44 20 41 2C 26 46 46 0D RSOR...LD A,&FF.
019580: 0A 09 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D ..RET....;------
019590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0195A0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 43 4C 49 50 20 -------..;.CLIP
0195B0: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
0195C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0195D0: 0D 0A 2E 43 4C 49 50 0D 0A 09 4C 44 20 48 4C 2C ...CLIP...LD HL,
0195E0: 30 0D 0A 09 4C 44 20 43 2C 31 3A 4C 44 20 42 2C 0...LD C,1:LD B,
0195F0: 38 30 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 80...CALL WINDOW
019600: 0D 0A 09 43 41 4C 4C 20 4D 4F 56 45 5F 43 55 52 ...CALL MOVE_CUR
019610: 53 4F 52 0D 0A 09 43 50 20 26 46 43 0D 0A 09 4A SOR...CP &FC...J
019620: 50 20 5A 2C 57 49 4E 44 4F 57 5F 50 41 47 45 0D P Z,WINDOW_PAGE.
019630: 0A 09 4C 44 20 41 2C 37 0D 0A 09 43 41 4C 4C 20 ..LD A,7...CALL
019640: 26 42 42 35 41 09 3B 53 4F 55 4E 44 20 41 20 42 &BB5A.;SOUND A B
019650: 45 45 50 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 EEP.. LD
019660: 48 4C 2C 28 59 29 0D 0A 09 4C 44 20 28 43 4C 49 HL,(Y)...LD (CLI
019670: 50 59 29 2C 48 4C 0D 0A 09 50 55 53 48 20 48 4C PY),HL...PUSH HL
019680: 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 43 41 4C 4C ...POP HL...CALL
019690: 20 4D 4F 56 45 43 55 52 30 0D 0A 09 43 50 20 26 MOVECUR0...CP &
0196A0: 46 43 0D 0A 09 4A 50 20 5A 2C 57 49 4E 44 4F 57 FC...JP Z,WINDOW
0196B0: 5F 50 41 47 45 0D 0A 09 4C 44 20 48 4C 2C 28 59 _PAGE...LD HL,(Y
0196C0: 29 0D 0A 09 4C 44 20 44 45 2C 28 43 4C 49 50 59 )...LD DE,(CLIPY
0196D0: 29 0D 0A 09 4C 44 20 41 2C 45 0D 0A 09 43 50 20 )...LD A,E...CP
0196E0: 4C 0D 0A 09 4A 50 20 5A 2C 53 4F 52 54 58 0D 0A L...JP Z,SORTX..
0196F0: 09 43 41 4C 4C 20 43 2C 43 4C 49 50 53 57 41 50 .CALL C,CLIPSWAP
019700: 0D 0A 2E 43 4C 49 50 32 09 0D 0A 09 4C 44 20 48 ...CLIP2....LD H
019710: 4C 2C 28 59 29 0D 0A 20 20 20 20 20 20 20 20 50 L,(Y).. P
019720: 55 53 48 20 48 4C 0D 0A 09 4C 44 20 44 45 2C 28 USH HL...LD DE,(
019730: 43 4C 49 50 59 29 0D 0A 09 4C 44 20 42 43 2C 31 CLIPY)...LD BC,1
019740: 0D 0A 2E 43 4C 49 50 33 09 43 41 4C 4C 20 4E 45 ...CLIP3.CALL NE
019750: 58 54 43 48 41 52 0D 0A 09 43 41 4C 4C 20 43 55 XTCHAR...CALL CU
019760: 52 53 4F 52 0D 0A 09 49 4E 43 20 42 43 0D 0A 20 RSOR...INC BC..
019770: 20 20 20 20 20 20 20 4C 44 20 41 2C 44 0D 0A 09 LD A,D...
019780: 43 50 20 48 0D 0A 09 4A 52 20 4E 5A 2C 43 4C 49 CP H...JR NZ,CLI
019790: 50 33 0D 0A 09 4C 44 20 41 2C 45 0D 0A 09 43 50 P3...LD A,E...CP
0197A0: 20 4C 0D 0A 09 4A 52 20 4E 5A 2C 43 4C 49 50 33 L...JR NZ,CLIP3
0197B0: 0D 0A 09 43 41 4C 4C 20 43 55 52 53 4F 52 0D 0A ...CALL CURSOR..
0197C0: 09 4C 44 20 28 43 4C 49 50 4C 45 4E 29 2C 42 43 .LD (CLIPLEN),BC
0197D0: 0D 0A 09 4C 44 20 49 58 2C 59 45 53 4E 4F 42 4F ...LD IX,YESNOBO
0197E0: 52 44 0D 0A 09 43 41 4C 4C 20 4D 42 4F 52 44 45 RD...CALL MBORDE
0197F0: 52 0D 0A 09 4C 44 20 48 4C 2C 33 36 2A 32 35 36 R...LD HL,36*256
019800: 2B 31 32 0D 0A 09 4C 44 20 28 59 29 2C 48 4C 09 +12...LD (Y),HL.
019810: 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C .. LD HL,
019820: 4F 4B 0D 0A 09 43 41 4C 4C 20 54 45 58 54 0D 0A OK...CALL TEXT..
019830: 09 43 41 4C 4C 20 59 45 53 4E 4F 0D 0A 09 50 4F .CALL YESNO...PO
019840: 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 4C 44 P HL.. LD
019850: 20 28 59 29 2C 48 4C 0D 0A 09 50 55 53 48 20 41 (Y),HL...PUSH A
019860: 46 0D 0A 09 43 41 4C 4C 20 47 45 54 41 44 44 52 F...CALL GETADDR
019870: 45 53 53 0D 0A 09 4C 44 20 42 43 2C 28 43 4C 49 ESS...LD BC,(CLI
019880: 50 4C 45 4E 29 0D 0A 09 50 4F 50 20 41 46 0D 0A PLEN)...POP AF..
019890: 20 20 20 20 20 20 20 20 52 45 54 0D 0A 0D 0A 2E RET.....
0198A0: 53 4F 52 54 58 0D 0A 09 4C 44 20 41 2C 44 0D 0A SORTX...LD A,D..
0198B0: 09 43 50 20 48 0D 0A 09 4A 50 20 5A 2C 57 49 4E .CP H...JP Z,WIN
0198C0: 44 4F 57 5F 50 41 47 45 0D 0A 09 43 41 4C 4C 20 DOW_PAGE...CALL
0198D0: 43 2C 43 4C 49 50 53 57 41 50 0D 0A 09 4A 50 20 C,CLIPSWAP...JP
0198E0: 43 4C 49 50 32 0D 0A 0D 0A 43 4C 49 50 53 57 41 CLIP2....CLIPSWA
0198F0: 50 0D 0A 09 4C 44 20 48 4C 2C 28 43 4C 49 50 59 P...LD HL,(CLIPY
019900: 29 0D 0A 09 4C 44 20 44 45 2C 28 59 29 0D 0A 09 )...LD DE,(Y)...
019910: 4C 44 20 28 43 4C 49 50 59 29 2C 44 45 0D 0A 09 LD (CLIPY),DE...
019920: 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 52 45 54 0D LD (Y),HL...RET.
019930: 0A 2E 59 45 53 4E 4F 42 4F 52 44 0D 0A 42 59 54 ..YESNOBORD..BYT
019940: 45 20 33 34 2C 31 31 2C 33 2C 31 32 0D 0A 4F 4B E 34,11,3,12..OK
019950: 09 53 54 52 20 22 4F 4B 20 28 59 2F 4E 29 22 0D .STR "OK (Y/N)".
019960: 0A 0D 0A 0D 0A 0D 0A 2E 4E 45 58 54 43 48 41 52 ........NEXTCHAR
019970: 0D 0A 09 4C 44 20 48 4C 2C 28 59 29 0D 0A 09 49 ...LD HL,(Y)...I
019980: 4E 43 20 48 0D 0A 09 4C 44 20 41 2C 48 0D 0A 09 NC H...LD A,H...
019990: 43 50 20 38 30 0D 0A 09 4A 52 20 4E 5A 2C 4E 45 CP 80...JR NZ,NE
0199A0: 58 54 43 45 0D 0A 09 49 4E 43 20 4C 0D 0A 09 4C XTCE...INC L...L
0199B0: 44 20 41 2C 4C 0D 0A 09 43 50 20 32 35 0D 0A 20 D A,L...CP 25..
0199C0: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 4E 45 58 JR NZ,NEX
0199D0: 54 43 45 31 0D 0A 09 4C 44 20 4C 2C 30 0D 0A 4E TCE1...LD L,0..N
0199E0: 45 58 54 43 45 31 09 4C 44 20 48 2C 30 0D 0A 4E EXTCE1.LD H,0..N
0199F0: 45 58 54 43 45 09 4C 44 20 28 59 29 2C 48 4C 0D EXTCE.LD (Y),HL.
019A00: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
019A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019A20: 2D 2D 2D 2D 0D 0A 3B 09 4D 4F 56 45 20 43 55 52 ----..;.MOVE CUR
019A30: 53 4F 52 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D SOR..;----------
019A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019A50: 2D 2D 0D 0A 2E 4D 4F 56 45 5F 43 55 52 53 4F 52 --...MOVE_CURSOR
019A60: 0D 0A 09 4C 44 20 48 4C 2C 30 0D 0A 2E 4D 4F 56 ...LD HL,0...MOV
019A70: 45 43 55 52 30 0D 0A 20 20 20 20 20 20 20 20 4C ECUR0.. L
019A80: 44 20 28 59 29 2C 48 4C 0D 0A 09 43 41 4C 4C 20 D (Y),HL...CALL
019A90: 43 55 52 53 4F 52 0D 0A 2E 43 55 52 53 4F 52 4B CURSOR...CURSORK
019AA0: 45 59 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 57 41 49 EY...CALL KM_WAI
019AB0: 54 5F 43 48 41 52 0D 0A 09 43 50 20 26 46 43 0D T_CHAR...CP &FC.
019AC0: 0A 09 52 45 54 20 5A 0D 0A 09 43 50 20 26 45 30 ..RET Z...CP &E0
019AD0: 0D 0A 09 52 45 54 20 5A 0D 0A 09 43 50 20 26 45 ...RET Z...CP &E
019AE0: 31 0D 0A 09 52 45 54 20 5A 0D 0A 09 43 50 20 38 1...RET Z...CP 8
019AF0: 0D 0A 09 4A 52 20 5A 2C 43 55 52 53 4F 52 5F 4C ...JR Z,CURSOR_L
019B00: 45 46 54 0D 0A 09 43 50 20 39 0D 0A 09 4A 52 20 EFT...CP 9...JR
019B10: 5A 2C 43 55 52 53 4F 52 5F 52 49 47 48 54 0D 0A Z,CURSOR_RIGHT..
019B20: 09 43 50 20 31 30 0D 0A 09 4A 52 20 5A 2C 43 55 .CP 10...JR Z,CU
019B30: 52 53 4F 52 5F 44 4F 57 4E 0D 0A 09 43 50 20 31 RSOR_DOWN...CP 1
019B40: 31 0D 0A 09 4A 52 20 4E 5A 2C 43 55 52 53 4F 52 1...JR NZ,CURSOR
019B50: 4B 45 59 0D 0A 09 43 41 4C 4C 20 43 55 52 53 4F KEY...CALL CURSO
019B60: 52 0D 0A 09 44 45 43 20 4C 0D 0A 09 4C 44 20 41 R...DEC L...LD A
019B70: 2C 4C 0D 0A 09 43 50 20 32 35 35 0D 0A 09 4A 52 ,L...CP 255...JR
019B80: 20 4E 5A 2C 4D 4F 56 45 43 55 52 30 0D 0A 09 4C NZ,MOVECUR0...L
019B90: 44 20 4C 2C 30 0D 0A 09 4A 52 20 4D 4F 56 45 43 D L,0...JR MOVEC
019BA0: 55 52 30 0D 0A 2E 43 55 52 53 4F 52 5F 4C 45 46 UR0...CURSOR_LEF
019BB0: 54 0D 0A 09 43 41 4C 4C 20 43 55 52 53 4F 52 0D T...CALL CURSOR.
019BC0: 0A 09 44 45 43 20 48 0D 0A 20 20 20 20 20 20 20 ..DEC H..
019BD0: 20 4C 44 20 41 2C 48 0D 0A 09 43 50 20 32 35 35 LD A,H...CP 255
019BE0: 0D 0A 09 4A 52 20 4E 5A 2C 4D 4F 56 45 43 55 52 ...JR NZ,MOVECUR
019BF0: 30 0D 0A 09 4C 44 20 48 2C 30 0D 0A 09 4A 52 20 0...LD H,0...JR
019C00: 4D 4F 56 45 43 55 52 30 0D 0A 2E 43 55 52 53 4F MOVECUR0...CURSO
019C10: 52 5F 52 49 47 48 54 0D 0A 09 43 41 4C 4C 20 43 R_RIGHT...CALL C
019C20: 55 52 53 4F 52 0D 0A 09 49 4E 43 20 48 0D 0A 20 URSOR...INC H..
019C30: 20 20 20 20 20 20 20 4C 44 20 41 2C 48 0D 0A 09 LD A,H...
019C40: 43 50 20 38 30 0D 0A 09 4A 52 20 4E 5A 2C 4D 4F CP 80...JR NZ,MO
019C50: 56 45 43 55 52 30 0D 0A 09 4C 44 20 48 2C 37 39 VECUR0...LD H,79
019C60: 0D 0A 09 4A 52 20 4D 4F 56 45 43 55 52 30 0D 0A ...JR MOVECUR0..
019C70: 2E 43 55 52 53 4F 52 5F 44 4F 57 4E 0D 0A 09 43 .CURSOR_DOWN...C
019C80: 41 4C 4C 20 43 55 52 53 4F 52 0D 0A 09 49 4E 43 ALL CURSOR...INC
019C90: 20 4C 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 L.. LD A
019CA0: 2C 4C 0D 0A 09 43 50 20 32 36 0D 0A 09 4A 52 20 ,L...CP 26...JR
019CB0: 4E 5A 2C 4D 4F 56 45 43 55 52 30 0D 0A 09 4C 44 NZ,MOVECUR0...LD
019CC0: 20 4C 2C 32 34 0D 0A 09 4A 52 20 4D 4F 56 45 43 L,24...JR MOVEC
019CD0: 55 52 30 0D 0A 0D 0A 0D 0A 0D 0A 4B 4D 5F 53 45 UR0........KM_SE
019CE0: 54 5F 54 52 41 4E 53 4C 41 54 45 09 45 51 55 09 T_TRANSLATE.EQU.
019CF0: 26 42 42 32 37 0D 0A 4B 4D 5F 53 45 54 5F 45 58 &BB27..KM_SET_EX
019D00: 50 41 4E 44 09 09 45 51 55 09 26 42 42 30 46 0D PAND..EQU.&BB0F.
019D10: 0A 4B 4D 5F 53 45 54 5F 43 4F 4E 54 52 4F 4C 09 .KM_SET_CONTROL.
019D20: 09 45 51 55 09 26 42 42 33 33 0D 0A 3B 2D 2D 2D .EQU.&BB33..;---
019D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019D40: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 53 45 54 20 --------..;.SET
019D50: 55 50 20 4B 45 59 53 0D 0A 3B 09 55 73 65 64 20 UP KEYS..;.Used
019D60: 41 4C 4C 20 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ALL ..;---------
019D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019D80: 2D 2D 0D 0A 0D 0A 0D 0A 2E 53 45 54 5F 4B 45 59 --.......SET_KEY
019D90: 53 0D 0A 09 4C 44 20 48 4C 2C 4B 65 79 73 0D 0A S...LD HL,Keys..
019DA0: 2E 53 45 54 4B 32 09 4C 44 20 41 2C 28 48 4C 29 .SETK2.LD A,(HL)
019DB0: 0D 0A 20 20 20 20 20 20 20 20 43 50 20 26 46 46 .. CP &FF
019DC0: 0D 0A 09 52 45 54 20 5A 0D 0A 20 20 20 20 20 20 ...RET Z..
019DD0: 20 20 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 42 2C INC HL...LD B,
019DE0: 28 48 4C 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 (HL)...INC HL...
019DF0: 50 55 53 48 20 48 4C 0D 0A 09 43 41 4C 4C 20 4B PUSH HL...CALL K
019E00: 4D 5F 53 45 54 5F 54 52 41 4E 53 4C 41 54 45 0D M_SET_TRANSLATE.
019E10: 0A 09 50 4F 50 20 48 4C 0D 0A 09 4A 50 20 53 45 ..POP HL...JP SE
019E20: 54 4B 32 0D 0A 0D 0A 0D 0A 0D 0A 2E 4D 55 4C 54 TK2.........MULT
019E30: 48 4C 38 30 0D 0A 20 09 50 55 53 48 20 42 43 0D HL80.. .PUSH BC.
019E40: 0A 09 41 44 44 20 48 4C 2C 48 4C 09 09 09 3B 20 ..ADD HL,HL...;
019E50: 32 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 09 09 09 2...ADD HL,HL...
019E60: 3B 20 34 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 09 ; 4...ADD HL,HL.
019E70: 09 09 3B 20 38 0D 0A 09 41 44 44 20 48 4C 2C 48 ..; 8...ADD HL,H
019E80: 4C 09 09 09 3B 20 31 36 0D 0A 09 4C 44 20 42 2C L...; 16...LD B,
019E90: 48 0D 0A 09 4C 44 20 43 2C 4C 09 20 20 20 20 20 H...LD C,L.
019EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019EB0: 20 20 20 3B 20 42 43 3D 2A 31 36 0D 0A 09 41 44 ; BC=*16...AD
019EC0: 44 20 48 4C 2C 48 4C 09 09 09 3B 20 33 32 0D 0A D HL,HL...; 32..
019ED0: 09 41 44 44 20 48 4C 2C 48 4C 09 09 09 3B 20 36 .ADD HL,HL...; 6
019EE0: 34 0D 0A 09 41 44 44 20 48 4C 2C 42 43 09 09 09 4...ADD HL,BC...
019EF0: 3B 20 38 30 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 ; 80...POP BC...
019F00: 52 45 54 0D 0A 0D 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A RET....;********
019F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
019F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
019F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
019F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
019F50: 0D 0A 0D 0A 31 20 50 52 49 4E 54 20 22 44 69 61 ....1 PRINT "Dia
019F60: 6C 69 6E 67 20 72 6F 75 74 69 6E 65 73 22 0D 0A ling routines"..
019F70: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
019F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019F90: 2D 2D 2D 2D 0D 0A 3B 09 53 65 6C 65 63 74 20 61 ----..;.Select a
019FA0: 20 62 62 73 20 61 6E 64 20 64 69 61 6C 20 69 74 bbs and dial it
019FB0: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
019FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019FD0: 2D 2D 2D 2D 2D 2D 0D 0A 2E 44 69 61 6C 0D 0A 09 ------...Dial...
019FE0: 4C 44 20 49 58 2C 44 69 61 6C 5F 4D 61 69 6E 6D LD IX,Dial_Mainm
019FF0: 65 6E 75 0D 0A 09 4C 44 20 28 49 58 2B 31 30 29 enu...LD (IX+10)
01A000: 2C 30 0D 0A 09 4A 50 20 50 55 4C 4C 44 4F 57 4E ,0...JP PULLDOWN
01A010: 0D 0A 0D 0A 2E 44 69 61 6C 75 70 0D 0A 09 43 41 .....Dialup...CA
01A020: 4C 4C 20 42 42 53 5F 4C 49 53 54 5F 57 49 4E 44 LL BBS_LIST_WIND
01A030: 4F 57 09 3B 20 50 75 6C 6C 20 64 6F 77 6E 20 62 OW.; Pull down b
01A040: 62 73 20 6C 69 73 74 0D 0A 0D 0A 2E 44 69 61 30 bs list.....Dia0
01A050: 09 58 4F 52 20 41 0D 0A 09 4C 44 20 49 58 2C 42 .XOR A...LD IX,B
01A060: 42 53 4C 49 53 54 09 09 3B 20 57 69 6E 64 6F 77 BSLIST..; Window
01A070: 20 64 61 74 61 0D 0A 2E 64 69 61 33 09 43 41 4C data...dia3.CAL
01A080: 4C 20 42 42 53 43 55 52 53 4F 52 09 09 3B 20 53 L BBSCURSOR..; S
01A090: 65 6C 65 63 74 20 62 62 73 0D 0A 09 43 50 20 26 elect bbs...CP &
01A0A0: 45 30 09 09 09 3B 20 63 6F 70 79 0D 0A 09 6A 70 E0...; copy...jp
01A0B0: 20 64 69 61 6C 5F 6E 75 6D 62 65 72 0D 0A 09 43 dial_number...C
01A0C0: 50 20 26 46 43 09 09 09 3B 20 65 73 63 0D 0A 09 P &FC...; esc...
01A0D0: 4A 52 20 4E 5A 2C 44 49 41 33 0D 0A 2E 44 69 61 JR NZ,DIA3...Dia
01A0E0: 6C 77 69 70 65 0D 0A 09 4C 44 20 49 58 2C 42 42 lwipe...LD IX,BB
01A0F0: 53 4C 49 53 54 09 09 3B 20 52 65 74 75 72 6E 0D SLIST..; Return.
01A100: 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 5F 57 49 ..CALL WINDOW_WI
01A110: 50 45 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 41 PE.. LD A
01A120: 2C 26 46 46 0D 0A 09 52 45 54 09 09 09 3B 20 52 ,&FF...RET...; R
01A130: 65 74 75 72 6E 20 62 61 63 6B 20 74 6F 20 64 61 eturn back to da
01A140: 74 61 20 6C 69 6E 65 20 2D 20 45 67 20 45 53 43 ta line - Eg ESC
01A150: 20 68 69 74 0D 0A 0D 0A 2E 64 69 61 6C 5F 6E 75 hit.....dial_nu
01A160: 6D 62 65 72 0D 0A 09 6C 64 20 68 6C 2C 64 69 61 mber...ld hl,dia
01A170: 6C 70 72 65 66 69 78 0D 0A 09 6C 64 20 61 2C 28 lprefix...ld a,(
01A180: 70 72 65 66 69 78 5F 6C 65 6E 29 0D 0A 09 63 70 prefix_len)...cp
01A190: 20 30 0D 0A 09 6A 72 20 7A 2C 64 69 61 6C 73 6B 0...jr z,dialsk
01A1A0: 69 70 0D 0A 09 6C 64 20 62 2C 61 0D 0A 09 43 41 ip...ld b,a...CA
01A1B0: 4C 4C 20 4F 55 54 53 54 52 09 09 3B 6F 75 74 70 LL OUTSTR..;outp
01A1C0: 75 74 20 70 72 65 66 69 78 20 69 66 20 6E 6F 74 ut prefix if not
01A1D0: 20 30 20 6C 65 6E 0D 0A 09 43 41 4C 4C 20 47 45 0 len...CALL GE
01A1E0: 54 5F 50 48 4E 55 4D 42 45 52 0D 0A 09 4C 44 20 T_PHNUMBER...LD
01A1F0: 44 45 2C 34 30 0D 0A 09 41 44 44 20 48 4C 2C 44 DE,40...ADD HL,D
01A200: 45 0D 0A 09 4C 44 20 42 2C 31 30 0D 0A 09 43 41 E...LD B,10...CA
01A210: 4C 4C 20 4F 55 54 53 54 52 09 09 3B 6F 75 74 20 LL OUTSTR..;out
01A220: 6E 75 6D 62 65 72 0D 0A 09 4C 44 20 41 2C 31 33 number...LD A,13
01A230: 0D 0A 09 63 61 6C 6C 20 4F 55 54 50 55 54 09 09 ...call OUTPUT..
01A240: 3B 20 2B 20 63 72 0D 0A 20 20 20 20 20 20 20 20 ; + cr..
01A250: 43 41 4C 4C 20 50 55 52 47 45 5F 42 55 46 09 09 CALL PURGE_BUF..
01A260: 3B 43 6C 65 61 72 20 62 75 66 66 65 72 0D 0A 2E ;Clear buffer...
01A270: 64 69 61 6C 73 6B 69 70 0D 0A 09 4C 44 20 41 2C dialskip...LD A,
01A280: 28 44 49 41 4C 54 49 4D 45 4F 55 54 29 0D 0A 20 (DIALTIMEOUT)..
01A290: 20 20 20 20 20 20 20 43 41 4C 4C 20 57 41 49 54 CALL WAIT
01A2A0: 5F 4D 4F 44 45 4D 09 09 3B 77 61 69 74 20 66 6F _MODEM..;wait fo
01A2B0: 72 20 6D 6F 64 65 6D 20 65 74 63 0D 0A 09 43 50 r modem etc...CP
01A2C0: 20 26 46 46 0D 0A 09 4A 52 20 5A 2C 4E 4F 5F 41 &FF...JR Z,NO_A
01A2D0: 4E 53 57 45 52 09 09 3B 74 68 65 72 65 73 20 62 NSWER..;theres b
01A2E0: 65 65 6E 20 62 6F 20 61 6E 73 77 65 72 2F 6F 72 een bo answer/or
01A2F0: 20 6B 65 79 20 70 72 65 73 73 65 64 2F 74 69 6D key pressed/tim
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 4E E5 16 00 C1 02 00 00 00 02 ......N.........
01A320: 16 00 C2 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A330: 16 00 C4 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A340: 16 00 C6 02 00 00 00 02 16 00 C7 02 00 00 00 02 ................
01A350: 16 00 C8 02 00 00 00 02 16 00 C9 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 65 6F 75 74 0D 0A 09 43 50 20 26 46 43 0D 0A 09 eout...CP &FC...
01A410: 4A 52 20 5A 2C 4E 4F 5F 41 4E 53 57 45 52 0D 0A JR Z,NO_ANSWER..
01A420: 2E 44 69 61 6C 5F 65 78 69 74 0D 0A 09 43 41 4C .Dial_exit...CAL
01A430: 4C 20 43 4C 45 41 52 5F 42 55 46 0D 0A 09 43 41 L CLEAR_BUF...CA
01A440: 4C 4C 20 43 4C 53 5F 53 43 52 45 45 4E 09 09 3B LL CLS_SCREEN..;
01A450: 20 43 6C 65 61 72 20 70 61 67 65 20 2F 20 45 78 Clear page / Ex
01A460: 69 74 20 62 61 63 6B 20 65 67 20 63 61 72 72 69 it back eg carri
01A470: 65 72 20 66 6F 75 6E 64 0D 0A 09 58 4F 52 20 41 er found...XOR A
01A480: 0D 0A 09 52 45 54 09 09 09 3B 20 45 78 69 74 0D ...RET...; Exit.
01A490: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
01A4A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A4B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
01A4C0: 0D 0A 2E 4E 4F 5F 41 4E 53 57 45 52 0D 0A 20 20 ...NO_ANSWER..
01A4D0: 20 20 20 20 20 20 50 55 53 48 20 41 46 0D 0A 09 PUSH AF...
01A4E0: 4C 44 20 41 2C 31 33 09 09 09 3B 20 49 66 20 6E LD A,13...; If n
01A4F0: 6F 20 61 6E 73 77 65 72 20 73 65 6E 64 20 6F 75 o answer send ou
01A500: 74 20 32 20 63 68 61 72 73 20 28 63 61 6E 63 65 t 2 chars (cance
01A510: 6C 20 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 l ...CALL OUTPUT
01A520: 09 09 3B 20 74 68 65 20 6D 6F 64 65 6D 29 20 74 ..; the modem) t
01A530: 68 65 6E 20 72 65 74 20 74 6F 20 74 68 65 20 6D hen ret to the m
01A540: 65 6E 75 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 enu...CALL OUTPU
01A550: 54 0D 0A 09 50 4F 50 20 41 46 0D 0A 09 43 50 20 T...POP AF...CP
01A560: 26 46 43 0D 0A 09 4A 50 20 4E 5A 2C 44 69 61 33 &FC...JP NZ,Dia3
01A570: 20 09 09 3B 20 57 61 69 74 20 66 6F 72 20 61 6E ..; Wait for an
01A580: 6F 74 68 65 72 20 6B 65 79 0D 0A 09 43 41 4C 4C other key...CALL
01A590: 20 57 69 6E 64 6F 77 5F 77 69 70 65 09 3B 20 43 Window_wipe.; C
01A5A0: 6C 65 61 72 20 77 69 6E 64 6F 77 0D 0A 09 4A 50 lear window...JP
01A5B0: 20 64 69 61 30 09 09 09 3B 20 53 65 6C 65 63 74 dia0...; Select
01A5C0: 20 66 6F 72 6D 20 44 2E 44 0D 0A 0D 0A 2E 52 45 form D.D.....RE
01A5D0: 53 42 55 46 0D 0A 09 44 49 0D 0A 09 4C 44 20 48 SBUF...DI...LD H
01A5E0: 4C 2C 52 5F 42 75 66 66 65 72 5F 53 74 61 72 74 L,R_Buffer_Start
01A5F0: 0D 0A 09 4C 44 20 28 49 6E 70 75 74 4C 6F 77 29 ...LD (InputLow)
01A600: 2C 48 4C 0D 0A 09 4C 44 20 28 49 6E 70 75 74 48 ,HL...LD (InputH
01A610: 69 67 68 29 2C 48 4C 0D 0A 09 45 49 0D 0A 09 52 igh),HL...EI...R
01A620: 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ET....;---------
01A630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 42 42 53 ----------...BBS
01A650: 5F 4C 69 73 74 5F 57 69 6E 64 6F 77 0D 0A 09 4C _List_Window...L
01A660: 44 20 49 58 2C 42 42 53 4C 49 53 54 0D 0A 09 43 D IX,BBSLIST...C
01A670: 41 4C 4C 20 4D 42 4F 52 44 45 52 09 09 3B 70 75 ALL MBORDER..;pu
01A680: 6C 6C 20 64 6F 77 6E 20 77 69 6E 64 6F 77 0D 0A ll down window..
01A690: 09 4C 44 20 48 4C 2C 44 49 41 4C 5F 44 49 52 09 .LD HL,DIAL_DIR.
01A6A0: 0D 0A 09 4C 44 20 44 45 2C 31 35 2A 32 35 36 2B ...LD DE,15*256+
01A6B0: 33 09 09 3B 73 65 74 20 6C 6F 63 61 74 65 73 0D 3..;set locates.
01A6C0: 0A 20 20 20 20 20 20 20 20 4C 44 20 43 2C 32 30 . LD C,20
01A6D0: 09 09 09 3B 32 30 20 69 6E 20 61 20 6C 69 73 74 ...;20 in a list
01A6E0: 0D 0A 2E 62 6C 77 30 09 4C 44 20 28 59 29 2C 44 ...blw0.LD (Y),D
01A6F0: 45 0D 0A 09 50 55 53 48 20 44 45 09 09 09 3B 73 E...PUSH DE...;s
01A700: 61 76 65 20 78 2C 79 0D 0A 0D 0A 09 4C 44 20 42 ave x,y.....LD B
01A710: 2C 34 30 09 09 09 3B 6E 61 6D 65 20 69 73 20 34 ,40...;name is 4
01A720: 30 20 6C 6F 6E 67 0D 0A 2E 62 6C 77 31 09 4C 44 0 long...blw1.LD
01A730: 20 41 2C 28 48 4C 29 0D 0A 09 49 4E 43 20 48 4C A,(HL)...INC HL
01A740: 0D 0A 09 43 41 4C 4C 20 57 52 49 54 45 5F 43 48 ...CALL WRITE_CH
01A750: 41 52 0D 0A 09 44 4A 4E 5A 20 42 4C 57 31 09 09 AR...DJNZ BLW1..
01A760: 3B 70 72 69 6E 74 20 0D 0A 09 4C 44 20 41 2C 28 ;print ...LD A,(
01A770: 58 29 0D 0A 09 41 44 44 20 32 0D 0A 09 4C 44 20 X)...ADD 2...LD
01A780: 28 58 29 2C 41 09 09 3B 74 61 62 20 32 20 73 70 (X),A..;tab 2 sp
01A790: 61 63 65 73 0D 0A 0D 0A 09 4C 44 20 42 2C 31 30 aces.....LD B,10
01A7A0: 0D 0A 2E 62 6C 77 32 09 4C 44 20 41 2C 28 48 4C ...blw2.LD A,(HL
01A7B0: 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 43 41 4C )...INC HL...CAL
01A7C0: 4C 20 57 52 49 54 45 5F 43 48 41 52 0D 0A 09 44 L WRITE_CHAR...D
01A7D0: 4A 4E 5A 20 42 4C 57 32 09 09 3B 61 6E 64 20 70 JNZ BLW2..;and p
01A7E0: 72 69 6E 74 20 6E 75 6D 62 65 72 0D 0A 0D 0A 0D rint number.....
01A7F0: 0A 09 50 4F 50 20 44 45 09 09 09 3B 67 65 74 20 ..POP DE...;get
01A800: 78 2C 79 0D 0A 09 49 4E 43 20 45 0D 0A 09 4C 44 x,y...INC E...LD
01A810: 20 28 59 29 2C 44 45 09 09 3B 69 6E 63 20 79 20 (Y),DE..;inc y
01A820: 61 6E 64 20 6C 6F 6F 70 0D 0A 09 44 45 43 20 43 and loop...DEC C
01A830: 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 4F 52 20 41 ...LD A,C...OR A
01A840: 0D 0A 09 4A 52 20 4E 5A 2C 42 4C 57 30 09 09 3B ...JR NZ,BLW0..;
01A850: 69 66 20 6E 6F 74 20 61 6C 6C 20 32 30 20 74 68 if not all 20 th
01A860: 65 6E 20 63 6F 6E 74 0D 0A 20 20 20 20 20 20 20 en cont..
01A870: 20 52 45 54 09 09 09 3B 72 65 74 0D 0A 3B 2D 2D RET...;ret..;--
01A880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -------------...
01A8A0: 0A 0D 0A 0D 0A 2E 47 65 74 5F 50 48 4E 75 6D 62 ......Get_PHNumb
01A8B0: 65 72 0D 0A 09 4C 44 20 41 2C 28 4D 43 55 52 59 er...LD A,(MCURY
01A8C0: 29 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 4C 44 20 )...LD L,A...LD
01A8D0: 48 2C 30 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 09 H,0...ADD HL,HL.
01A8E0: 3B 2A 32 0D 0A 09 4C 44 20 45 2C 4C 0D 0A 09 4C ;*2...LD E,L...L
01A8F0: 44 20 44 2C 48 09 09 3B 20 20 44 45 3D 2A 32 0D D D,H..; DE=*2.
01A900: 0A 09 41 44 44 20 48 4C 2C 48 4C 09 3B 2A 34 0D ..ADD HL,HL.;*4.
01A910: 0A 09 41 44 44 20 48 4C 2C 48 4C 09 3B 2A 38 0D ..ADD HL,HL.;*8.
01A920: 0A 09 41 44 44 20 48 4C 2C 48 4C 09 3B 2A 31 36 ..ADD HL,HL.;*16
01A930: 0D 0A 09 4C 44 20 43 2C 4C 0D 0A 09 4C 44 20 42 ...LD C,L...LD B
01A940: 2C 48 09 09 3B 62 63 3D 2A 31 36 0D 0A 09 41 44 ,H..;bc=*16...AD
01A950: 44 20 48 4C 2C 48 4C 09 3B 2A 33 32 0D 0A 09 41 D HL,HL.;*32...A
01A960: 44 44 20 48 4C 2C 42 43 09 3B 2A 34 38 0D 0A 09 DD HL,BC.;*48...
01A970: 41 44 44 20 48 4C 2C 44 45 09 3B 2A 35 30 0D 0A ADD HL,DE.;*50..
01A980: 09 4C 44 20 44 45 2C 44 49 41 4C 5F 44 49 52 0D .LD DE,DIAL_DIR.
01A990: 0A 09 41 44 44 20 48 4C 2C 44 45 09 3B 2A 35 30 ..ADD HL,DE.;*50
01A9A0: 2B 62 61 63 65 0D 0A 09 52 45 54 0D 0A 0D 0A 0D +bace...RET.....
01A9B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 0D . ...
01A9C0: 0A 2E 44 49 52 5F 45 52 52 4F 52 0D 0A 09 4E 4F ..DIR_ERROR...NO
01A9D0: 50 0D 0A 09 50 55 53 48 20 49 58 0D 0A 09 4C 44 P...PUSH IX...LD
01A9E0: 20 49 58 2C 4C 6F 61 44 69 72 45 72 72 0D 0A 09 IX,LoaDirErr...
01A9F0: 43 41 4C 4C 20 4D 42 4F 52 44 45 52 0D 0A 09 4C CALL MBORDER...L
01AA00: 44 20 48 4C 2C 33 35 2A 32 35 36 2B 31 31 0D 0A D HL,35*256+11..
01AA10: 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 09 4C 44 20 .LD (Y),HL...LD
01AA20: 48 4C 2C 4C 4F 41 44 49 52 4D 53 47 0D 0A 20 20 HL,LOADIRMSG..
01AA30: 20 20 20 20 20 20 43 41 4C 4C 20 41 4E 53 49 54 CALL ANSIT
01AA40: 45 58 54 0D 0A 09 43 41 4C 4C 20 4B 4D 5F 57 41 EXT...CALL KM_WA
01AA50: 49 54 5F 43 48 41 52 0D 0A 09 50 4F 50 20 49 58 IT_CHAR...POP IX
01AA60: 0D 0A 09 52 45 54 0D 0A 3B 2D 20 20 2D 20 20 2D ...RET..;- - -
01AA70: 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 - - - - -
01AA80: 20 2D 20 20 2D 20 20 2D 20 20 2D 0D 0A 2E 4C 4F - - - -...LO
01AA90: 41 44 5F 44 49 52 0D 0A 09 43 41 4C 4C 20 44 49 AD_DIR...CALL DI
01AAA0: 53 43 5F 57 49 4E 44 4F 57 0D 0A 09 43 41 4C 4C SC_WINDOW...CALL
01AAB0: 20 43 41 53 5F 49 4E 5F 41 42 41 4E 44 4F 4E 0D CAS_IN_ABANDON.
01AAC0: 0A 20 20 20 20 20 20 20 20 4C 44 20 42 2C 31 30 . LD B,10
01AAD0: 0D 0A 09 4C 44 20 48 4C 2C 44 49 52 46 49 4C 45 ...LD HL,DIRFILE
01AAE0: 4E 41 4D 45 0D 0A 09 4C 44 20 44 45 2C 41 4D 53 NAME...LD DE,AMS
01AAF0: 44 4F 53 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 DOS.. LD
01AB00: 41 2C 22 41 22 0D 0A 09 4C 44 20 28 48 4C 29 2C A,"A"...LD (HL),
01AB10: 41 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 49 4E 5F A...CALL CAS_IN_
01AB20: 4F 50 45 4E 0D 0A 09 4A 50 20 43 2C 4C 4F 41 44 OPEN...JP C,LOAD
01AB30: 49 4E 5F 44 49 52 0D 0A 20 20 20 20 20 20 20 20 IN_DIR..
01AB40: 4C 44 20 42 2C 31 30 0D 0A 09 4C 44 20 48 4C 2C LD B,10...LD HL,
01AB50: 44 49 52 46 49 4C 45 4E 41 4D 45 0D 0A 09 4C 44 DIRFILENAME...LD
01AB60: 20 44 45 2C 41 4D 53 44 4F 53 0D 0A 20 20 20 20 DE,AMSDOS..
01AB70: 20 20 20 20 4C 44 20 41 2C 22 42 22 0D 0A 09 4C LD A,"B"...L
01AB80: 44 20 28 48 4C 29 2C 41 0D 0A 09 43 41 4C 4C 20 D (HL),A...CALL
01AB90: 43 41 53 5F 49 4E 5F 4F 50 45 4E 0D 0A 09 4A 50 CAS_IN_OPEN...JP
01ABA0: 20 4E 43 2C 44 49 52 5F 45 52 52 4F 52 0D 0A 0D NC,DIR_ERROR...
01ABB0: 0A 2E 4C 4F 41 44 49 4E 5F 44 49 52 0D 0A 09 4C ..LOADIN_DIR...L
01ABC0: 44 20 48 4C 2C 44 49 41 4C 5F 44 49 52 0D 0A 09 D HL,DIAL_DIR...
01ABD0: 43 41 4C 4C 20 43 41 53 5F 49 4E 5F 44 49 52 45 CALL CAS_IN_DIRE
01ABE0: 43 54 0D 0A 09 4A 50 20 4E 43 2C 44 49 52 5F 45 CT...JP NC,DIR_E
01ABF0: 52 52 4F 52 0D 0A 09 43 41 4C 4C 20 43 41 53 5F RROR...CALL CAS_
01AC00: 49 4E 5F 43 4C 4F 53 45 0D 0A 09 58 4F 52 20 41 IN_CLOSE...XOR A
01AC10: 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 28 4D 43 .. LD (MC
01AC20: 55 52 59 29 2C 41 09 0D 0A 09 4C 44 20 28 42 42 URY),A....LD (BB
01AC30: 53 59 29 2C 41 09 09 3B 20 53 61 76 65 20 64 69 SY),A..; Save di
01AC40: 72 65 63 74 6F 72 79 20 6E 75 6D 62 65 72 73 0D rectory numbers.
01AC50: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
01AC60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01AC70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 53 41 56 45 ---------...SAVE
01AC80: 5F 44 49 52 0D 0A 09 43 41 4C 4C 20 43 41 53 5F _DIR...CALL CAS_
01AC90: 4F 55 54 5F 41 42 41 4E 44 4F 4E 0D 0A 09 43 41 OUT_ABANDON...CA
01ACA0: 4C 4C 20 44 49 53 43 5F 57 49 4E 44 4F 57 0D 0A LL DISC_WINDOW..
01ACB0: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 38 0D 0A LD B,8..
01ACC0: 09 4C 44 20 48 4C 2C 44 49 52 46 49 4C 45 4E 41 .LD HL,DIRFILENA
01ACD0: 4D 45 2B 32 0D 0A 09 4C 44 20 44 45 2C 41 4D 53 ME+2...LD DE,AMS
01ACE0: 44 4F 53 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 4F DOS...CALL CAS_O
01ACF0: 55 54 5F 4F 50 45 4E 0D 0A 09 4A 50 20 4E 43 2C UT_OPEN...JP NC,
01AD00: 53 41 56 45 5F 44 49 52 5F 45 52 52 4F 52 0D 0A SAVE_DIR_ERROR..
01AD10: 09 4C 44 20 48 4C 2C 44 49 41 4C 5F 44 49 52 0D .LD HL,DIAL_DIR.
01AD20: 0A 09 4C 44 20 44 45 2C 31 31 30 30 0D 0A 09 4C ..LD DE,1100...L
01AD30: 44 20 42 43 2C 30 0D 0A 09 4C 44 20 41 2C 32 0D D BC,0...LD A,2.
01AD40: 0A 09 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 44 ..CALL CAS_OUT_D
01AD50: 49 52 45 43 54 0D 0A 2E 53 41 56 45 5F 44 49 52 IRECT...SAVE_DIR
01AD60: 5F 45 52 52 4F 52 0D 0A 09 43 41 4C 4C 20 43 41 _ERROR...CALL CA
01AD70: 53 5F 4F 55 54 5F 43 4C 4F 53 45 0D 0A 09 4C 44 S_OUT_CLOSE...LD
01AD80: 20 41 2C 26 46 45 0D 0A 09 52 45 54 0D 0A 3B 2D A,&FE...RET..;-
01AD90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01ADA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
01ADB0: 0A 2E 45 72 61 73 65 5F 64 69 72 0D 0A 09 4C 44 ..Erase_dir...LD
01ADC0: 20 42 43 2C 26 37 46 45 0D 0A 09 4C 44 20 48 4C BC,&7FE...LD HL
01ADD0: 2C 44 49 41 4C 5F 44 49 52 0D 0A 09 4C 44 20 44 ,DIAL_DIR...LD D
01ADE0: 45 2C 44 49 41 4C 5F 44 49 52 2B 31 0D 0A 09 4C E,DIAL_DIR+1...L
01ADF0: 44 20 28 48 4C 29 2C 33 32 0D 0A 09 4C 44 49 52 D (HL),32...LDIR
01AE00: 0D 0A 09 4C 44 20 41 2C 26 46 45 0D 0A 09 52 45 ...LD A,&FE...RE
01AE10: 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D T....;----------
01AE20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01AE30: 2D 2D 2D 2D 2D 2D 0D 0A 2E 45 52 41 53 45 5F 4E ------...ERASE_N
01AE40: 41 4D 45 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F AME...CALL WINDO
01AE50: 57 5F 57 49 50 45 0D 0A 09 43 41 4C 4C 20 42 42 W_WIPE...CALL BB
01AE60: 53 5F 4C 49 53 54 5F 57 49 4E 44 4F 57 09 3B 70 S_LIST_WINDOW.;p
01AE70: 75 6C 6C 20 64 6F 77 6E 20 62 62 73 20 6C 69 73 ull down bbs lis
01AE80: 74 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 t.. CALL
01AE90: 42 42 53 43 55 52 53 4F 52 0D 0A 0D 0A 09 43 41 BBSCURSOR.....CA
01AEA0: 4C 4C 20 47 45 54 5F 50 48 4E 55 4D 42 45 52 0D LL GET_PHNUMBER.
01AEB0: 0A 09 4C 44 20 42 2C 35 30 0D 0A 45 52 41 53 4C ..LD B,50..ERASL
01AEC0: 50 09 4C 44 20 28 48 4C 29 2C 33 32 0D 0A 09 49 P.LD (HL),32...I
01AED0: 4E 43 20 48 4C 0D 0A 09 44 4A 4E 5A 20 45 52 41 NC HL...DJNZ ERA
01AEE0: 53 4C 50 0D 0A 2E 45 52 41 53 58 31 09 43 41 4C SLP...ERASX1.CAL
01AEF0: 4C 20 57 49 4E 44 4F 57 5F 57 49 50 45 0D 0A 20 L WINDOW_WIPE..
01AF00: 20 20 20 20 20 20 20 4C 44 20 41 2C 26 46 46 0D LD A,&FF.
01AF10: 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ..RET..;--------
01AF20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01AF30: 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 2E 56 49 45 57 -------.....VIEW
01AF40: 5F 42 42 53 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 _BBS...CALL WIND
01AF50: 4F 57 5F 57 49 50 45 0D 0A 2E 56 49 45 57 42 53 OW_WIPE...VIEWBS
01AF60: 32 0D 0A 09 43 41 4C 4C 20 42 42 53 5F 4C 49 53 2...CALL BBS_LIS
01AF70: 54 5F 57 49 4E 44 4F 57 09 3B 70 75 6C 6C 20 64 T_WINDOW.;pull d
01AF80: 6F 77 6E 20 62 62 73 20 6C 69 73 74 0D 0A 20 20 own bbs list..
01AF90: 20 20 20 20 20 20 43 41 4C 4C 20 42 42 53 43 55 CALL BBSCU
01AFA0: 52 53 4F 52 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 RSOR...CALL WIND
01AFB0: 4F 57 5F 57 49 50 45 0D 0A 09 4C 44 20 41 2C 26 OW_WIPE...LD A,&
01AFC0: 46 46 0D 0A 09 52 45 54 0D 0A 3B 2D 2D 2D 2D 2D FF...RET..;-----
01AFD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01AFE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 45 4E 54 45 ---------...ENTE
01AFF0: 52 5F 4E 41 4D 45 0D 0A 09 43 41 4C 4C 20 57 49 R_NAME...CALL WI
01B000: 4E 44 4F 57 5F 57 49 50 45 09 3B 20 43 6C 65 61 NDOW_WIPE.; Clea
01B010: 72 20 77 69 6E 64 6F 77 0D 0A 20 20 20 20 20 20 r window..
01B020: 20 20 43 41 4C 4C 20 42 42 53 5F 4C 49 53 54 5F CALL BBS_LIST_
01B030: 57 49 4E 44 4F 57 09 3B 20 4C 69 73 74 20 73 74 WINDOW.; List st
01B040: 75 66 66 0D 0A 09 43 41 4C 4C 20 42 42 53 43 55 uff...CALL BBSCU
01B050: 52 53 4F 52 09 09 3B 20 70 6F 70 20 74 68 65 20 RSOR..; pop the
01B060: 63 75 72 73 6F 72 20 75 70 0D 0A 09 43 50 20 26 cursor up...CP &
01B070: 46 43 0D 0A 09 4A 50 20 5A 2C 42 45 58 54 20 20 FC...JP Z,BEXT
01B080: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 43 ; C
01B090: 68 61 6E 67 65 20 6F 66 20 6D 69 6E 64 0D 0A 09 hange of mind...
01B0A0: 4C 44 20 49 58 2C 45 4E 54 45 52 5F 42 42 53 20 LD IX,ENTER_BBS
01B0B0: 20 20 20 20 20 20 20 20 3B 20 41 6E 6F 74 68 65 ; Anothe
01B0C0: 72 20 77 69 6E 64 6F 77 0D 0A 09 43 41 4C 4C 20 r window...CALL
01B0D0: 4D 42 4F 52 44 45 52 0D 0A 09 43 41 4C 4C 20 47 MBORDER...CALL G
01B0E0: 45 54 5F 50 48 4E 55 4D 42 45 52 20 20 20 20 20 ET_PHNUMBER
01B0F0: 20 20 3B 20 73 74 61 72 74 20 6F 66 20 64 61 74 ; start of dat
01B100: 61 0D 0A 0D 0A 09 45 58 20 48 4C 2C 44 45 09 09 a.....EX HL,DE..
01B110: 3B 20 44 45 20 61 64 64 72 65 73 73 20 6F 66 20 ; DE address of
01B120: 6E 61 6D 65 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 31 name.....LD HL,1
01B130: 36 2A 32 35 36 2B 37 0D 0A 09 4C 44 20 28 59 29 6*256+7...LD (Y)
01B140: 2C 48 4C 0D 0A 09 4C 44 20 48 4C 2C 42 42 53 4E ,HL...LD HL,BBSN
01B150: 41 4D 45 09 09 0D 0A 09 4C 44 20 42 2C 34 30 0D AME.....LD B,40.
01B160: 0A 09 43 41 4C 4C 20 4E 41 4D 45 5F 49 4E 50 55 ..CALL NAME_INPU
01B170: 54 09 09 3B 20 41 73 6B 20 6E 61 6D 65 0D 0A 20 T..; Ask name..
01B180: 20 20 20 20 20 20 20 43 50 20 26 46 43 0D 0A 09 CP &FC...
01B190: 4A 52 20 5A 2C 42 45 58 54 09 09 3B 20 2E 2E 2E JR Z,BEXT..; ...
01B1A0: 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 34 30 0D 0A 09 .....LD HL,40...
01B1B0: 41 44 44 20 48 4C 2C 44 45 0D 0A 09 45 58 20 48 ADD HL,DE...EX H
01B1C0: 4C 2C 44 45 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 31 L,DE.....LD HL,1
01B1D0: 36 2A 32 35 36 2B 38 0D 0A 09 4C 44 20 28 59 29 6*256+8...LD (Y)
01B1E0: 2C 48 4C 09 0D 0A 09 4C 44 20 48 4C 2C 42 42 53 ,HL....LD HL,BBS
01B1F0: 4E 55 4D 42 45 52 0D 0A 09 4C 44 20 42 2C 31 30 NUMBER...LD B,10
01B200: 0D 0A 09 43 41 4C 4C 20 4E 41 4D 45 5F 49 4E 50 ...CALL NAME_INP
01B210: 55 54 09 09 3B 20 6E 75 6D 62 65 72 0D 0A 2E 42 UT..; number...B
01B220: 45 58 54 09 4C 44 20 49 58 2C 42 42 53 4C 49 53 EXT.LD IX,BBSLIS
01B230: 54 0D 0A 09 43 41 4C 4C 20 57 49 4E 44 4F 57 5F T...CALL WINDOW_
01B240: 57 49 50 45 0D 0A 09 4C 44 20 41 2C 26 46 46 0D WIPE...LD A,&FF.
01B250: 0A 09 52 45 54 0D 0A 0D 0A 2E 4E 41 4D 45 5F 49 ..RET.....NAME_I
01B260: 4E 50 55 54 0D 0A 09 50 55 53 48 20 44 45 0D 0A NPUT...PUSH DE..
01B270: 09 50 55 53 48 20 48 4C 0D 0A 09 43 41 4C 4C 20 .PUSH HL...CALL
01B280: 54 45 58 54 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 TEXT...POP HL...
01B290: 50 4F 50 20 44 45 0D 0A 09 4A 50 20 49 4E 50 55 POP DE...JP INPU
01B2A0: 54 4C 49 4E 45 0D 0A 09 0D 0A 3B 2D 2D 2D 2D 2D TLINE.....;-----
01B2B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B2C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B2D0: 0D 0A 3B 20 20 53 45 4C 45 43 54 20 41 20 43 4F ..; SELECT A CO
01B2E0: 4D 4D 41 4E 44 20 49 4E 20 54 48 45 20 42 42 53 MMAND IN THE BBS
01B2F0: 20 4D 45 4E 55 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D MENU..;--------
01B300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E -------------...
01B320: 42 42 53 43 55 52 53 4F 52 0D 0A 0D 0A 09 58 4F BBSCURSOR.....XO
01B330: 52 20 41 0D 0A 09 4C 44 20 28 4D 43 55 52 59 29 R A...LD (MCURY)
01B340: 2C 41 0D 0A 2E 42 42 53 43 55 52 4A 50 0D 0A 0D ,A...BBSCURJP...
01B350: 0A 2E 42 53 30 09 43 41 4C 4C 20 4D 5F 50 52 49 ..BS0.CALL M_PRI
01B360: 4E 54 43 55 52 0D 0A 2E 42 53 31 09 43 41 4C 4C NTCUR...BS1.CALL
01B370: 20 4B 4D 5F 57 41 49 54 5F 43 48 41 52 09 09 3B KM_WAIT_CHAR..;
01B380: 77 61 69 74 20 66 6F 72 20 6B 65 79 0D 0A 09 43 wait for key...C
01B390: 50 20 22 31 22 0D 0A 09 4A 52 20 43 2C 42 53 32 P "1"...JR C,BS2
01B3A0: 0D 0A 20 20 20 20 20 20 20 20 43 50 20 22 36 22 .. CP "6"
01B3B0: 2B 31 0D 0A 20 20 20 20 20 20 20 20 4A 50 20 43 +1.. JP C
01B3C0: 2C 42 53 4C 4F 41 44 0D 0A 2E 42 53 32 0D 0A 09 ,BSLOAD...BS2...
01B3D0: 43 50 20 26 46 43 0D 0A 20 20 20 20 20 20 20 20 CP &FC..
01B3E0: 52 45 54 20 5A 0D 0A 09 43 50 20 26 37 46 0D 0A RET Z...CP &7F..
01B3F0: 09 4A 52 20 5A 2C 42 53 35 0D 0A 09 43 50 20 31 .JR Z,BS5...CP 1
01B400: 31 0D 0A 09 4A 52 20 5A 2C 42 42 53 5F 55 50 09 1...JR Z,BBS_UP.
01B410: 09 09 3B 69 66 20 31 31 20 74 68 65 6E 20 6D 6F ..;if 11 then mo
01B420: 76 65 20 75 70 0D 0A 09 43 50 20 31 30 0D 0A 09 ve up...CP 10...
01B430: 4A 52 20 5A 2C 42 42 53 5F 44 4F 57 4E 09 09 09 JR Z,BBS_DOWN...
01B440: 3B 69 66 20 31 30 20 74 68 65 6E 20 6D 6F 76 65 ;if 10 then move
01B450: 20 64 6F 77 6E 0D 0A 09 43 50 20 31 33 0D 0A 09 down...CP 13...
01B460: 4A 52 20 5A 2C 42 53 35 0D 0A 09 43 50 20 26 45 JR Z,BS5...CP &E
01B470: 30 0D 0A 09 4A 52 20 4E 5A 2C 42 53 31 09 09 09 0...JR NZ,BS1...
01B480: 3B 77 61 69 74 20 66 6F 72 20 6B 65 79 20 0D 0A ;wait for key ..
01B490: 2E 42 53 35 0D 0A 09 50 55 53 48 20 42 43 0D 0A .BS5...PUSH BC..
01B4A0: 09 43 41 4C 4C 20 4D 5F 50 52 49 4E 54 43 55 52 .CALL M_PRINTCUR
01B4B0: 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 4C 44 20 41 ...POP BC...LD A
01B4C0: 2C 26 45 30 0D 0A 20 20 20 20 20 20 20 20 4F 52 ,&E0.. OR
01B4D0: 20 41 0D 0A 09 52 45 54 0D 0A 0D 0A 2E 42 53 4C A...RET.....BSL
01B4E0: 4F 41 44 0D 0A 09 4C 44 20 28 50 41 47 45 5F 4E OAD...LD (PAGE_N
01B4F0: 55 4D 42 45 52 29 2C 41 0D 0A 09 43 41 4C 4C 20 UMBER),A...CALL
01B500: 4C 4F 41 44 5F 44 49 52 0D 0A 09 4A 50 20 42 53 LOAD_DIR...JP BS
01B510: 31 0D 0A 0D 0A 0D 0A 2E 42 42 53 5F 55 50 0D 0A 1.......BBS_UP..
01B520: 09 43 41 4C 4C 20 4D 5F 50 52 49 4E 54 43 55 52 .CALL M_PRINTCUR
01B530: 09 09 09 3B 72 65 6D 6F 76 65 20 63 75 72 73 6F ...;remove curso
01B540: 72 0D 0A 09 4C 44 20 41 2C 28 4D 43 55 52 59 29 r...LD A,(MCURY)
01B550: 0D 0A 09 44 45 43 20 41 09 09 09 09 3B 69 6E 63 ...DEC A....;inc
01B560: 20 59 0D 0A 20 20 20 20 20 20 20 20 43 50 20 26 Y.. CP &
01B570: 46 46 0D 0A 09 4A 52 20 4E 5A 2C 42 42 53 31 0D FF...JR NZ,BBS1.
01B580: 0A 09 4C 44 20 41 2C 28 49 58 2B 34 29 09 09 09 ..LD A,(IX+4)...
01B590: 3B 69 66 20 59 3C 30 20 74 68 65 6E 20 59 3D 6E ;if Y<0 then Y=n
01B5A0: 6F 20 6F 66 20 63 6F 6D 6D 61 6E 64 73 2D 31 0D o of commands-1.
01B5B0: 0A 09 44 45 43 20 41 0D 0A 2E 42 42 53 31 09 4C ..DEC A...BBS1.L
01B5C0: 44 20 28 4D 43 55 52 59 29 2C 41 0D 0A 20 20 20 D (MCURY),A..
01B5D0: 20 20 20 20 20 4A 52 20 42 53 30 0D 0A 0D 0A 2E JR BS0.....
01B5E0: 42 42 53 5F 44 4F 57 4E 0D 0A 09 4C 44 20 41 2C BBS_DOWN...LD A,
01B5F0: 28 4D 43 55 52 59 29 09 09 09 3B 62 61 73 69 63 (MCURY)...;basic
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 4E E5 17 00 C1 02 00 00 00 02 ......N.........
01B620: 17 00 C2 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B630: 17 00 C4 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B640: 17 00 C6 02 00 00 00 02 17 00 C7 02 00 00 00 02 ................
01B650: 17 00 C8 02 00 00 00 02 17 00 C9 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 6C 79 20 74 68 65 20 73 61 6D 65 0D 0A 09 43 41 ly the same...CA
01B710: 4C 4C 20 4D 5F 50 52 49 4E 54 43 55 52 0D 0A 20 LL M_PRINTCUR..
01B720: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 49 58 2B LD A,(IX+
01B730: 34 29 0D 0A 09 4C 44 20 42 2C 41 0D 0A 09 4C 44 4)...LD B,A...LD
01B740: 20 41 2C 28 4D 43 55 52 59 29 09 0D 0A 09 49 4E A,(MCURY)....IN
01B750: 43 20 41 0D 0A 20 20 20 20 20 20 20 20 43 50 20 C A.. CP
01B760: 42 0D 0A 09 4A 52 20 4E 5A 2C 42 42 53 32 0D 0A B...JR NZ,BBS2..
01B770: 09 58 4F 52 20 41 0D 0A 2E 42 42 53 32 09 4C 44 .XOR A...BBS2.LD
01B780: 20 28 4D 43 55 52 59 29 2C 41 0D 0A 20 20 20 20 (MCURY),A..
01B790: 20 20 20 20 4A 52 20 42 53 30 0D 0A 0D 0A 0D 0A JR BS0......
01B7A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
01B7B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B7C0: 2D 2D 2D 0D 0A 0D 0A 2E 43 55 53 5F 57 49 4E 5F ---.....CUS_WIN_
01B7D0: 65 63 68 6F 0D 0A 20 20 20 20 20 20 20 20 42 59 echo.. BY
01B7E0: 54 45 20 31 30 2C 35 2C 38 2C 33 35 0D 0A 2E 43 TE 10,5,8,35...C
01B7F0: 55 53 5F 57 49 4E 5F 66 75 6E 63 74 69 6F 6E 0D US_WIN_function.
01B800: 0A 20 20 20 20 20 20 20 20 42 59 54 45 20 31 30 . BYTE 10
01B810: 2C 35 2C 31 34 2C 33 39 0D 0A 09 0D 0A 0D 0A 3B ,5,14,39.......;
01B820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B840: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 0D 0A 43 75 --------......Cu
01B850: 73 5F 45 63 68 6F 73 0D 0A 09 6C 64 20 69 78 2C s_Echos...ld ix,
01B860: 63 75 73 5F 77 69 6E 5F 65 63 68 6F 0D 0A 09 63 cus_win_echo...c
01B870: 61 6C 6C 20 6D 62 6F 72 64 65 72 0D 0A 09 4C 44 all mborder...LD
01B880: 20 28 43 55 53 5F 53 50 29 2C 53 50 0D 0A 09 4C (CUS_SP),SP...L
01B890: 44 20 48 4C 2C 31 32 2A 32 35 36 2B 36 0D 0A 09 D HL,12*256+6...
01B8A0: 4C 44 20 28 59 29 2C 48 4C 0D 0A 0D 0A 09 4C 44 LD (Y),HL.....LD
01B8B0: 20 44 45 2C 4A 4C 4F 43 41 4C 5F 45 43 48 4F 0D DE,JLOCAL_ECHO.
01B8C0: 0A 09 4C 44 20 48 4C 2C 4C 4F 43 45 43 48 4F 0D ..LD HL,LOCECHO.
01B8D0: 0A 09 43 41 4C 4C 20 43 55 53 59 4E 0D 0A 0D 0A ..CALL CUSYN....
01B8E0: 09 4C 44 20 44 45 2C 4A 52 45 4D 4F 54 45 5F 45 .LD DE,JREMOTE_E
01B8F0: 43 48 4F 0D 0A 09 4C 44 20 48 4C 2C 52 45 4D 45 CHO...LD HL,REME
01B900: 43 48 4F 0D 0A 09 43 41 4C 4C 20 43 55 53 59 4E CHO...CALL CUSYN
01B910: 0D 0A 0D 0A 09 4C 44 20 44 45 2C 4A 4C 4F 43 41 .....LD DE,JLOCA
01B920: 4C 5F 44 45 4C 0D 0A 09 4C 44 20 48 4C 2C 4C 4F L_DEL...LD HL,LO
01B930: 43 44 45 4C 0D 0A 09 43 41 4C 4C 20 43 55 53 59 CDEL...CALL CUSY
01B940: 4E 0D 0A 0D 0A 09 4C 44 20 44 45 2C 4A 4C 4F 43 N.....LD DE,JLOC
01B950: 41 4C 5F 4C 46 0D 0A 09 4C 44 20 48 4C 2C 4C 4F AL_LF...LD HL,LO
01B960: 43 4C 46 0D 0A 09 43 41 4C 4C 20 43 55 53 59 4E CLF...CALL CUSYN
01B970: 0D 0A 0D 0A 09 4C 44 20 44 45 2C 4A 52 45 4D 4F .....LD DE,JREMO
01B980: 54 45 5F 44 45 4C 0D 0A 09 4C 44 20 48 4C 2C 52 TE_DEL...LD HL,R
01B990: 45 4D 44 45 4C 0D 0A 09 43 41 4C 4C 20 43 55 53 EMDEL...CALL CUS
01B9A0: 59 4E 0D 0A 0D 0A 09 4C 44 20 44 45 2C 4A 52 45 YN.....LD DE,JRE
01B9B0: 4D 4F 54 45 5F 4C 46 0D 0A 09 4C 44 20 48 4C 2C MOTE_LF...LD HL,
01B9C0: 52 45 4D 4C 46 0D 0A 09 43 41 4C 4C 20 43 55 53 REMLF...CALL CUS
01B9D0: 59 4E 0D 0A 09 6C 64 20 69 78 2C 63 75 73 5F 77 YN...ld ix,cus_w
01B9E0: 69 6E 5F 65 63 68 6F 0D 0A 09 6A 70 20 77 69 6E in_echo...jp win
01B9F0: 72 65 74 0D 0A 2E 43 55 53 59 4E 0D 0A 09 50 55 ret...CUSYN...PU
01BA00: 53 48 20 44 45 0D 0A 09 43 41 4C 4C 20 54 45 58 SH DE...CALL TEX
01BA10: 54 0D 0A 09 50 4F 50 20 44 45 0D 0A 20 20 20 20 T...POP DE..
01BA20: 20 20 20 20 43 41 4C 4C 20 43 55 53 5F 47 45 54 CALL CUS_GET
01BA30: 5F 53 54 41 54 45 0D 0A 09 43 41 4C 4C 20 53 43 _STATE...CALL SC
01BA40: 52 45 45 4E 57 52 49 54 45 0D 0A 09 4C 44 20 41 REENWRITE...LD A
01BA50: 2C 38 0D 0A 09 43 41 4C 4C 20 53 43 52 45 45 4E ,8...CALL SCREEN
01BA60: 57 52 49 54 45 0D 0A 2E 43 55 53 57 09 43 41 4C WRITE...CUSW.CAL
01BA70: 4C 20 4B 4D 5F 57 41 49 54 5F 43 48 41 52 0D 0A L KM_WAIT_CHAR..
01BA80: 09 43 50 20 26 46 43 0D 0A 09 4A 52 20 5A 2C 43 .CP &FC...JR Z,C
01BA90: 55 53 5F 45 58 49 54 0D 0A 09 43 50 20 31 33 0D US_EXIT...CP 13.
01BAA0: 0A 09 4A 52 20 5A 2C 43 55 53 5F 45 4E 54 0D 0A ..JR Z,CUS_ENT..
01BAB0: 20 20 20 20 20 20 20 20 52 45 53 20 35 2C 41 0D RES 5,A.
01BAC0: 0A 20 20 20 20 20 20 20 20 43 50 20 22 59 22 0D . CP "Y".
01BAD0: 0A 09 4A 52 20 5A 2C 43 55 53 59 0D 0A 09 43 50 ..JR Z,CUSY...CP
01BAE0: 20 22 4E 22 0D 0A 09 4A 52 20 4E 5A 2C 43 55 53 "N"...JR NZ,CUS
01BAF0: 57 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 09 4C W...LD A,&C9...L
01BB00: 44 20 28 44 45 29 2C 41 0D 0A 09 4C 44 20 48 4C D (DE),A...LD HL
01BB10: 2C 43 55 53 4E 4F 0D 0A 09 43 41 4C 4C 20 41 4E ,CUSNO...CALL AN
01BB20: 53 49 54 45 58 54 0D 0A 09 4A 50 20 43 55 53 4C SITEXT...JP CUSL
01BB30: 46 0D 0A 2E 43 55 53 59 09 0D 0A 20 20 20 20 20 F...CUSY...
01BB40: 20 20 20 58 4F 52 20 41 0D 0A 09 4C 44 20 28 44 XOR A...LD (D
01BB50: 45 29 2C 41 0D 0A 09 4C 44 20 48 4C 2C 43 55 53 E),A...LD HL,CUS
01BB60: 59 45 53 0D 0A 09 43 41 4C 4C 20 41 4E 53 49 54 YES...CALL ANSIT
01BB70: 45 58 54 0D 0A 09 4A 50 20 43 55 53 4C 46 0D 0A EXT...JP CUSLF..
01BB80: 0D 0A 2E 43 55 53 5F 45 4E 54 0D 0A 09 43 41 4C ...CUS_ENT...CAL
01BB90: 4C 20 41 4E 53 49 54 45 58 54 0D 0A 2E 43 55 53 L ANSITEXT...CUS
01BBA0: 4C 46 0D 0A 09 4C 44 20 41 2C 31 32 09 0D 0A 20 LF...LD A,12...
01BBB0: 20 20 20 20 20 20 20 4C 44 20 28 58 29 2C 41 0D LD (X),A.
01BBC0: 0A 09 4C 44 20 41 2C 28 59 29 3A 49 4E 43 20 41 ..LD A,(Y):INC A
01BBD0: 3A 4C 44 20 28 59 29 2C 41 0D 0A 09 52 45 54 0D :LD (Y),A...RET.
01BBE0: 0A 09 0D 0A 2E 43 55 53 5F 47 45 54 5F 53 54 41 .....CUS_GET_STA
01BBF0: 54 45 0D 0A 09 4C 44 20 41 2C 28 44 45 29 0D 0A TE...LD A,(DE)..
01BC00: 09 43 50 20 26 43 39 0D 0A 09 4A 52 20 5A 2C 43 .CP &C9...JR Z,C
01BC10: 47 53 31 0D 0A 09 4C 44 20 41 2C 22 59 22 0D 0A GS1...LD A,"Y"..
01BC20: 09 4C 44 20 48 4C 2C 43 55 53 59 45 53 0D 0A 09 .LD HL,CUSYES...
01BC30: 52 45 54 0D 0A 2E 43 47 53 31 09 4C 44 20 41 2C RET...CGS1.LD A,
01BC40: 22 4E 22 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 "N".. LD
01BC50: 48 4C 2C 43 55 53 4E 4F 0D 0A 09 52 45 54 0D 0A HL,CUSNO...RET..
01BC60: 0D 0A 2E 43 55 53 5F 45 58 49 54 0D 0A 09 4C 44 ...CUS_EXIT...LD
01BC70: 20 53 50 2C 28 43 55 53 5F 53 50 29 0D 0A 09 52 SP,(CUS_SP)...R
01BC80: 45 54 0D 0A 0D 0A 3B 2D 20 20 2D 20 20 2D 20 20 ET....;- - -
01BC90: 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D 20 20 2D - - - - - -
01BCA0: 20 20 2D 20 20 2D 0D 0A 0D 0A 2E 43 75 73 5F 4D - -.....Cus_M
01BCB0: 61 63 72 6F 73 0D 0A 09 6C 64 20 69 78 2C 63 75 acros...ld ix,cu
01BCC0: 73 5F 77 69 6E 5F 66 75 6E 63 74 69 6F 6E 0D 0A s_win_function..
01BCD0: 09 63 61 6C 6C 20 6D 62 6F 72 64 65 72 0D 0A 09 .call mborder...
01BCE0: 63 61 6C 6C 20 63 6D 63 61 6C 6C 0D 0A 09 6C 64 call cmcall...ld
01BCF0: 20 69 78 2C 63 75 73 5F 77 69 6E 5F 66 75 6E 63 ix,cus_win_func
01BD00: 74 69 6F 6E 0D 0A 09 6A 70 20 77 69 6E 72 65 74 tion...jp winret
01BD10: 0D 0A 0D 0A 09 0D 0A 63 6D 63 61 6C 6C 09 4C 44 .......cmcall.LD
01BD20: 20 41 2C 30 0D 0A 09 4C 44 20 28 44 45 46 4E 55 A,0...LD (DEFNU
01BD30: 4D 29 2C 41 0D 0A 09 4C 44 20 48 4C 2C 31 32 2A M),A...LD HL,12*
01BD40: 32 35 36 2B 36 0D 0A 09 4C 44 20 28 59 29 2C 48 256+6...LD (Y),H
01BD50: 4C 0D 0A 09 4C 44 20 48 4C 2C 44 45 46 49 4E 45 L...LD HL,DEFINE
01BD60: 54 58 54 0D 0A 09 43 41 4C 4C 20 41 4E 53 49 54 TXT...CALL ANSIT
01BD70: 45 58 54 0D 0A 09 43 41 4C 4C 20 43 55 53 4C 46 EXT...CALL CUSLF
01BD80: 0D 0A 09 4C 44 20 44 45 2C 45 58 50 41 4E 44 5F ...LD DE,EXPAND_
01BD90: 53 54 41 52 54 0D 0A 2E 44 45 46 4C 4F 4F 50 0D START...DEFLOOP.
01BDA0: 0A 09 4C 44 20 28 44 45 46 57 4F 52 44 29 2C 44 ..LD (DEFWORD),D
01BDB0: 45 0D 0A 09 43 41 4C 4C 20 43 55 53 4C 46 0D 0A E...CALL CUSLF..
01BDC0: 09 4C 44 20 41 2C 22 46 22 0D 0A 09 43 41 4C 4C .LD A,"F"...CALL
01BDD0: 20 53 43 52 45 45 4E 57 52 49 54 45 0D 0A 09 4C SCREENWRITE...L
01BDE0: 44 20 41 2C 28 44 45 46 4E 55 4D 29 0D 0A 20 20 D A,(DEFNUM)..
01BDF0: 20 20 20 20 20 20 41 44 44 20 22 30 22 0D 0A 09 ADD "0"...
01BE00: 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 45 CALL SCREENWRITE
01BE10: 09 3B 20 50 72 69 6E 74 20 46 78 0D 0A 09 4C 44 .; Print Fx...LD
01BE20: 20 41 2C 22 20 22 0D 0A 09 43 41 4C 4C 20 53 43 A," "...CALL SC
01BE30: 52 45 45 4E 57 52 49 54 45 09 3B 20 53 70 61 63 REENWRITE.; Spac
01BE40: 65 0D 0A 0D 0A 09 4C 44 20 48 4C 2C 28 44 45 46 e.....LD HL,(DEF
01BE50: 57 4F 52 44 29 09 09 3B 20 67 65 74 20 73 74 61 WORD)..; get sta
01BE60: 72 74 0D 0A 09 4C 44 20 42 2C 32 35 09 09 09 3B rt...LD B,25...;
01BE70: 20 4C 65 6E 20 32 35 0D 0A 2E 44 45 46 44 4A 30 Len 25...DEFDJ0
01BE80: 09 4C 44 20 41 2C 28 48 4C 29 0D 0A 09 43 50 20 .LD A,(HL)...CP
01BE90: 30 0D 0A 09 4A 52 20 4E 5A 2C 44 45 46 44 4A 31 0...JR NZ,DEFDJ1
01BEA0: 0D 0A 09 4C 44 20 28 48 4C 29 2C 33 32 0D 0A 2E ...LD (HL),32...
01BEB0: 44 45 46 44 4A 31 09 4C 44 20 41 2C 28 48 4C 29 DEFDJ1.LD A,(HL)
01BEC0: 0D 0A 09 43 50 20 31 33 0D 0A 09 4A 52 20 4E 5A ...CP 13...JR NZ
01BED0: 2C 44 45 46 44 4A 32 0D 0A 09 4C 44 20 28 48 4C ,DEFDJ2...LD (HL
01BEE0: 29 2C 22 23 22 0D 0A 2E 44 45 46 44 4A 32 09 49 ),"#"...DEFDJ2.I
01BEF0: 4E 43 20 48 4C 0D 0A 09 44 4A 4E 5A 20 44 45 46 NC HL...DJNZ DEF
01BF00: 44 4A 30 09 09 3B 20 43 6F 6E 76 65 72 74 0D 0A DJ0..; Convert..
01BF10: 0D 0A 09 4C 44 20 44 45 2C 28 44 45 46 57 4F 52 ...LD DE,(DEFWOR
01BF20: 44 29 0D 0A 09 4C 44 20 42 2C 32 35 0D 0A 09 4C D)...LD B,25...L
01BF30: 44 20 41 2C 22 20 22 0D 0A 09 4C 44 20 28 44 45 D A," "...LD (DE
01BF40: 4C 43 48 41 52 29 2C 41 0D 0A 0D 0A 09 43 41 4C LCHAR),A.....CAL
01BF50: 4C 20 49 4E 50 55 54 4C 49 4E 45 32 0D 0A 09 50 L INPUTLINE2...P
01BF60: 55 53 48 20 41 46 0D 0A 0D 0A 09 4C 44 20 48 4C USH AF.....LD HL
01BF70: 2C 28 44 45 46 57 4F 52 44 29 0D 0A 09 4C 44 20 ,(DEFWORD)...LD
01BF80: 43 2C 42 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 C,B.. LD
01BF90: 42 2C 30 0D 0A 09 41 44 44 20 48 4C 2C 42 43 0D B,0...ADD HL,BC.
01BFA0: 0A 09 4C 44 20 28 48 4C 29 2C 30 09 09 3B 20 5A ..LD (HL),0..; Z
01BFB0: 65 72 6F 20 61 74 20 65 6E 64 0D 0A 0D 0A 09 4C ero at end.....L
01BFC0: 44 20 44 45 2C 28 44 45 46 57 4F 52 44 29 0D 0A D DE,(DEFWORD)..
01BFD0: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 32 35 0D LD B,25.
01BFE0: 0A 09 4C 44 20 48 2C 22 23 22 0D 0A 09 4C 44 20 ..LD H,"#"...LD
01BFF0: 4C 2C 31 33 0D 0A 09 43 41 4C 4C 20 53 57 41 50 L,13...CALL SWAP
01C000: 5F 41 53 43 49 49 0D 0A 09 50 4F 50 20 41 46 0D _ASCII...POP AF.
01C010: 0A 20 20 20 20 20 20 20 20 43 50 20 26 46 43 0D . CP &FC.
01C020: 0A 09 4A 50 20 5A 2C 43 55 53 5F 45 58 49 54 09 ..JP Z,CUS_EXIT.
01C030: 09 3B 20 43 6F 6E 76 65 72 74 0D 0A 0D 0A 09 4C .; Convert.....L
01C040: 44 20 41 2C 28 44 45 46 4E 55 4D 29 0D 0A 09 49 D A,(DEFNUM)...I
01C050: 4E 43 20 41 0D 0A 09 4C 44 20 28 44 45 46 4E 55 NC A...LD (DEFNU
01C060: 4D 29 2C 41 09 09 3B 20 4E 65 78 74 20 6D 61 63 M),A..; Next mac
01C070: 72 6F 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 4C ro.. LD L
01C080: 2C 41 0D 0A 09 4C 44 20 48 2C 30 09 0D 0A 09 41 ,A...LD H,0....A
01C090: 44 44 20 48 4C 2C 48 4C 09 3B 2A 32 0D 0A 09 4C DD HL,HL.;*2...L
01C0A0: 44 20 44 45 2C 45 58 50 41 4E 44 5F 54 41 42 4C D DE,EXPAND_TABL
01C0B0: 45 0D 0A 09 41 44 44 20 48 4C 2C 44 45 09 3B 53 E...ADD HL,DE.;S
01C0C0: 45 54 55 50 0D 0A 09 4C 44 20 45 2C 28 48 4C 29 ETUP...LD E,(HL)
01C0D0: 3A 49 4E 43 20 48 4C 3A 4C 44 20 44 2C 28 48 4C :INC HL:LD D,(HL
01C0E0: 29 0D 0A 09 4C 44 20 41 2C 28 44 45 46 4E 55 4D )...LD A,(DEFNUM
01C0F0: 29 0D 0A 09 43 50 20 31 30 0D 0A 09 4A 52 20 4E )...CP 10...JR N
01C100: 5A 2C 44 45 46 4C 4F 4F 50 09 09 3B 20 6E 65 77 Z,DEFLOOP..; new
01C110: 20 61 64 64 2C 20 63 6F 6E 74 0D 0A 0D 0A 09 52 add, cont.....R
01C120: 45 54 0D 0A 0D 0A 0D 0A 3B 20 2D 20 2D 20 2D 20 ET......; - - -
01C130: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 - - - - - - - -
01C140: 2D 20 2D 20 2D 20 0D 0A 2E 43 75 73 5F 56 65 72 - - - ...Cus_Ver
01C150: 73 6F 6E 0D 0A 09 43 41 4C 4C 20 43 41 53 5F 4F son...CALL CAS_O
01C160: 55 54 5F 41 42 41 4E 44 4F 4E 0D 0A 3B 09 43 41 UT_ABANDON..;.CA
01C170: 4C 4C 20 44 49 53 43 5F 57 49 4E 44 4F 57 0D 0A LL DISC_WINDOW..
01C180: 3B 09 4C 44 20 48 4C 2C 31 32 2A 32 35 36 2B 36 ;.LD HL,12*256+6
01C190: 0D 0A 3B 09 4C 44 20 28 59 29 2C 48 4C 0D 0A 3B ..;.LD (Y),HL..;
01C1A0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 41 4E LD HL,AN
01C1B0: 53 49 46 49 4C 45 4E 41 4D 45 0D 0A 3B 09 43 41 SIFILENAME..;.CA
01C1C0: 4C 4C 20 41 4E 53 49 54 45 58 54 0D 0A 3B 09 4C LL ANSITEXT..;.L
01C1D0: 44 20 44 45 2C 4E 45 57 54 45 52 4D 0D 0A 3B 09 D DE,NEWTERM..;.
01C1E0: 4C 44 20 42 2C 31 36 0D 0A 3B 09 43 41 4C 4C 20 LD B,16..;.CALL
01C1F0: 4B 45 59 49 4E 50 0D 0A 3B 09 43 50 20 26 46 43 KEYINP..;.CP &FC
01C200: 0D 0A 3B 09 52 45 54 20 5A 0D 0A 3B 09 4C 44 20 ..;.RET Z..;.LD
01C210: 41 2C 43 0D 0A 3B 09 4F 52 20 41 0D 0A 3B 09 52 A,C..;.OR A..;.R
01C220: 45 54 20 5A 0D 0A 3B 09 4C 44 20 48 4C 2C 4E 45 ET Z..;.LD HL,NE
01C230: 57 54 45 52 4D 0D 0A 3B 09 4C 44 20 44 45 2C 41 WTERM..;.LD DE,A
01C240: 4D 53 44 4F 53 0D 0A 3B 20 20 20 20 20 20 20 20 MSDOS..;
01C250: 43 41 4C 4C 20 43 41 53 5F 4F 55 54 5F 4F 50 45 CALL CAS_OUT_OPE
01C260: 4E 09 3B 4F 50 45 4E 46 49 4C 45 0D 0A 3B 09 52 N.;OPENFILE..;.R
01C270: 45 54 20 4E 43 0D 0A 3B 09 4C 44 20 48 4C 2C 26 ET NC..;.LD HL,&
01C280: 35 30 30 30 0D 0A 3B 09 4C 44 20 44 45 2C 41 4D 5000..;.LD DE,AM
01C290: 53 44 4F 53 2D 26 35 30 30 30 0D 0A 3B 09 4C 44 SDOS-&5000..;.LD
01C2A0: 20 42 43 2C 26 35 30 30 30 0D 0A 3B 09 4C 44 20 BC,&5000..;.LD
01C2B0: 41 2C 32 0D 0A 3B 09 43 41 4C 4C 20 43 41 53 5F A,2..;.CALL CAS_
01C2C0: 4F 55 54 5F 44 49 52 45 43 54 0D 0A 3B 09 43 41 OUT_DIRECT..;.CA
01C2D0: 4C 4C 20 43 41 53 5F 4F 55 54 5F 43 4C 4F 53 45 LL CAS_OUT_CLOSE
01C2E0: 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ...RET..........
01C2F0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
01C300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01C310: 2D 2D 2D 2D 0D 0A 2E 53 57 41 50 5F 41 53 43 49 ----...SWAP_ASCI
01C320: 49 0D 0A 3B 09 53 57 41 50 20 48 20 54 4F 20 4C I..;.SWAP H TO L
01C330: 0D 0A 09 50 55 53 48 20 44 45 0D 0A 09 4C 44 20 ...PUSH DE...LD
01C340: 42 2C 35 30 0D 0A 2E 53 57 41 50 41 30 20 4C 44 B,50...SWAPA0 LD
01C350: 20 41 2C 28 44 45 29 0D 0A 09 43 50 20 48 0D 0A A,(DE)...CP H..
01C360: 09 4A 52 20 4E 5A 2C 53 57 41 50 41 31 0D 0A 09 .JR NZ,SWAPA1...
01C370: 4C 44 20 41 2C 4C 0D 0A 09 4C 44 20 28 44 45 29 LD A,L...LD (DE)
01C380: 2C 41 0D 0A 2E 53 57 41 50 41 31 09 49 4E 43 20 ,A...SWAPA1.INC
01C390: 44 45 0D 0A 09 44 4A 4E 5A 20 53 57 41 50 41 30 DE...DJNZ SWAPA0
01C3A0: 0D 0A 09 50 4F 50 20 44 45 0D 0A 09 52 45 54 0D ...POP DE...RET.
01C3B0: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
01C3C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01C3D0: 2D 2D 2D 2D 2D 0D 0A 2E 69 6E 70 75 74 5F 70 72 -----...input_pr
01C3E0: 65 66 69 78 0D 0A 09 4C 44 20 49 58 2C 70 72 65 efix...LD IX,pre
01C3F0: 66 69 78 5F 62 6F 72 64 65 72 09 3B 20 50 72 69 fix_border.; Pri
01C400: 6E 74 20 62 6F 72 64 65 72 0D 0A 09 43 41 4C 4C nt border...CALL
01C410: 20 4D 42 4F 52 44 45 52 0D 0A 0D 0A 09 4C 44 20 MBORDER.....LD
01C420: 48 4C 2C 31 37 2A 32 35 36 2B 31 31 0D 0A 09 4C HL,17*256+11...L
01C430: 44 20 28 59 29 2C 48 4C 0D 0A 0D 0A 09 4C 44 20 D (Y),HL.....LD
01C440: 48 4C 2C 70 72 65 66 69 78 5F 74 78 74 09 09 0D HL,prefix_txt...
01C450: 0A 09 43 41 4C 4C 20 54 45 58 54 0D 0A 09 0D 0A ..CALL TEXT.....
01C460: 09 6C 64 20 64 65 2C 64 69 61 6C 70 72 65 66 69 .ld de,dialprefi
01C470: 78 0D 0A 09 6C 64 20 62 2C 31 35 0D 0A 09 63 61 x...ld b,15...ca
01C480: 6C 6C 20 49 4E 50 55 54 4C 49 4E 45 0D 0A 09 0D ll INPUTLINE....
01C490: 0A 09 6C 64 20 61 2C 62 0D 0A 09 6C 64 20 28 70 ..ld a,b...ld (p
01C4A0: 72 65 66 69 78 5F 6C 65 6E 29 2C 61 0D 0A 09 0D refix_len),a....
01C4B0: 0A 09 4C 44 20 49 58 2C 70 72 65 66 69 78 5F 62 ..LD IX,prefix_b
01C4C0: 6F 72 64 65 72 0D 0A 09 6A 70 20 77 69 6E 72 65 order...jp winre
01C4D0: 74 0D 0A 0D 0A 2E 70 72 65 66 69 78 5F 62 6F 72 t.....prefix_bor
01C4E0: 64 65 72 20 62 79 74 65 20 31 36 2C 31 30 2C 33 der byte 16,10,3
01C4F0: 2C 33 30 0D 0A 2E 70 72 65 66 69 78 5F 74 78 74 ,30...prefix_txt
01C500: 09 73 74 72 20 22 44 69 61 6C 20 70 72 65 66 69 .str "Dial prefi
01C510: 78 3A 22 0D 0A 0D 0A 0D 0A 1A 45 46 53 20 36 0D x:".......EFS 6.
01C520: 0A 2E 43 59 43 54 49 4D 45 4F 55 54 09 09 42 59 ..CYCTIMEOUT..BY
01C530: 54 45 20 32 30 0D 0A 0D 0A 0D 0A 0D 0A 1A 20 09 TE 20......... .
01C540: 44 41 41 20 0D 0A 20 20 20 20 20 20 09 43 41 4C DAA .. .CAL
01C550: 4C 20 20 57 52 49 54 45 5F 43 48 41 52 0D 0A 20 L WRITE_CHAR..
01C560: 20 20 20 20 20 09 52 45 54 20 20 0D 0A 0D 0A 0D .RET .....
01C570: 0A 0D 0A 1A 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C580: 2C 41 0D 0A 2E 53 57 41 50 41 31 09 49 4E 43 20 ,A...SWAPA1.INC
01C590: 44 45 0D 0A 09 44 4A 4E 5A 20 53 57 41 50 41 30 DE...DJNZ SWAPA0
01C5A0: 0D 0A 09 50 4F 50 20 44 45 0D 0A 09 52 45 54 0D ...POP DE...RET.
01C5B0: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
01C5C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01C5D0: 2D 2D 2D 2D 2D 0D 0A 2E 69 6E 70 75 74 5F 70 72 -----...input_pr
01C5E0: 65 66 69 78 0D 0A 09 4C 44 20 49 58 2C 70 72 65 efix...LD IX,pre
01C5F0: 66 69 78 5F 62 6F 72 64 65 72 09 3B 20 50 72 69 fix_border.; Pri
01C600: 6E 74 20 62 6F 72 64 65 72 0D 0A 09 43 41 4C 4C nt border...CALL
01C610: 20 4D 42 4F 52 44 45 52 0D 0A 0D 0A 09 4C 44 20 MBORDER.....LD
01C620: 48 4C 2C 31 37 2A 32 35 36 2B 31 31 0D 0A 09 4C HL,17*256+11...L
01C630: 44 20 28 59 29 2C 48 4C 0D 0A 0D 0A 09 4C 44 20 D (Y),HL.....LD
01C640: 48 4C 2C 70 72 65 66 69 78 5F 74 78 74 09 09 0D HL,prefix_txt...
01C650: 0A 09 43 41 4C 4C 20 54 45 58 54 0D 0A 09 0D 0A ..CALL TEXT.....
01C660: 09 6C 64 20 64 65 2C 64 69 61 6C 70 72 65 66 69 .ld de,dialprefi
01C670: 78 0D 0A 09 6C 64 20 62 2C 31 35 0D 0A 09 63 61 x...ld b,15...ca
01C680: 6C 6C 20 49 4E 50 55 54 4C 49 4E 45 0D 0A 09 0D ll INPUTLINE....
01C690: 0A 09 6C 64 20 61 2C 62 0D 0A 09 6C 64 20 28 70 ..ld a,b...ld (p
01C6A0: 72 65 66 69 78 5F 6C 65 6E 29 2C 61 0D 0A 09 0D refix_len),a....
01C6B0: 0A 09 4C 44 20 49 58 2C 70 72 65 66 69 78 5F 62 ..LD IX,prefix_b
01C6C0: 6F 72 64 65 72 0D 0A 09 6A 70 20 77 69 6E 72 65 order...jp winre
01C6D0: 74 0D 0A 0D 0A 2E 70 72 65 66 69 78 5F 62 6F 72 t.....prefix_bor
01C6E0: 64 65 72 20 62 79 74 65 20 31 36 2C 31 30 2C 33 der byte 16,10,3
01C6F0: 2C 33 30 0D 0A 2E 70 72 65 66 69 78 5F 74 78 74 ,30...prefix_txt
01C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 4E E5 18 00 C1 02 00 00 00 02 ......N.........
01C920: 18 00 C2 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C930: 18 00 C4 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C940: 18 00 C6 02 00 00 00 02 18 00 C7 02 00 00 00 02 ................
01C950: 18 00 C8 02 00 00 00 02 18 00 C9 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 31 20 50 52 49 4E 54 20 22 41 6E 73 69 22 0D 0A 1 PRINT "Ansi"..
01CA10: 0D 0A 2E 52 4C 5F 53 45 54 5F 4F 46 46 53 45 54 ...RL_SET_OFFSET
01CA20: 0D 0A 09 50 55 53 48 20 42 43 0D 0A 09 4C 44 20 ...PUSH BC...LD
01CA30: 41 2C 48 0D 0A 09 41 4E 44 20 26 37 0D 0A 09 4C A,H...AND &7...L
01CA40: 44 20 48 2C 41 0D 0A 09 4C 44 20 28 52 4C 5F 4F D H,A...LD (RL_O
01CA50: 46 46 53 45 54 29 2C 48 4C 0D 0A 20 20 20 20 20 FFSET),HL..
01CA60: 20 20 20 6C 64 20 61 2C 26 63 30 0D 0A 09 52 52 ld a,&c0...RR
01CA70: 43 41 0D 0A 09 52 52 43 41 0D 0A 09 41 4E 44 20 CA...RRCA...AND
01CA80: 26 33 30 0D 0A 09 4C 44 20 43 2C 41 0D 0A 09 4C &30...LD C,A...L
01CA90: 44 20 41 2C 48 0D 0A 09 52 52 41 0D 0A 09 41 4E D A,H...RRA...AN
01CAA0: 44 20 26 33 0D 0A 09 4F 52 20 43 0D 0A 09 4C 44 D &3...OR C...LD
01CAB0: 20 42 43 2C 26 42 43 30 43 0D 0A 09 4F 55 54 20 BC,&BC0C...OUT
01CAC0: 28 43 29 2C 43 0D 0A 09 49 4E 43 20 42 0D 0A 09 (C),C...INC B...
01CAD0: 4F 55 54 20 28 43 29 2C 41 0D 0A 09 44 45 43 20 OUT (C),A...DEC
01CAE0: 42 0D 0A 09 49 4E 43 20 43 0D 0A 09 4F 55 54 20 B...INC C...OUT
01CAF0: 28 43 29 2C 43 0D 0A 09 49 4E 43 20 42 0D 0A 09 (C),C...INC B...
01CB00: 4C 44 20 41 2C 48 0D 0A 20 20 20 20 20 20 20 20 LD A,H..
01CB10: 52 52 41 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 RRA.. LD
01CB20: 41 2C 4C 0D 0A 09 52 52 41 0D 0A 09 4F 55 54 20 A,L...RRA...OUT
01CB30: 28 43 29 2C 41 0D 0A 09 50 4F 50 20 42 43 0D 0A (C),A...POP BC..
01CB40: 09 52 45 54 0D 0A 0D 0A 0D 0A 0D 0A 2E 53 45 54 .RET.........SET
01CB50: 46 4F 4E 54 53 5F 52 41 0D 0A 09 4C 44 09 28 4A FONTS_RA...LD.(J
01CB60: 42 6F 6C 64 29 2C 41 09 3B 20 54 75 72 6E 20 74 Bold),A.; Turn t
01CB70: 68 65 20 66 6C 61 67 73 20 6F 66 66 0D 0A 09 4C he flags off...L
01CB80: 44 09 28 4A 49 74 61 6C 69 63 73 29 2C 41 0D 0A D.(JItalics),A..
01CB90: 09 4C 44 09 28 4A 55 6E 64 65 72 29 2C 41 0D 0A .LD.(JUnder),A..
01CBA0: 09 4C 44 09 28 4A 49 6E 76 65 72 73 65 29 2C 41 .LD.(JInverse),A
01CBB0: 0D 0A 09 4C 44 20 09 28 4A 66 65 69 6E 74 29 2C ...LD .(Jfeint),
01CBC0: 41 0D 0A 09 4C 44 09 28 4A 53 6D 61 73 68 29 2C A...LD.(JSmash),
01CBD0: 41 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 0D 0A 2E A...RET.........
01CBE0: 52 45 53 45 54 5F 41 4E 53 49 0D 0A 09 50 55 53 RESET_ANSI...PUS
01CBF0: 48 20 41 46 0D 0A 09 50 55 53 48 20 48 4C 0D 0A H AF...PUSH HL..
01CC00: 09 50 55 53 48 20 42 43 0D 0A 09 50 55 53 48 20 .PUSH BC...PUSH
01CC10: 44 45 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 09 DE...LD A,&C9...
01CC20: 43 41 4C 4C 20 53 45 54 46 4F 4E 54 53 5F 52 41 CALL SETFONTS_RA
01CC30: 0D 0A 09 4C 44 20 42 2C 36 0D 0A 09 4C 44 20 48 ...LD B,6...LD H
01CC40: 4C 2C 43 4F 4C 4F 55 52 53 41 56 45 0D 0A 20 20 L,COLOURSAVE..
01CC50: 20 20 20 20 20 20 4C 44 20 44 45 2C 52 45 53 45 LD DE,RESE
01CC60: 54 5F 41 4E 53 49 5F 42 55 46 0D 0A 2E 52 41 41 T_ANSI_BUF...RAA
01CC70: 31 09 0D 0A 20 20 20 20 20 20 20 20 50 55 53 48 1... PUSH
01CC80: 20 42 43 0D 0A 09 4C 44 20 43 2C 28 48 4C 29 0D BC...LD C,(HL).
01CC90: 0A 09 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 42 2C ..INC HL...LD B,
01CCA0: 28 48 4C 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 (HL)...INC HL...
01CCB0: 4C 44 20 41 2C 28 42 43 29 0D 0A 09 4C 44 20 28 LD A,(BC)...LD (
01CCC0: 44 45 29 2C 41 0D 0A 09 49 4E 43 20 44 45 0D 0A DE),A...INC DE..
01CCD0: 09 50 4F 50 20 42 43 0D 0A 09 44 4A 4E 5A 20 52 .POP BC...DJNZ R
01CCE0: 41 41 31 0D 0A 09 4C 44 20 48 4C 2C 4E 55 4D 42 AA1...LD HL,NUMB
01CCF0: 45 52 50 4F 53 0D 0A 09 4C 44 20 42 43 2C 32 35 ERPOS...LD BC,25
01CD00: 0D 0A 09 4C 44 20 44 45 2C 41 4E 53 49 53 54 4F ...LD DE,ANSISTO
01CD10: 52 45 0D 0A 09 4C 44 49 52 0D 0A 09 58 4F 52 09 RE...LDIR...XOR.
01CD20: 41 09 09 3B 20 52 65 73 65 74 20 62 61 63 6B 67 A..; Reset backg
01CD30: 72 6F 75 6E 64 20 74 6F 20 62 6C 61 63 6B 0D 0A round to black..
01CD40: 09 4C 44 09 28 62 61 63 6B 63 6F 6C 6F 75 72 29 .LD.(backcolour)
01CD50: 2C 41 0D 0A 09 4C 44 09 41 2C 37 09 09 3B 20 52 ,A...LD.A,7..; R
01CD60: 65 73 65 74 20 66 6F 72 65 67 72 6F 75 6E 64 20 eset foreground
01CD70: 74 6F 20 77 68 69 74 65 0D 0A 09 4C 44 09 28 66 to white...LD.(f
01CD80: 6F 72 65 63 6F 6C 6F 75 72 29 2C 41 0D 0A 09 4C orecolour),A...L
01CD90: 44 20 41 2C 26 43 39 0D 0A 09 4C 44 20 28 4A 41 D A,&C9...LD (JA
01CDA0: 4E 53 49 29 2C 41 0D 0A 09 4C 44 09 48 4C 2C 4E NSI),A...LD.HL,N
01CDB0: 75 6D 62 65 72 42 75 66 66 65 72 09 09 3B 20 4E umberBuffer..; N
01CDC0: 75 6D 62 65 72 73 20 62 75 66 66 65 72 20 70 6F umbers buffer po
01CDD0: 73 69 74 69 6F 6E 0D 0A 09 4C 44 09 28 4E 75 6D sition...LD.(Num
01CDE0: 62 65 72 50 6F 73 29 2C 48 4C 0D 0A 09 58 4F 52 berPos),HL...XOR
01CDF0: 09 41 0D 0A 09 4C 44 09 28 43 68 61 72 61 63 74 .A...LD.(Charact
01CE00: 65 72 4E 6F 29 2C 41 09 09 3B 20 4E 65 78 74 20 erNo),A..; Next
01CE10: 74 69 6D 65 20 69 74 20 72 75 6E 73 2C 20 69 74 time it runs, it
01CE20: 20 77 69 6C 6C 20 62 65 20 74 68 65 0D 0A 09 09 will be the....
01CE30: 09 09 09 3B 20 66 69 72 73 74 20 63 68 61 72 61 ...; first chara
01CE40: 63 74 65 72 0D 0A 09 4C 44 09 28 48 61 76 65 4C cter...LD.(HaveL
01CE50: 6F 61 64 65 64 29 2C 41 09 09 3B 20 57 65 20 68 oaded),A..; We h
01CE60: 61 76 65 6E 27 74 20 66 69 6C 6C 65 64 20 74 68 aven't filled th
01CE70: 69 73 20 62 79 74 65 21 0D 0A 09 4C 44 20 09 28 is byte!...LD .(
01CE80: 4A 70 72 69 6E 74 29 2C 41 0D 0A 09 4C 44 09 28 Jprint),A...LD.(
01CE90: 4A 67 65 74 63 68 61 72 61 63 74 65 72 29 2C 41 Jgetcharacter),A
01CEA0: 0D 0A 09 50 4F 50 20 44 45 0D 0A 09 50 4F 50 20 ...POP DE...POP
01CEB0: 42 43 09 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 50 BC....POP HL...P
01CEC0: 4F 50 20 41 46 0D 0A 09 52 45 54 0D 0A 09 0D 0A OP AF...RET.....
01CED0: 2E 53 45 54 5F 41 4E 53 49 0D 0A 09 50 55 53 48 .SET_ANSI...PUSH
01CEE0: 20 41 46 0D 0A 09 50 55 53 48 20 48 4C 0D 0A 09 AF...PUSH HL...
01CEF0: 50 55 53 48 20 42 43 0D 0A 09 50 55 53 48 20 44 PUSH BC...PUSH D
01CF00: 45 0D 0A 09 58 4F 52 20 41 0D 0A 09 43 41 4C 4C E...XOR A...CALL
01CF10: 20 53 45 54 46 4F 4E 54 53 5F 52 41 0D 0A 09 4C SETFONTS_RA...L
01CF20: 44 20 42 2C 36 0D 0A 09 4C 44 20 48 4C 2C 43 4F D B,6...LD HL,CO
01CF30: 4C 4F 55 52 53 41 56 45 0D 0A 20 20 20 20 20 20 LOURSAVE..
01CF40: 20 20 4C 44 20 44 45 2C 52 45 53 45 54 5F 41 4E LD DE,RESET_AN
01CF50: 53 49 5F 42 55 46 0D 0A 2E 52 41 41 32 09 50 55 SI_BUF...RAA2.PU
01CF60: 53 48 20 42 43 0D 0A 09 4C 44 20 43 2C 28 48 4C SH BC...LD C,(HL
01CF70: 29 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 )...INC HL...LD
01CF80: 42 2C 28 48 4C 29 0D 0A 09 49 4E 43 20 48 4C 0D B,(HL)...INC HL.
01CF90: 0A 09 4C 44 20 41 2C 28 44 45 29 0D 0A 09 4C 44 ..LD A,(DE)...LD
01CFA0: 20 28 42 43 29 2C 41 0D 0A 09 49 4E 43 20 44 45 (BC),A...INC DE
01CFB0: 0D 0A 09 50 4F 50 20 42 43 0D 0A 09 44 4A 4E 5A ...POP BC...DJNZ
01CFC0: 20 52 41 41 32 0D 0A 09 4C 44 20 44 45 2C 4E 55 RAA2...LD DE,NU
01CFD0: 4D 42 45 52 50 4F 53 0D 0A 09 4C 44 20 42 43 2C MBERPOS...LD BC,
01CFE0: 32 35 0D 0A 09 4C 44 20 48 4C 2C 41 4E 53 49 53 25...LD HL,ANSIS
01CFF0: 54 4F 52 45 0D 0A 09 4C 44 49 52 0D 0A 0D 0A 09 TORE...LDIR.....
01D000: 4C 44 20 41 2C 28 46 4F 4E 54 53 45 54 29 09 09 LD A,(FONTSET)..
01D010: 0D 0A 09 4C 44 20 43 2C 41 0D 0A 20 20 20 20 20 ...LD C,A..
01D020: 20 20 20 4F 52 20 41 0D 0A 09 4C 44 20 41 2C 26 OR A...LD A,&
01D030: 43 39 0D 0A 09 4A 52 20 5A 2C 53 41 31 09 09 3B C9...JR Z,SA1..;
01D040: 30 20 4F 52 20 4F 4E 0D 0A 09 4C 44 09 28 4A 67 0 OR ON...LD.(Jg
01D050: 65 74 63 68 61 72 61 63 74 65 72 29 2C 41 0D 0A etcharacter),A..
01D060: 53 41 31 09 42 49 54 20 30 2C 43 0D 0A 09 4A 52 SA1.BIT 0,C...JR
01D070: 20 4E 5A 2C 53 41 32 0D 0A 09 4C 44 09 28 4A 42 NZ,SA2...LD.(JB
01D080: 6F 6C 64 29 2C 41 09 0D 0A 53 41 32 09 42 49 54 old),A...SA2.BIT
01D090: 20 31 2C 43 0D 0A 09 4A 52 20 4E 5A 2C 53 41 33 1,C...JR NZ,SA3
01D0A0: 0D 0A 09 4C 44 09 28 4A 49 74 61 6C 69 63 73 29 ...LD.(JItalics)
01D0B0: 2C 41 0D 0A 53 41 33 09 42 49 54 20 32 2C 43 0D ,A..SA3.BIT 2,C.
01D0C0: 0A 09 4A 52 20 4E 5A 2C 53 41 34 0D 0A 20 20 09 ..JR NZ,SA4.. .
01D0D0: 4C 44 09 28 4A 55 6E 64 65 72 29 2C 41 0D 0A 53 LD.(JUnder),A..S
01D0E0: 41 34 09 42 49 54 20 33 2C 43 0D 0A 09 4A 52 20 A4.BIT 3,C...JR
01D0F0: 4E 5A 2C 53 41 35 0D 0A 09 4C 44 09 28 4A 49 6E NZ,SA5...LD.(JIn
01D100: 76 65 72 73 65 29 2C 41 0D 0A 53 41 35 09 42 49 verse),A..SA5.BI
01D110: 54 20 35 2C 43 0D 0A 09 4A 52 20 4E 5A 2C 53 41 T 5,C...JR NZ,SA
01D120: 36 0D 0A 09 4C 44 20 09 28 4A 66 65 69 6E 74 29 6...LD .(Jfeint)
01D130: 2C 41 0D 0A 53 41 36 09 0D 0A 09 42 49 54 20 34 ,A..SA6....BIT 4
01D140: 2C 43 0D 0A 09 4A 52 20 4E 5A 2C 53 41 37 0D 0A ,C...JR NZ,SA7..
01D150: 09 4C 44 09 28 4A 53 6D 61 73 68 29 2C 41 0D 0A .LD.(JSmash),A..
01D160: 53 41 37 0D 0A 09 50 4F 50 20 44 45 0D 0A 09 50 SA7...POP DE...P
01D170: 4F 50 20 42 43 09 0D 0A 09 50 4F 50 20 48 4C 0D OP BC....POP HL.
01D180: 0A 09 50 4F 50 20 41 46 0D 0A 09 52 45 54 0D 0A ..POP AF...RET..
01D190: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 2E 4A ...............J
01D1A0: 41 6E 73 69 09 42 59 54 45 09 26 43 39 09 09 3B Ansi.BYTE.&C9..;
01D1B0: 20 30 20 3D 20 6F 6E 2C 20 26 43 39 20 3D 20 6F 0 = on, &C9 = o
01D1C0: 66 66 0D 0A 2E 61 6E 73 69 09 70 75 73 68 20 68 ff...ansi.push h
01D1D0: 6C 0D 0A 09 50 55 53 48 09 44 45 0D 0A 09 50 55 l...PUSH.DE...PU
01D1E0: 53 48 09 42 43 0D 0A 09 50 55 53 48 09 41 46 0D SH.BC...PUSH.AF.
01D1F0: 0A 09 4C 44 09 43 2C 41 09 09 3B 20 4D 6F 76 65 ..LD.C,A..; Move
01D200: 20 63 68 61 72 61 63 74 65 72 20 69 6E 74 6F 20 character into
01D210: 43 20 66 6F 72 20 73 61 66 65 20 6B 65 65 70 69 C for safe keepi
01D220: 6E 67 0D 0A 09 43 50 09 32 37 0D 0A 09 4A 50 09 ng...CP.27...JP.
01D230: 5A 2C 41 6E 73 69 4D 6F 72 65 09 3B 20 49 66 20 Z,AnsiMore.; If
01D240: 69 74 20 69 73 20 43 68 72 20 32 37 20 74 68 65 it is Chr 27 the
01D250: 6E 20 77 65 20 68 61 76 65 6E 27 74 20 6A 75 73 n we haven't jus
01D260: 74 0D 0A 09 09 09 09 3B 20 62 65 65 6E 20 74 75 t......; been tu
01D270: 72 6E 65 64 20 6F 6E 2C 20 73 6F 20 64 6F 6E 27 rned on, so don'
01D280: 74 20 62 6F 74 68 65 72 20 77 69 74 68 0D 0A 09 t bother with...
01D290: 09 09 09 3B 20 61 6C 6C 20 74 68 65 20 63 68 65 ...; all the che
01D2A0: 63 6B 69 6E 67 2E 0D 0A 09 4C 44 09 41 2C 28 43 cking....LD.A,(C
01D2B0: 68 61 72 61 63 74 65 72 4E 6F 29 09 3B 20 43 68 haracterNo).; Ch
01D2C0: 61 72 61 63 74 65 72 20 6E 75 6D 62 65 72 20 69 aracter number i
01D2D0: 6E 20 73 65 71 75 65 6E 63 65 0D 0A 09 4F 52 09 n sequence...OR.
01D2E0: 41 09 09 3B 20 49 73 20 74 68 69 73 20 74 68 65 A..; Is this the
01D2F0: 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 first character
01D300: 3F 0D 0A 09 4A 50 09 5A 2C 41 6E 73 69 46 69 72 ?...JP.Z,AnsiFir
01D310: 73 74 09 3B 20 59 65 73 2C 20 64 65 61 6C 20 77 st.; Yes, deal w
01D320: 69 74 68 20 74 68 69 73 20 73 74 72 61 6E 67 65 ith this strange
01D330: 20 6F 63 63 75 72 61 6E 63 65 21 0D 0A 0D 0A 09 occurance!.....
01D340: 4C 44 09 41 2C 43 09 09 3B 20 50 75 74 20 63 68 LD.A,C..; Put ch
01D350: 61 72 61 63 74 65 72 20 62 61 63 6B 20 69 6E 20 aracter back in
01D360: 43 20 74 6F 20 63 68 65 63 6B 0D 0A 0D 0A 09 43 C to check.....C
01D370: 50 09 22 3B 22 09 09 3B 20 49 73 20 69 74 20 61 P.";"..; Is it a
01D380: 20 73 65 6D 69 20 63 6F 6C 6F 6E 3F 0D 0A 09 4A semi colon?...J
01D390: 50 09 5A 2C 41 6E 73 69 53 65 6D 69 0D 0A 09 0D P.Z,AnsiSemi....
01D3A0: 0A 09 43 50 09 22 30 22 09 09 3B 20 49 73 20 69 ..CP."0"..; Is i
01D3B0: 74 20 61 20 6E 75 6D 62 65 72 3F 0D 0A 09 4A 52 t a number?...JR
01D3C0: 09 43 2C 41 6E 73 69 5F 4E 4E 09 3B 20 49 66 20 .C,Ansi_NN.; If
01D3D0: 3C 30 20 74 68 65 6E 20 6E 6F 0D 0A 09 43 50 09 <0 then no...CP.
01D3E0: 22 39 22 2B 31 09 09 3B 20 49 66 20 3E 39 20 74 "9"+1..; If >9 t
01D3F0: 68 65 6E 20 6E 6F 0D 0A 09 4A 50 09 43 2C 41 6E hen no...JP.C,An
01D400: 73 69 4E 75 6D 62 65 72 0D 0A 0D 0A 2E 41 6E 73 siNumber.....Ans
01D410: 69 5F 4E 4E 0D 0A 09 43 50 09 22 3F 22 09 09 3B i_NN...CP."?"..;
01D420: 20 53 69 6D 70 6C 65 20 74 72 61 70 20 66 6F 72 Simple trap for
01D430: 20 73 69 6D 70 6C 65 20 70 72 6F 62 6C 65 6D 21 simple problem!
01D440: 0D 0A 09 4A 50 09 5A 2C 41 6E 73 69 4D 6F 72 65 ...JP.Z,AnsiMore
01D450: 0D 0A 0D 0A 09 43 50 09 22 40 22 09 09 3B 20 49 .....CP."@"..; I
01D460: 73 20 69 74 20 61 20 6C 65 74 74 65 72 3F 0D 0A s it a letter?..
01D470: 09 4A 50 09 43 2C 41 6E 73 69 45 78 69 74 09 3B .JP.C,AnsiExit.;
01D480: 20 41 62 61 6E 64 6F 6E 20 69 66 20 6E 6F 74 20 Abandon if not
01D490: 6C 65 74 74 65 72 3B 20 73 6F 6D 65 74 68 69 6E letter; somethin
01D4A0: 67 20 77 72 6F 6E 67 0D 0A 0D 0A 2E 41 6E 73 69 g wrong.....Ansi
01D4B0: 46 6F 75 6E 64 0D 0A 09 4C 44 09 41 2C 26 43 39 Found...LD.A,&C9
01D4C0: 0D 0A 09 4C 44 09 28 4A 41 6E 73 69 29 2C 41 09 ...LD.(JAnsi),A.
01D4D0: 3B 20 54 75 72 6E 20 69 74 73 65 6C 66 20 6F 66 ; Turn itself of
01D4E0: 66 20 6E 6F 77 2E 2E 2E 0D 0A 09 58 4F 52 09 41 f now......XOR.A
01D4F0: 09 09 3B 20 7A 65 72 6F 20 65 6E 64 20 6F 66 20 ..; zero end of
01D500: 73 65 71 75 65 6E 63 65 20 6D 61 72 6B 65 72 0D sequence marker.
01D510: 0A 09 4C 44 09 28 4A 53 63 72 6E 42 75 66 29 2C ..LD.(JScrnBuf),
01D520: 41 0D 0A 09 4C 44 09 28 4A 70 72 69 6E 74 29 2C A...LD.(Jprint),
01D530: 41 0D 0A 0D 0A 09 4C 44 09 48 4C 2C 28 4E 75 6D A.....LD.HL,(Num
01D540: 62 65 72 50 6F 73 29 09 3B 20 47 65 74 20 76 61 berPos).; Get va
01D550: 6C 75 65 20 6F 66 20 6E 75 6D 62 65 72 20 62 75 lue of number bu
01D560: 66 66 65 72 0D 0A 09 4C 44 09 41 2C 28 48 61 76 ffer...LD.A,(Hav
01D570: 65 4C 6F 61 64 65 64 29 09 3B 20 44 69 64 20 77 eLoaded).; Did w
01D580: 65 20 70 75 74 20 61 6E 79 74 68 69 6E 67 20 69 e put anything i
01D590: 6E 20 74 68 69 73 20 62 79 74 65 3F 0D 0A 09 4F n this byte?...O
01D5A0: 52 09 41 0D 0A 09 4A 52 09 4E 5A 2C 41 46 31 0D R.A...JR.NZ,AF1.
01D5B0: 0A 09 4C 44 09 28 48 4C 29 2C 32 35 35 09 3B 20 ..LD.(HL),255.;
01D5C0: 4D 61 72 6B 20 74 68 65 20 66 61 63 74 20 74 68 Mark the fact th
01D5D0: 61 74 20 6E 6F 74 68 69 6E 67 20 77 61 73 20 70 at nothing was p
01D5E0: 75 74 20 69 6E 0D 0A 2E 41 46 31 09 49 4E 43 09 ut in...AF1.INC.
01D5F0: 48 4C 0D 0A 09 4C 44 09 41 2C 32 35 34 0D 0A 09 HL...LD.A,254...
01D600: 4C 44 09 28 48 4C 29 2C 41 09 09 3B 20 4D 61 72 LD.(HL),A..; Mar
01D610: 6B 20 65 6E 64 20 6F 66 20 73 65 71 75 65 6E 63 k end of sequenc
01D620: 65 20 28 66 6F 72 20 75 6E 6C 69 6D 69 74 65 64 e (for unlimited
01D630: 20 6C 65 6E 67 74 68 0D 0A 09 09 09 09 3B 20 73 length......; s
01D640: 65 71 75 65 6E 63 65 73 29 0D 0A 3B 2A 2A 2A 20 equences)..;***
01D650: 44 69 73 61 62 6C 65 20 63 75 72 73 6F 72 2C 20 Disable cursor,
01D660: 62 65 63 61 75 73 65 20 69 74 20 6D 69 67 68 74 because it might
01D670: 20 77 65 6C 6C 20 6D 6F 76 65 21 0D 0A 09 4C 44 well move!...LD
01D680: 09 41 2C 28 43 75 72 73 6F 72 4F 6E 29 0D 0A 09 .A,(CursorOn)...
01D690: 4F 52 09 41 09 09 09 3B 20 57 65 6C 6C 2C 20 77 OR.A...; Well, w
01D6A0: 68 61 74 20 64 6F 20 77 65 20 68 61 76 65 20 68 hat do we have h
01D6B0: 65 72 65 3F 21 0D 0A 09 43 41 4C 4C 09 4E 5A 2C ere?!...CALL.NZ,
01D6C0: 63 75 72 73 6F 72 09 09 3B 20 49 66 20 63 75 72 cursor..; If cur
01D6D0: 73 6F 72 20 6F 6E 2C 20 74 68 65 6E 20 72 65 6D sor on, then rem
01D6E0: 6F 76 65 0D 0A 0D 0A 09 58 4F 52 09 41 0D 0A 09 ove.....XOR.A...
01D6F0: 4C 44 09 28 43 75 72 73 6F 72 4F 6E 29 2C 41 09 LD.(CursorOn),A.
01D700: 09 3B 20 41 6E 64 20 63 75 72 73 6F 72 20 69 73 .; And cursor is
01D710: 20 6E 6F 77 20 6F 66 66 0D 0A 09 4C 44 09 28 43 now off...LD.(C
01D720: 75 72 73 6F 72 43 6F 75 6E 74 29 2C 41 09 09 3B ursorCount),A..;
01D730: 20 52 65 73 74 61 72 74 20 63 6F 75 6E 74 0D 0A Restart count..
01D740: 09 4C 44 09 41 2C 26 43 39 0D 0A 09 4C 44 09 28 .LD.A,&C9...LD.(
01D750: 4A 43 68 61 6E 67 65 43 75 72 73 6F 72 29 2C 41 JChangeCursor),A
01D760: 09 3B 20 44 69 73 61 62 6C 65 20 66 6C 61 73 68 .; Disable flash
01D770: 69 6E 67 20 74 65 6D 70 2E 0D 0A 0D 0A 09 4C 44 ing temp......LD
01D780: 09 48 4C 2C 4E 75 6D 62 65 72 42 75 66 66 65 72 .HL,NumberBuffer
01D790: 09 3B 20 46 6F 72 20 74 68 65 20 72 6F 75 74 69 .; For the routi
01D7A0: 6E 65 20 63 61 6C 6C 65 64 2E 0D 0A 09 4C 44 09 ne called....LD.
01D7B0: 41 2C 43 09 09 3B 20 52 65 73 74 6F 72 65 20 6E A,C..; Restore n
01D7C0: 75 6D 62 65 72 0D 0A 3B 0D 0A 3B 09 4E 6F 77 20 umber..;..;.Now
01D7D0: 77 6F 72 6B 20 6F 75 74 20 77 68 61 74 20 68 61 work out what ha
01D7E0: 70 70 65 6E 73 2E 2E 2E 0D 0A 3B 0D 0A 09 43 50 ppens.....;...CP
01D7F0: 09 22 41 22 09 09 3B 20 43 68 65 63 6B 20 66 6F ."A"..; Check fo
01D800: 72 20 73 75 70 70 6F 72 74 65 64 20 41 6E 73 69 r supported Ansi
01D810: 20 63 68 61 72 61 63 74 65 72 73 0D 0A 09 4A 50 characters...JP
01D820: 09 5A 2C 43 55 55 09 09 3B 20 55 70 77 61 72 64 .Z,CUU..; Upward
01D830: 73 0D 0A 09 43 50 09 22 42 22 0D 0A 09 4A 50 09 s...CP."B"...JP.
01D840: 5A 2C 43 55 44 09 09 3B 20 44 6F 77 6E 77 61 72 Z,CUD..; Downwar
01D850: 64 73 0D 0A 09 43 50 09 22 43 22 0D 0A 09 4A 50 ds...CP."C"...JP
01D860: 09 5A 2C 43 55 46 09 09 3B 20 46 6F 72 77 61 72 .Z,CUF..; Forwar
01D870: 64 0D 0A 09 43 50 09 22 44 22 0D 0A 09 4A 50 09 d...CP."D"...JP.
01D880: 5A 2C 43 55 42 09 09 3B 20 42 61 63 6B 77 61 72 Z,CUB..; Backwar
01D890: 64 0D 0A 09 43 50 09 22 48 22 0D 0A 09 4A 50 09 d...CP."H"...JP.
01D8A0: 5A 2C 43 55 50 09 09 3B 20 4C 6F 63 61 74 65 0D Z,CUP..; Locate.
01D8B0: 0A 09 43 50 09 22 66 22 0D 0A 09 4A 50 09 5A 2C ..CP."f"...JP.Z,
01D8C0: 48 56 50 09 09 3B 20 4C 6F 63 61 74 65 0D 0A 09 HVP..; Locate...
01D8D0: 43 50 09 22 4A 22 0D 0A 09 4A 50 09 5A 2C 45 44 CP."J"...JP.Z,ED
01D8E0: 09 09 3B 20 43 6C 65 61 72 20 73 63 72 65 65 6E ..; Clear screen
01D8F0: 0D 0A 09 43 50 09 22 6D 22 0D 0A 09 4A 50 09 5A ...CP."m"...JP.Z
01D900: 2C 53 47 52 09 09 3B 20 53 65 74 20 67 72 61 70 ,SGR..; Set grap
01D910: 68 69 63 73 20 72 65 6E 64 69 74 6F 6E 0D 0A 09 hics renditon...
01D920: 43 50 09 22 4B 22 0D 0A 09 4A 50 09 5A 2C 45 4C CP."K"...JP.Z,EL
01D930: 09 09 3B 20 43 6C 65 61 72 20 74 6F 20 65 6E 64 ..; Clear to end
01D940: 20 6F 66 20 6C 69 6E 65 0D 0A 09 43 50 09 22 73 of line...CP."s
01D950: 22 0D 0A 09 4A 50 09 5A 2C 53 43 50 09 09 3B 20 "...JP.Z,SCP..;
01D960: 53 61 76 65 20 74 68 65 20 63 75 72 73 6F 72 20 Save the cursor
01D970: 70 6F 73 69 74 69 6F 6E 0D 0A 09 43 50 09 22 75 position...CP."u
01D980: 22 0D 0A 09 4A 50 09 5A 2C 52 43 50 09 09 3B 20 "...JP.Z,RCP..;
01D990: 52 65 73 74 6F 72 65 20 74 68 65 20 63 75 72 73 Restore the curs
01D9A0: 6F 72 20 70 6F 73 69 74 69 6F 6E 0D 0A 0D 0A 2E or position.....
01D9B0: 41 6E 73 69 45 78 69 74 0D 0A 09 4C 44 09 48 4C AnsiExit...LD.HL
01D9C0: 2C 4E 75 6D 62 65 72 42 75 66 66 65 72 09 3B 20 ,NumberBuffer.;
01D9D0: 4E 75 6D 62 65 72 73 20 62 75 66 66 65 72 20 70 Numbers buffer p
01D9E0: 6F 73 69 74 69 6F 6E 0D 0A 09 4C 44 09 28 4E 75 osition...LD.(Nu
01D9F0: 6D 62 65 72 50 6F 73 29 2C 48 4C 0D 0A 09 58 4F mberPos),HL...XO
01DA00: 52 09 41 0D 0A 09 4C 44 09 28 43 68 61 72 61 63 R.A...LD.(Charac
01DA10: 74 65 72 4E 6F 29 2C 41 09 09 3B 20 4E 65 78 74 terNo),A..; Next
01DA20: 20 74 69 6D 65 20 69 74 20 72 75 6E 73 2C 20 69 time it runs, i
01DA30: 74 20 77 69 6C 6C 20 62 65 20 74 68 65 0D 0A 09 t will be the...
01DA40: 09 09 09 09 3B 20 66 69 72 73 74 20 63 68 61 72 ....; first char
01DA50: 61 63 74 65 72 0D 0A 09 4C 44 09 28 48 61 76 65 acter...LD.(Have
01DA60: 4C 6F 61 64 65 64 29 2C 41 09 09 3B 20 57 65 20 Loaded),A..; We
01DA70: 68 61 76 65 6E 27 74 20 66 69 6C 6C 65 64 20 74 haven't filled t
01DA80: 68 69 73 20 62 79 74 65 21 0D 0A 09 4C 44 09 28 his byte!...LD.(
01DA90: 4A 43 68 61 6E 67 65 43 75 72 73 6F 72 29 2C 41 JChangeCursor),A
01DAA0: 09 3B 20 43 75 72 73 6F 72 20 61 6C 6C 6F 77 65 .; Cursor allowe
01DAB0: 64 20 62 61 63 6B 20 61 67 61 69 6E 21 0D 0A 2E d back again!...
01DAC0: 41 6E 73 69 4D 6F 72 65 0D 0A 09 50 4F 50 09 41 AnsiMore...POP.A
01DAD0: 46 0D 0A 09 50 4F 50 09 42 43 0D 0A 09 50 4F 50 F...POP.BC...POP
01DAE0: 09 44 45 0D 0A 09 50 4F 50 09 48 4C 0D 0A 09 52 .DE...POP.HL...R
01DAF0: 45 54 0D 0A 0D 0A 3B 0D 0A 3B 09 54 68 65 20 76 ET....;..;.The v
01DB00: 61 72 69 6F 75 73 20 72 6F 75 74 69 6E 65 73 20 arious routines
01DB10: 6E 65 65 64 65 64 20 74 6F 20 68 61 6E 64 6C 65 needed to handle
01DB20: 20 74 68 65 20 66 69 6C 74 65 72 65 64 20 63 68 the filtered ch
01DB30: 61 72 61 63 74 65 72 73 0D 0A 3B 0D 0A 2E 41 6E aracters..;...An
01DB40: 73 69 46 69 72 73 74 0D 0A 09 4C 44 09 41 2C 32 siFirst...LD.A,2
01DB50: 35 35 0D 0A 09 4C 44 09 28 43 68 61 72 61 63 74 55...LD.(Charact
01DB60: 65 72 4E 6F 29 2C 41 09 09 3B 20 4E 65 78 74 20 erNo),A..; Next
01DB70: 63 68 61 72 61 63 74 65 72 20 69 73 20 6E 6F 74 character is not
01DB80: 20 66 69 72 73 74 21 0D 0A 09 4C 44 09 41 2C 43 first!...LD.A,C
01DB90: 09 09 09 3B 20 47 65 74 20 63 68 61 72 61 63 74 ...; Get charact
01DBA0: 65 72 20 62 61 63 6B 0D 0A 09 4C 44 09 28 41 6E er back...LD.(An
01DBB0: 73 69 57 61 73 46 69 72 73 74 29 2C 41 09 3B 20 siWasFirst),A.;
01DBC0: 53 61 76 65 20 66 69 72 73 74 20 63 68 61 72 61 Save first chara
01DBD0: 63 74 65 72 20 74 6F 20 63 68 65 63 6B 20 6C 61 cter to check la
01DBE0: 74 65 72 0D 0A 09 43 50 09 22 28 22 09 09 09 3B ter...CP."("...;
01DBF0: 20 28 20 61 6E 64 20 5B 20 68 61 76 65 20 63 68 ( and [ have ch
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 4E E5 19 00 C1 02 00 00 00 02 ......N.........
01DC20: 19 00 C2 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC30: 19 00 C4 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC40: 19 00 C6 02 00 00 00 02 19 00 C7 02 00 00 00 02 ................
01DC50: 19 00 C8 02 00 00 00 02 19 00 C9 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 61 72 61 63 74 65 72 73 20 74 6F 20 66 6F 6C 6C aracters to foll
01DD10: 6F 77 0D 0A 09 4A 50 09 5A 2C 41 6E 73 69 4D 6F ow...JP.Z,AnsiMo
01DD20: 72 65 09 09 3B 20 61 6E 64 20 61 72 65 20 6C 65 re..; and are le
01DD30: 67 61 6C 2E 0D 0A 09 43 50 09 22 5B 22 0D 0A 09 gal....CP."["...
01DD40: 4A 50 09 5A 2C 41 6E 73 69 4D 6F 72 65 0D 0A 09 JP.Z,AnsiMore...
01DD50: 4C 44 09 41 2C 26 43 39 0D 0A 09 4C 44 09 28 4A LD.A,&C9...LD.(J
01DD60: 41 6E 73 69 29 2C 41 09 09 3B 20 54 75 72 6E 20 Ansi),A..; Turn
01DD70: 69 74 73 65 6C 66 20 6F 66 66 20 6E 6F 77 2E 2E itself off now..
01DD80: 2E 0D 0A 09 58 4F 52 09 41 09 09 09 3B 20 61 6E ....XOR.A...; an
01DD90: 64 20 74 75 72 6E 20 74 68 65 20 73 63 72 65 65 d turn the scree
01DDA0: 6E 20 62 61 63 6B 20 6F 6E 0D 0A 09 4C 44 09 28 n back on...LD.(
01DDB0: 4A 53 63 72 6E 42 75 66 29 2C 41 0D 0A 09 4C 44 JScrnBuf),A...LD
01DDC0: 09 28 4A 70 72 69 6E 74 29 2C 41 0D 0A 09 4A 50 .(Jprint),A...JP
01DDD0: 09 41 6E 73 69 45 78 69 74 09 09 3B 20 3D 20 61 .AnsiExit..; = a
01DDE0: 6E 64 20 3E 20 64 6F 6E 27 74 20 68 61 76 65 20 nd > don't have
01DDF0: 61 6E 79 74 68 69 6E 67 20 74 6F 20 66 6F 6C 6C anything to foll
01DE00: 6F 77 0D 0A 09 09 09 09 09 3B 20 74 68 65 6D 20 ow.......; them
01DE10: 62 75 74 20 61 72 65 20 6C 65 67 61 6C 2E 20 20 but are legal.
01DE20: 0D 0A 09 09 09 09 09 3B 20 4F 74 68 65 72 73 20 .......; Others
01DE30: 61 72 65 20 69 6C 6C 65 67 61 6C 2C 20 73 6F 20 are illegal, so
01DE40: 61 62 61 6E 64 6F 6E 20 61 6E 79 77 61 79 2E 0D abandon anyway..
01DE50: 0A 0D 0A 2E 41 6E 73 69 53 65 6D 69 0D 0A 09 4C ....AnsiSemi...L
01DE60: 44 09 48 4C 2C 28 4E 75 6D 62 65 72 50 6F 73 29 D.HL,(NumberPos)
01DE70: 09 09 3B 20 4D 6F 76 65 20 74 68 65 20 6E 75 6D ..; Move the num
01DE80: 62 65 72 20 70 6F 69 6E 74 65 72 20 74 6F 20 74 ber pointer to t
01DE90: 68 65 0D 0A 09 4C 44 09 41 2C 28 48 61 76 65 4C he...LD.A,(HaveL
01DEA0: 6F 61 64 65 64 29 09 09 3B 20 44 69 64 20 77 65 oaded)..; Did we
01DEB0: 20 70 75 74 20 61 6E 79 74 68 69 6E 67 20 69 6E put anything in
01DEC0: 20 74 68 69 73 20 62 79 74 65 3F 0D 0A 09 4F 52 this byte?...OR
01DED0: 09 41 0D 0A 09 4A 52 09 4E 5A 2C 41 53 31 0D 0A .A...JR.NZ,AS1..
01DEE0: 09 4C 44 09 28 48 4C 29 2C 32 35 35 09 09 3B 20 .LD.(HL),255..;
01DEF0: 4D 61 72 6B 20 74 68 65 20 66 61 63 74 20 74 68 Mark the fact th
01DF00: 61 74 20 6E 6F 74 68 69 6E 67 20 77 61 73 20 70 at nothing was p
01DF10: 75 74 20 69 6E 0D 0A 2E 41 53 31 09 49 4E 43 09 ut in...AS1.INC.
01DF20: 48 4C 09 09 09 3B 20 6D 6F 76 65 20 74 6F 20 6E HL...; move to n
01DF30: 65 78 74 20 62 79 74 65 0D 0A 09 4C 44 09 28 4E ext byte...LD.(N
01DF40: 75 6D 62 65 72 50 6F 73 29 2C 48 4C 0D 0A 09 58 umberPos),HL...X
01DF50: 4F 52 09 41 0D 0A 09 4C 44 09 28 48 61 76 65 4C OR.A...LD.(HaveL
01DF60: 6F 61 64 65 64 29 2C 41 09 09 3B 20 4E 65 77 20 oaded),A..; New
01DF70: 62 79 74 65 20 3D 3E 20 6E 6F 74 20 66 69 6C 6C byte => not fill
01DF80: 65 64 21 0D 0A 09 4A 50 09 41 6E 73 69 4D 6F 72 ed!...JP.AnsiMor
01DF90: 65 0D 0A 0D 0A 2E 41 6E 73 69 4E 75 6D 62 65 72 e.....AnsiNumber
01DFA0: 0D 0A 09 4C 44 09 48 4C 2C 28 4E 75 6D 62 65 72 ...LD.HL,(Number
01DFB0: 50 6F 73 29 09 09 3B 20 47 65 74 20 61 64 64 72 Pos)..; Get addr
01DFC0: 65 73 73 20 66 6F 72 20 6E 75 6D 62 65 72 0D 0A ess for number..
01DFD0: 09 4C 44 09 41 2C 28 48 61 76 65 4C 6F 61 64 65 .LD.A,(HaveLoade
01DFE0: 64 29 0D 0A 09 4F 52 09 41 09 09 09 3B 20 49 66 d)...OR.A...; If
01DFF0: 20 76 61 6C 75 65 20 69 73 20 7A 65 72 6F 0D 0A value is zero..
01E000: 09 4A 52 09 4E 5A 2C 41 4E 31 0D 0A 09 4C 44 09 .JR.NZ,AN1...LD.
01E010: 41 2C 43 09 09 09 3B 20 47 65 74 20 76 61 6C 75 A,C...; Get valu
01E020: 65 20 69 6E 74 6F 20 41 0D 0A 09 53 55 42 09 22 e into A...SUB."
01E030: 30 22 09 09 09 3B 20 52 65 6D 6F 76 65 20 41 53 0"...; Remove AS
01E040: 43 49 49 20 6F 66 66 73 65 74 0D 0A 09 4C 44 09 CII offset...LD.
01E050: 28 48 4C 29 2C 41 09 09 09 3B 20 53 61 76 65 20 (HL),A...; Save
01E060: 61 6E 64 20 45 78 69 74 0D 0A 09 4C 44 09 41 2C and Exit...LD.A,
01E070: 32 35 35 0D 0A 09 4C 44 09 28 48 61 76 65 4C 6F 255...LD.(HaveLo
01E080: 61 64 65 64 29 2C 41 09 09 3B 20 59 65 73 2C 20 aded),A..; Yes,
01E090: 77 65 20 5F 68 61 76 65 5F 20 70 75 74 20 73 6F we _have_ put so
01E0A0: 6D 65 74 68 69 6E 67 20 69 6E 21 0D 0A 09 4A 50 mething in!...JP
01E0B0: 09 41 6E 73 69 4D 6F 72 65 0D 0A 0D 0A 2E 41 4E .AnsiMore.....AN
01E0C0: 31 0D 0A 09 4C 44 09 41 2C 28 48 4C 29 09 09 3B 1...LD.A,(HL)..;
01E0D0: 20 53 74 6F 72 65 64 20 76 61 6C 75 65 20 69 6E Stored value in
01E0E0: 20 41 3B 20 54 42 41 20 69 6E 20 43 0D 0A 09 41 A; TBA in C...A
01E0F0: 44 44 09 41 09 09 3B 20 32 20 2A 0D 0A 09 4C 44 DD.A..; 2 *...LD
01E100: 09 44 2C 41 09 09 3B 20 53 61 76 65 20 74 68 65 .D,A..; Save the
01E110: 20 32 2A 20 66 6F 72 20 6C 61 74 65 72 0D 0A 09 2* for later...
01E120: 41 44 44 09 41 09 09 3B 20 34 20 2A 0D 0A 09 41 ADD.A..; 4 *...A
01E130: 44 44 09 41 09 09 3B 20 38 20 2A 0D 0A 09 41 44 DD.A..; 8 *...AD
01E140: 44 09 44 09 09 3B 20 31 30 20 2A 0D 0A 09 41 44 D.D..; 10 *...AD
01E150: 44 09 43 09 09 3B 20 31 30 20 2A 20 2B 20 6E 65 D.C..; 10 * + ne
01E160: 77 20 6E 75 6D 0D 0A 09 53 55 42 09 22 30 22 09 w num...SUB."0".
01E170: 09 3B 20 41 6E 64 20 72 65 6D 6F 76 65 20 6F 66 .; And remove of
01E180: 66 73 65 74 20 66 72 6F 6D 20 43 20 76 61 6C 75 fset from C valu
01E190: 65 21 0D 0A 09 4C 44 09 28 48 4C 29 2C 41 09 09 e!...LD.(HL),A..
01E1A0: 3B 20 53 61 76 65 20 61 6E 64 20 45 78 69 74 2E ; Save and Exit.
01E1B0: 0D 0A 09 4A 50 09 41 6E 73 69 4D 6F 72 65 0D 0A ...JP.AnsiMore..
01E1C0: 09 09 09 09 3B 20 4E 6F 74 65 20 72 6F 75 74 69 ....; Note routi
01E1D0: 6E 65 20 77 69 6C 6C 20 6F 6E 6C 79 20 77 6F 72 ne will only wor
01E1E0: 6B 20 75 70 20 74 6F 20 31 30 30 0D 0A 09 09 09 k up to 100.....
01E1F0: 09 3B 20 77 68 69 63 68 20 73 68 6F 75 6C 64 20 .; which should
01E200: 62 65 20 6F 6B 61 79 20 66 6F 72 20 74 68 69 73 be okay for this
01E210: 20 61 70 70 6C 69 63 61 74 69 6F 6E 2E 0D 0A 0D application....
01E220: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
01E230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01E240: 2D 2D 0D 0A 3B 09 47 45 54 20 4E 55 4D 42 45 52 --..;.GET NUMBER
01E250: 0D 0A 3B 0D 0A 3B 09 47 65 74 73 20 74 68 65 20 ..;..;.Gets the
01E260: 6E 65 78 74 20 6E 75 6D 62 65 72 20 66 72 6F 6D next number from
01E270: 0D 0A 3B 09 74 68 65 20 6C 69 73 74 0D 0A 3B 0D ..;.the list..;.
01E280: 0A 3B 09 45 6E 74 72 79 20 2D 20 48 4C 20 3D 20 .;.Entry - HL =
01E290: 61 64 64 72 65 73 73 20 74 6F 20 67 65 74 0D 0A address to get..
01E2A0: 3B 09 09 09 66 72 6F 6D 0D 0A 3B 09 45 78 69 74 ;...from..;.Exit
01E2B0: 20 20 2D 20 48 4C 20 3D 20 6E 65 78 74 20 61 64 - HL = next ad
01E2C0: 64 72 65 73 73 0D 0A 3B 09 09 41 20 20 3D 20 76 dress..;..A = v
01E2D0: 61 6C 75 65 0D 0A 3B 09 09 49 46 20 61 3D 32 35 alue..;..IF a=25
01E2E0: 35 20 74 68 65 6E 20 64 65 66 61 75 6C 74 20 76 5 then default v
01E2F0: 61 6C 75 65 0D 0A 3B 09 09 49 66 20 61 3D 32 35 alue..;..If a=25
01E300: 34 20 74 68 65 6E 20 65 6E 64 20 6F 66 20 73 65 4 then end of se
01E310: 71 75 65 6E 63 65 0D 0A 3B 09 55 73 65 64 20 20 quence..;.Used
01E320: 2D 20 4E 6F 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D - None..;-------
01E330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01E340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 47 65 74 4E ---------...GetN
01E350: 75 6D 62 65 72 0D 0A 09 4C 44 09 41 2C 28 48 4C umber...LD.A,(HL
01E360: 29 09 09 3B 20 47 65 74 20 6E 75 6D 62 65 72 0D )..; Get number.
01E370: 0A 09 43 50 09 32 35 34 0D 0A 09 52 45 54 09 5A ..CP.254...RET.Z
01E380: 09 09 3B 20 52 65 74 75 72 6E 20 69 66 20 65 6E ..; Return if en
01E390: 64 20 6F 66 20 73 65 71 75 65 6E 63 65 2C 69 65 d of sequence,ie
01E3A0: 20 73 74 69 6C 6C 20 70 6F 69 6E 74 20 74 6F 0D still point to.
01E3B0: 0A 09 09 09 09 3B 20 65 6E 64 0D 0A 09 49 4E 43 .....; end...INC
01E3C0: 09 48 4C 09 09 3B 20 52 65 74 75 72 6E 20 70 6F .HL..; Return po
01E3D0: 69 6E 74 69 6E 67 20 74 6F 20 6E 65 78 74 20 62 inting to next b
01E3E0: 79 74 65 0D 0A 09 52 45 54 09 09 09 3B 20 45 6C yte...RET...; El
01E3F0: 73 65 20 6E 65 78 74 20 61 64 64 72 65 73 73 20 se next address
01E400: 61 6E 64 20 72 65 74 75 72 6E 0D 0A 0D 0A 3B 2A and return....;*
01E410: 2A 2A 09 41 4E 53 49 20 55 50 0D 0A 3B 0D 0A 2E **.ANSI UP..;...
01E420: 43 55 55 09 43 41 4C 4C 09 47 65 74 4E 75 6D 62 CUU.CALL.GetNumb
01E430: 65 72 09 09 3B 20 4E 75 6D 62 65 72 20 69 6E 74 er..; Number int
01E440: 6F 20 41 0D 0A 09 4C 44 09 42 2C 41 09 09 09 3B o A...LD.B,A...;
01E450: 20 53 61 76 65 20 76 61 6C 75 65 20 69 6E 74 6F Save value into
01E460: 20 42 0D 0A 09 43 50 09 32 35 35 0D 0A 09 4A 52 B...CP.255...JR
01E470: 09 4E 5A 2C 43 55 55 6C 70 0D 0A 09 4C 44 09 42 .NZ,CUUlp...LD.B
01E480: 2C 31 09 09 09 3B 20 44 65 66 61 75 6C 74 20 76 ,1...; Default v
01E490: 61 6C 75 65 0D 0A 2E 43 55 55 6C 70 09 4C 44 09 alue...CUUlp.LD.
01E4A0: 41 2C 28 59 29 09 3B 20 41 20 3C 2D 20 52 6F 77 A,(Y).; A <- Row
01E4B0: 0D 0A 09 43 50 09 41 2C 42 09 09 09 3B 20 49 73 ...CP.A,B...; Is
01E4C0: 20 69 74 20 74 6F 6F 20 66 61 72 3F 0D 0A 09 4A it too far?...J
01E4D0: 52 09 43 2C 43 55 55 31 0D 0A 09 53 55 42 09 42 R.C,CUU1...SUB.B
01E4E0: 09 09 09 3B 20 4E 6F 2C 20 74 68 65 6E 20 67 6F ...; No, then go
01E4F0: 20 62 61 63 6B 20 74 68 61 74 20 66 61 72 2E 0D back that far..
01E500: 0A 09 4C 44 09 28 59 29 2C 41 09 3B 20 52 6F 77 ..LD.(Y),A.; Row
01E510: 20 3C 2D 20 41 0D 0A 09 4A 50 09 41 6E 73 69 45 <- A...JP.AnsiE
01E520: 78 69 74 0D 0A 2E 43 55 55 31 09 4C 44 09 41 2C xit...CUU1.LD.A,
01E530: 30 09 09 09 3B 20 4D 61 6B 65 20 74 68 65 20 63 0...; Make the c
01E540: 68 6F 69 63 65 2C 20 74 6F 70 20 6C 69 6E 65 2E hoice, top line.
01E550: 0D 0A 09 4C 44 09 28 59 29 2C 41 09 3B 20 52 6F ...LD.(Y),A.; Ro
01E560: 77 20 3C 2D 20 41 0D 0A 09 4A 50 09 41 6E 73 69 w <- A...JP.Ansi
01E570: 45 78 69 74 0D 0A 0D 0A 3B 2A 2A 2A 09 41 4E 53 Exit....;***.ANS
01E580: 49 20 44 4F 57 4E 0D 0A 3B 0D 0A 2E 43 55 44 09 I DOWN..;...CUD.
01E590: 4C 44 09 41 2C 28 41 6E 73 69 57 61 73 46 69 72 LD.A,(AnsiWasFir
01E5A0: 73 74 29 0D 0A 09 43 50 09 22 5B 22 0D 0A 09 4A st)...CP."["...J
01E5B0: 50 09 4E 5A 2C 41 6E 73 69 45 78 69 74 09 09 3B P.NZ,AnsiExit..;
01E5C0: 20 49 67 6E 6F 72 65 20 45 53 43 28 42 0D 0A 09 Ignore ESC(B...
01E5D0: 43 41 4C 4C 09 47 65 74 4E 75 6D 62 65 72 0D 0A CALL.GetNumber..
01E5E0: 09 4C 44 09 42 2C 41 09 09 09 3B 20 53 61 76 65 .LD.B,A...; Save
01E5F0: 20 76 61 6C 75 65 20 69 6E 20 62 0D 0A 09 43 50 value in b...CP
01E600: 09 32 35 35 0D 0A 09 4A 52 09 4E 5A 2C 43 55 44 .255...JR.NZ,CUD
01E610: 6C 70 0D 0A 09 4C 44 09 42 2C 31 09 09 09 3B 20 lp...LD.B,1...;
01E620: 44 65 66 61 75 6C 74 0D 0A 2E 43 55 44 6C 70 09 Default...CUDlp.
01E630: 4C 44 09 41 2C 28 59 29 09 3B 20 41 20 3C 2D 20 LD.A,(Y).; A <-
01E640: 52 6F 77 0D 0A 09 41 44 44 09 41 2C 42 0D 0A 09 Row...ADD.A,B...
01E650: 43 50 09 73 63 72 65 65 6E 5F 64 65 70 74 68 09 CP.screen_depth.
01E660: 09 3B 20 54 6F 6F 20 66 61 72 3F 0D 0A 09 4A 50 .; Too far?...JP
01E670: 09 43 2C 43 55 44 31 0D 0A 09 4C 44 09 41 2C 73 .C,CUD1...LD.A,s
01E680: 63 72 65 65 6E 5F 64 65 70 74 68 2D 31 09 3B 20 creen_depth-1.;
01E690: 54 6F 6F 20 66 61 72 20 74 68 65 6E 20 62 6F 74 Too far then bot
01E6A0: 74 6F 6D 20 6F 66 20 73 63 72 65 65 6E 0D 0A 2E tom of screen...
01E6B0: 43 55 44 31 09 4C 44 09 28 59 29 2C 41 09 3B 20 CUD1.LD.(Y),A.;
01E6C0: 52 6F 77 20 3C 2D 20 41 0D 0A 09 4A 50 09 41 6E Row <- A...JP.An
01E6D0: 73 69 45 78 69 74 0D 0A 0D 0A 3B 2A 2A 2A 09 41 siExit....;***.A
01E6E0: 4E 53 49 20 52 49 47 48 54 0D 0A 3B 0D 0A 2E 43 NSI RIGHT..;...C
01E6F0: 55 46 09 43 41 4C 4C 09 47 65 74 4E 75 6D 62 65 UF.CALL.GetNumbe
01E700: 72 09 09 3B 20 4E 75 6D 62 65 72 20 69 6E 74 6F r..; Number into
01E710: 20 41 0D 0A 09 4C 44 09 42 2C 41 09 09 09 3B 20 A...LD.B,A...;
01E720: 56 61 6C 75 65 20 73 61 76 65 64 20 69 6E 20 42 Value saved in B
01E730: 0D 0A 09 43 50 09 32 35 35 0D 0A 09 4A 52 09 4E ...CP.255...JR.N
01E740: 5A 2C 43 55 46 67 65 74 0D 0A 09 4C 44 09 42 2C Z,CUFget...LD.B,
01E750: 31 09 09 09 3B 20 44 65 66 61 75 6C 74 0D 0A 2E 1...; Default...
01E760: 43 55 46 67 65 74 09 4C 44 09 41 2C 28 59 2B 31 CUFget.LD.A,(Y+1
01E770: 29 09 3B 20 41 20 3C 2D 20 43 6F 6C 75 6D 6E 0D ).; A <- Column.
01E780: 0A 09 41 44 44 09 42 09 09 09 3B 20 41 64 64 20 ..ADD.B...; Add
01E790: 6D 6F 76 65 6D 65 6E 74 2E 0D 0A 09 43 50 09 38 movement....CP.8
01E7A0: 30 09 09 09 3B 20 54 6F 6F 20 66 61 72 3F 0D 0A 0...; Too far?..
01E7B0: 09 4A 52 09 43 2C 43 55 46 32 0D 0A 09 4C 44 09 .JR.C,CUF2...LD.
01E7C0: 41 2C 37 39 09 09 09 3B 20 59 65 73 2C 20 72 69 A,79...; Yes, ri
01E7D0: 67 68 74 20 65 64 67 65 0D 0A 2E 43 55 46 32 09 ght edge...CUF2.
01E7E0: 4C 44 09 28 59 2B 31 29 2C 41 09 3B 20 43 6F 6C LD.(Y+1),A.; Col
01E7F0: 75 6D 6E 20 3C 2D 20 41 0D 0A 09 4A 50 09 41 6E umn <- A...JP.An
01E800: 73 69 45 78 69 74 0D 0A 0D 0A 3B 2A 2A 2A 09 41 siExit....;***.A
01E810: 4E 53 49 20 4C 45 46 54 0D 0A 3B 0D 0A 2E 43 55 NSI LEFT..;...CU
01E820: 42 09 43 41 4C 4C 09 47 65 74 4E 75 6D 62 65 72 B.CALL.GetNumber
01E830: 09 09 3B 20 4E 75 6D 62 65 72 20 69 6E 74 6F 20 ..; Number into
01E840: 41 0D 0A 09 4C 44 09 42 2C 41 09 09 09 3B 20 53 A...LD.B,A...; S
01E850: 61 76 65 20 76 61 6C 75 65 20 69 6E 20 42 0D 0A ave value in B..
01E860: 09 43 50 09 32 35 35 0D 0A 09 4A 52 09 4E 5A 2C .CP.255...JR.NZ,
01E870: 43 55 42 67 65 74 0D 0A 09 4C 44 09 42 2C 31 09 CUBget...LD.B,1.
01E880: 09 09 3B 20 44 65 66 61 75 6C 74 0D 0A 2E 43 55 ..; Default...CU
01E890: 42 67 65 74 09 4C 44 09 41 2C 28 59 2B 31 29 09 Bget.LD.A,(Y+1).
01E8A0: 3B 20 41 20 3C 2D 20 43 6F 6C 75 6D 6E 0D 0A 09 ; A <- Column...
01E8B0: 43 50 09 41 2C 42 09 09 09 3B 20 54 6F 6F 20 66 CP.A,B...; Too f
01E8C0: 61 72 3F 0D 0A 09 4A 52 09 43 2C 43 55 42 31 61 ar?...JR.C,CUB1a
01E8D0: 0D 0A 09 53 55 42 09 41 2C 42 0D 0A 09 4C 44 09 ...SUB.A,B...LD.
01E8E0: 28 59 2B 31 29 2C 41 09 3B 20 43 6F 6C 75 6D 6E (Y+1),A.; Column
01E8F0: 20 3C 2D 41 0D 0A 09 4A 50 09 41 6E 73 69 45 78 <-A...JP.AnsiEx
01E900: 69 74 0D 0A 2E 43 55 42 31 61 09 4C 44 09 41 2C it...CUB1a.LD.A,
01E910: 30 0D 0A 09 4C 44 09 28 59 2B 31 29 2C 41 09 3B 0...LD.(Y+1),A.;
01E920: 20 43 6F 6C 75 6D 6E 20 3C 2D 41 0D 0A 09 4A 50 Column <-A...JP
01E930: 09 41 6E 73 69 45 78 69 74 0D 0A 0D 0A 3B 2A 2A .AnsiExit....;**
01E940: 2A 09 41 4E 53 49 20 4C 4F 43 41 54 45 0D 0A 3B *.ANSI LOCATE..;
01E950: 0D 0A 2E 48 56 50 0D 0A 2E 43 55 50 09 43 41 4C ...HVP...CUP.CAL
01E960: 4C 09 47 65 74 4E 75 6D 62 65 72 0D 0A 09 43 50 L.GetNumber...CP
01E970: 09 32 35 35 0D 0A 09 43 41 4C 4C 09 5A 2C 44 65 .255...CALL.Z,De
01E980: 66 61 75 6C 74 4C 69 6E 65 09 3B 20 44 65 66 61 faultLine.; Defa
01E990: 75 6C 74 20 3D 20 31 0D 0A 09 43 50 09 32 35 34 ult = 1...CP.254
01E9A0: 09 09 3B 20 53 65 71 75 65 6E 63 65 20 45 6E 64 ..; Sequence End
01E9B0: 20 2D 3E 20 31 0D 0A 09 43 41 4C 4C 09 5A 2C 44 -> 1...CALL.Z,D
01E9C0: 65 66 61 75 6C 74 4C 69 6E 65 0D 0A 3B 2D 2D 0D efaultLine..;--.
01E9D0: 0A 09 4F 52 20 09 41 0D 0A 09 43 41 4C 4C 20 09 ..OR .A...CALL .
01E9E0: 5A 2C 44 65 66 61 75 6C 74 4C 69 6E 65 0D 0A 3B Z,DefaultLine..;
01E9F0: 2D 2D 0D 0A 09 43 50 09 73 63 72 65 65 6E 5F 64 --...CP.screen_d
01EA00: 65 70 74 68 2B 31 09 3B 20 4F 75 74 20 6F 66 20 epth+1.; Out of
01EA10: 72 61 6E 67 65 20 74 68 65 6E 20 64 6F 6E 27 74 range then don't
01EA20: 20 6D 6F 76 65 0D 0A 09 4A 50 09 4E 43 2C 41 6E move...JP.NC,An
01EA30: 73 69 45 78 69 74 0D 0A 09 4C 44 09 45 2C 41 0D siExit...LD.E,A.
01EA40: 0A 09 43 41 4C 4C 09 47 65 74 4E 75 6D 62 65 72 ..CALL.GetNumber
01EA50: 0D 0A 09 43 50 09 32 35 35 09 09 3B 20 44 65 66 ...CP.255..; Def
01EA60: 61 75 6C 74 20 3D 20 31 0D 0A 09 43 41 4C 4C 09 ault = 1...CALL.
01EA70: 5A 2C 44 65 66 61 75 6C 74 43 6F 6C 75 6D 6E 0D Z,DefaultColumn.
01EA80: 0A 09 43 50 09 32 35 34 09 09 3B 20 53 65 71 75 ..CP.254..; Sequ
01EA90: 65 6E 63 65 20 45 6E 64 20 2D 3E 20 31 0D 0A 09 ence End -> 1...
01EAA0: 43 41 4C 4C 09 5A 2C 44 65 66 61 75 6C 74 43 6F CALL.Z,DefaultCo
01EAB0: 6C 75 6D 6E 0D 0A 3B 2D 2D 0D 0A 09 4F 52 09 41 lumn..;--...OR.A
01EAC0: 0D 0A 09 43 41 4C 4C 09 5A 2C 44 65 66 61 75 6C ...CALL.Z,Defaul
01EAD0: 74 43 6F 6C 75 6D 6E 0D 0A 3B 2D 2D 0D 0A 09 43 tColumn..;--...C
01EAE0: 50 09 38 31 09 09 3B 20 4F 75 74 20 6F 66 20 72 P.81..; Out of r
01EAF0: 61 6E 67 65 2C 20 74 68 65 6E 20 64 6F 6E 27 74 ange, then don't
01EB00: 20 6D 6F 76 65 0D 0A 09 4A 50 09 4E 43 2C 41 6E move...JP.NC,An
01EB10: 73 69 45 78 69 74 0D 0A 09 4C 44 09 44 2C 41 0D siExit...LD.D,A.
01EB20: 0A 09 45 58 09 48 4C 2C 44 45 0D 0A 09 44 45 43 ..EX.HL,DE...DEC
01EB30: 09 48 09 09 3B 20 54 72 61 6E 73 6C 61 74 65 20 .H..; Translate
01EB40: 66 72 6F 6D 20 41 6E 73 69 20 63 6F 2D 6F 72 64 from Ansi co-ord
01EB50: 69 6E 61 74 65 73 20 74 6F 20 68 61 72 64 77 61 inates to hardwa
01EB60: 72 65 0D 0A 09 44 45 43 09 4C 09 09 3B 20 63 6F re...DEC.L..; co
01EB70: 2D 6F 72 64 69 6E 61 74 65 73 0D 0A 09 4C 44 09 -ordinates...LD.
01EB80: 28 59 29 2C 48 4C 09 3B 20 53 65 74 20 74 68 65 (Y),HL.; Set the
01EB90: 20 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E cursor position
01EBA0: 2E 0D 0A 09 4A 50 09 41 6E 73 69 45 78 69 74 0D ....JP.AnsiExit.
01EBB0: 0A 0D 0A 2E 44 65 66 61 75 6C 74 43 6F 6C 75 6D ....DefaultColum
01EBC0: 6E 0D 0A 2E 44 65 66 61 75 6C 74 4C 69 6E 65 0D n...DefaultLine.
01EBD0: 0A 09 4C 44 09 41 2C 31 0D 0A 09 52 45 54 0D 0A ..LD.A,1...RET..
01EBE0: 0D 0A 3B 2A 2A 2A 09 41 4E 53 49 20 43 4C 45 41 ..;***.ANSI CLEA
01EBF0: 52 20 53 43 52 45 45 4E 0D 0A 3B 0D 0A 2E 45 44 R SCREEN..;...ED
01EC00: 09 43 41 4C 4C 09 47 65 74 4E 75 6D 62 65 72 0D .CALL.GetNumber.
01EC10: 0A 09 4F 52 09 41 0D 0A 09 4A 50 09 5A 2C 45 44 ..OR.A...JP.Z,ED
01EC20: 31 09 09 3B 20 5A 65 72 6F 20 6D 65 61 6E 73 20 1..; Zero means
01EC30: 66 69 72 73 74 20 6F 70 74 69 6F 6E 0D 0A 09 43 first option...C
01EC40: 50 09 32 35 34 09 09 3B 20 41 6C 73 6F 20 64 65 P.254..; Also de
01EC50: 66 61 75 6C 74 0D 0A 09 4A 50 09 5A 2C 45 44 31 fault...JP.Z,ED1
01EC60: 0D 0A 09 43 50 09 32 35 35 0D 0A 09 4A 50 09 5A ...CP.255...JP.Z
01EC70: 2C 45 44 31 0D 0A 09 43 50 09 31 0D 0A 09 4A 50 ,ED1...CP.1...JP
01EC80: 09 5A 2C 45 44 32 0D 0A 09 43 50 09 32 0D 0A 09 .Z,ED2...CP.2...
01EC90: 4A 50 09 4E 5A 2C 41 6E 73 69 45 78 69 74 0D 0A JP.NZ,AnsiExit..
01ECA0: 3B 2A 2A 2A 09 4F 70 74 69 6F 6E 20 32 0D 0A 3B ;***.Option 2..;
01ECB0: 0D 0A 2E 45 44 33 09 4C 44 09 48 4C 2C 30 0D 0A ...ED3.LD.HL,0..
01ECC0: 09 4C 44 09 28 59 29 2C 48 4C 09 3B 20 48 6F 6D .LD.(Y),HL.; Hom
01ECD0: 65 20 74 68 65 20 63 75 72 73 6F 72 0D 0A 20 20 e the cursor..
01ECE0: 20 20 20 20 20 20 43 41 4C 4C 20 20 20 20 43 4C CALL CL
01ECF0: 45 41 52 5F 42 55 46 0D 0A 09 43 41 4C 4C 20 09 EAR_BUF...CALL .
01ED00: 43 4C 53 5F 73 63 72 65 65 6E 0D 0A 09 4A 50 20 CLS_screen...JP
01ED10: 41 4E 53 49 45 58 49 54 0D 0A 0D 0A 3B 2A 2A 2A ANSIEXIT....;***
01ED20: 09 4F 70 74 69 6F 6E 20 30 0D 0A 3B 0D 0A 2E 45 .Option 0..;...E
01ED30: 44 31 09 0D 0A 09 4C 44 09 48 4C 2C 28 59 29 09 D1....LD.HL,(Y).
01ED40: 3B 20 47 65 74 20 61 6E 64 20 73 61 76 65 20 63 ; Get and save c
01ED50: 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E 0D 0A ursor position..
01ED60: 09 4C 44 09 41 2C 48 0D 0A 09 4F 52 09 4C 0D 0A .LD.A,H...OR.L..
01ED70: 09 4A 50 09 5A 2C 45 44 33 09 09 09 3B 20 49 66 .JP.Z,ED3...; If
01ED80: 20 77 65 20 61 72 65 20 61 74 20 74 68 65 20 74 we are at the t
01ED90: 6F 70 20 6F 66 20 74 68 65 0D 0A 09 09 09 09 09 op of the.......
01EDA0: 3B 20 73 63 72 65 65 6E 20 61 6E 64 20 63 6C 65 ; screen and cle
01EDB0: 61 72 69 6E 67 20 74 6F 20 74 68 65 20 62 6F 74 aring to the bot
01EDC0: 74 6F 6D 0D 0A 09 09 09 09 09 3B 20 74 68 65 6E tom.......; then
01EDD0: 20 77 65 20 61 72 65 20 63 6C 65 61 72 69 6E 67 we are clearing
01EDE0: 20 61 6C 6C 20 74 68 65 20 73 63 72 65 65 6E 21 all the screen!
01EDF0: 0D 0A 0D 0A 09 50 55 53 48 09 48 4C 0D 0A 09 0D .....PUSH.HL....
01EE00: 0A 09 4C 44 09 41 2C 73 63 72 65 65 6E 5F 64 65 ..LD.A,screen_de
01EE10: 70 74 68 2D 31 0D 0A 09 53 55 42 09 4C 09 09 09 pth-1...SUB.L...
01EE20: 3B 20 73 63 72 65 65 6E 5F 64 65 70 74 68 20 2D ; screen_depth -
01EE30: 20 52 6F 77 0D 0A 0D 0A 09 4C 44 09 48 4C 2C 30 Row.....LD.HL,0
01EE40: 09 09 09 3B 20 5A 65 72 6F 20 73 74 61 72 74 0D ...; Zero start.
01EE50: 0A 0D 0A 09 4F 52 09 41 09 09 09 3B 20 44 6F 20 ....OR.A...; Do
01EE60: 77 65 20 68 61 76 65 20 61 6E 79 20 6C 69 6E 65 we have any line
01EE70: 73 20 74 6F 20 61 64 64 3F 0D 0A 09 4A 52 09 5A s to add?...JR.Z
01EE80: 2C 45 44 31 5F 32 09 09 09 3B 20 49 66 20 6E 6F ,ED1_2...; If no
01EE90: 20 62 79 70 61 73 73 20 74 68 61 74 20 61 64 64 bypass that add
01EEA0: 69 74 69 6F 6E 21 0D 0A 0D 0A 09 4C 44 09 42 2C ition!.....LD.B,
01EEB0: 41 09 09 09 3B 20 4E 75 6D 62 65 72 20 6F 66 20 A...; Number of
01EEC0: 6C 69 6E 65 73 20 74 6F 20 63 6F 75 6E 74 0D 0A lines to count..
01EED0: 09 4C 44 09 44 45 2C 38 30 0D 0A 2E 45 44 31 5F .LD.DE,80...ED1_
01EEE0: 31 0D 0A 09 41 44 44 09 48 4C 2C 44 45 0D 0A 09 1...ADD.HL,DE...
01EEF0: 44 4A 4E 5A 09 45 44 31 5F 31 0D 0A 09 0D 0A 2E DJNZ.ED1_1......
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 4E E5 1A 00 C1 02 00 00 00 02 ......N.........
01EF20: 1A 00 C2 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF30: 1A 00 C4 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF40: 1A 00 C6 02 00 00 00 02 1A 00 C7 02 00 00 00 02 ................
01EF50: 1A 00 C8 02 00 00 00 02 1A 00 C9 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 45 44 31 5F 32 0D 0A 09 45 58 09 48 4C 2C 44 45 ED1_2...EX.HL,DE
01F010: 09 09 09 3B 20 56 61 6C 75 65 20 69 6E 74 6F 20 ...; Value into
01F020: 44 45 0D 0A 09 50 4F 50 09 48 4C 0D 0A 09 4C 44 DE...POP.HL...LD
01F030: 09 41 2C 38 30 0D 0A 09 53 55 42 09 48 09 09 09 .A,80...SUB.H...
01F040: 3B 20 38 30 20 2D 20 43 6F 6C 75 6D 6E 73 0D 0A ; 80 - Columns..
01F050: 09 4C 44 09 4C 2C 41 09 09 09 3B 20 41 64 64 20 .LD.L,A...; Add
01F060: 74 6F 20 76 61 6C 75 65 20 62 65 66 6F 72 65 0D to value before.
01F070: 0A 09 4C 44 09 48 2C 30 0D 0A 09 41 44 44 09 48 ..LD.H,0...ADD.H
01F080: 4C 2C 44 45 0D 0A 0D 0A 09 50 55 53 48 09 48 4C L,DE.....PUSH.HL
01F090: 09 09 09 3B 20 56 61 6C 75 65 20 73 61 76 65 64 ...; Value saved
01F0A0: 20 66 6F 72 20 6C 61 74 65 72 0D 0A 0D 0A 09 4C for later.....L
01F0B0: 44 09 48 4C 2C 28 59 29 09 3B 20 5F 74 68 61 74 D.HL,(Y).; _that
01F0C0: 5F 20 76 61 6C 75 65 20 61 67 61 69 6E 21 0D 0A _ value again!..
01F0D0: 09 43 41 4C 4C 09 73 63 72 5F 61 64 64 72 65 73 .CALL.scr_addres
01F0E0: 73 09 09 3B 20 53 6F 20 77 68 65 72 65 20 64 6F s..; So where do
01F0F0: 65 73 20 69 74 20 61 6C 6C 20 62 65 67 69 6E 3F es it all begin?
01F100: 0D 0A 09 0D 0A 09 50 4F 50 09 42 43 09 09 09 3B ......POP.BC...;
01F110: 20 4E 75 6D 62 65 72 20 74 6F 20 62 6C 61 6E 6B Number to blank
01F120: 0D 0A 20 20 20 20 20 20 20 20 50 55 53 48 09 42 .. PUSH.B
01F130: 43 09 09 09 3B 20 53 61 76 65 20 66 6F 72 20 61 C...; Save for a
01F140: 20 6D 6F 6D 65 6E 74 21 0D 0A 0D 0A 09 43 41 4C moment!.....CAL
01F150: 4C 09 53 63 72 65 65 6E 42 6C 61 6E 6B 09 09 3B L.ScreenBlank..;
01F160: 20 4E 6F 77 20 64 6F 20 69 74 21 0D 0A 0D 0A 09 Now do it!.....
01F170: 4C 44 09 48 4C 2C 28 59 29 09 3B 20 47 65 74 20 LD.HL,(Y).; Get
01F180: 74 68 65 20 63 75 72 73 6F 72 20 70 6F 73 69 74 the cursor posit
01F190: 69 6F 6E 20 61 67 61 69 6E 0D 0A 09 43 41 4C 4C ion again...CALL
01F1A0: 09 47 65 74 41 64 64 72 65 73 73 09 09 3B 20 41 .GetAddress..; A
01F1B0: 64 64 72 65 73 73 20 69 6E 20 62 75 66 66 65 72 ddress in buffer
01F1C0: 0D 0A 09 0D 0A 09 50 4F 50 09 42 43 0D 0A 0D 0A ......POP.BC....
01F1D0: 09 43 41 4C 4C 09 42 75 66 66 65 72 42 6C 61 6E .CALL.BufferBlan
01F1E0: 6B 0D 0A 0D 0A 09 4A 50 09 41 6E 73 69 45 78 69 k.....JP.AnsiExi
01F1F0: 74 09 09 3B 20 54 68 65 6E 20 65 78 69 74 20 70 t..; Then exit p
01F200: 72 6F 70 65 72 6C 79 0D 0A 0D 0A 3B 2A 2A 2A 09 roperly....;***.
01F210: 4F 70 74 69 6F 6E 09 31 0D 0A 3B 0D 0A 2E 45 44 Option.1..;...ED
01F220: 32 0D 0A 09 4C 44 09 48 4C 2C 28 59 29 09 3B 20 2...LD.HL,(Y).;
01F230: 47 65 74 20 61 6E 64 20 73 61 76 65 20 63 75 72 Get and save cur
01F240: 73 6F 72 20 70 6F 73 69 74 69 6F 6E 0D 0A 09 50 sor position...P
01F250: 55 53 48 09 48 4C 0D 0A 09 0D 0A 09 4C 44 09 41 USH.HL......LD.A
01F260: 2C 4C 0D 0A 09 0D 0A 09 4C 44 09 48 4C 2C 30 09 ,L......LD.HL,0.
01F270: 09 09 3B 20 5A 65 72 6F 20 73 74 61 72 74 0D 0A ..; Zero start..
01F280: 0D 0A 09 4F 52 09 41 09 09 09 3B 20 44 6F 20 77 ...OR.A...; Do w
01F290: 65 20 68 61 76 65 20 61 6E 79 20 6C 69 6E 65 73 e have any lines
01F2A0: 20 74 6F 20 61 64 64 3F 0D 0A 09 4A 52 09 5A 2C to add?...JR.Z,
01F2B0: 45 44 32 5F 32 09 09 09 3B 20 49 66 20 6E 6F 20 ED2_2...; If no
01F2C0: 62 79 70 61 73 73 20 74 68 61 74 20 61 64 64 69 bypass that addi
01F2D0: 74 69 6F 6E 21 0D 0A 0D 0A 09 4C 44 09 42 2C 41 tion!.....LD.B,A
01F2E0: 09 09 09 3B 20 4E 75 6D 62 65 72 20 6F 66 20 6C ...; Number of l
01F2F0: 69 6E 65 73 0D 0A 09 4C 44 09 44 45 2C 38 30 0D ines...LD.DE,80.
01F300: 0A 2E 45 44 32 5F 31 0D 0A 09 41 44 44 09 48 4C ..ED2_1...ADD.HL
01F310: 2C 44 45 0D 0A 09 44 4A 4E 5A 09 45 44 32 5F 31 ,DE...DJNZ.ED2_1
01F320: 0D 0A 09 0D 0A 2E 45 44 32 5F 32 0D 0A 09 45 58 ......ED2_2...EX
01F330: 09 48 4C 2C 44 45 09 09 09 3B 20 56 61 6C 75 65 .HL,DE...; Value
01F340: 20 69 6E 74 6F 20 44 45 0D 0A 09 50 4F 50 09 48 into DE...POP.H
01F350: 4C 0D 0A 09 4C 44 09 4C 2C 48 09 09 09 3B 20 41 L...LD.L,H...; A
01F360: 64 64 20 74 6F 20 76 61 6C 75 65 20 62 65 66 6F dd to value befo
01F370: 72 65 0D 0A 09 4C 44 09 48 2C 30 0D 0A 09 41 44 re...LD.H,0...AD
01F380: 44 09 48 4C 2C 44 45 0D 0A 0D 0A 09 50 55 53 48 D.HL,DE.....PUSH
01F390: 09 48 4C 09 09 09 3B 20 56 61 6C 75 65 20 73 61 .HL...; Value sa
01F3A0: 76 65 64 20 66 6F 72 20 6C 61 74 65 72 0D 0A 0D ved for later...
01F3B0: 0A 09 4C 44 09 48 4C 2C 30 09 09 09 3B 20 46 69 ..LD.HL,0...; Fi
01F3C0: 6E 64 20 74 68 65 20 62 65 67 69 6E 69 6E 67 21 nd the begining!
01F3D0: 0D 0A 09 43 41 4C 4C 09 73 63 72 5F 61 64 64 72 ...CALL.scr_addr
01F3E0: 65 73 73 09 09 3B 20 53 6F 20 77 68 65 72 65 20 ess..; So where
01F3F0: 64 6F 65 73 20 69 74 20 61 6C 6C 20 62 65 67 69 does it all begi
01F400: 6E 3F 0D 0A 09 0D 0A 09 50 4F 50 09 42 43 09 09 n?......POP.BC..
01F410: 09 3B 20 4E 75 6D 62 65 72 20 74 6F 20 62 6C 61 .; Number to bla
01F420: 6E 6B 0D 0A 09 50 55 53 48 09 42 43 09 09 09 3B nk...PUSH.BC...;
01F430: 20 53 61 76 65 20 66 6F 72 20 61 20 77 68 69 6C Save for a whil
01F440: 65 0D 0A 0D 0A 09 43 41 4C 4C 09 53 63 72 65 65 e.....CALL.Scree
01F450: 6E 42 6C 61 6E 6B 09 09 3B 20 4E 6F 77 20 64 6F nBlank..; Now do
01F460: 20 69 74 21 0D 0A 0D 0A 09 4C 44 09 48 4C 2C 30 it!.....LD.HL,0
01F470: 09 09 09 3B 20 46 69 6E 64 20 73 74 61 72 74 20 ...; Find start
01F480: 70 6F 73 69 74 69 6F 6E 0D 0A 09 43 41 4C 4C 09 position...CALL.
01F490: 47 65 74 41 64 64 72 65 73 73 09 09 3B 20 41 64 GetAddress..; Ad
01F4A0: 64 72 65 73 73 20 69 6E 20 62 75 66 66 65 72 0D dress in buffer.
01F4B0: 0A 09 50 4F 50 09 42 43 0D 0A 09 0D 0A 09 43 41 ..POP.BC......CA
01F4C0: 4C 4C 09 42 75 66 66 65 72 42 6C 61 6E 6B 0D 0A LL.BufferBlank..
01F4D0: 0D 0A 09 4A 50 09 41 6E 73 69 45 78 69 74 09 09 ...JP.AnsiExit..
01F4E0: 3B 20 54 68 65 6E 20 65 78 69 74 20 70 72 6F 70 ; Then exit prop
01F4F0: 65 72 6C 79 0D 0A 0D 0A 3B 20 2A 2A 2A 09 41 4E erly....; ***.AN
01F500: 53 49 20 43 4C 45 41 52 20 4C 49 4E 45 0D 0A 3B SI CLEAR LINE..;
01F510: 0D 0A 2E 45 4C 09 43 41 4C 4C 09 47 65 74 4E 75 ...EL.CALL.GetNu
01F520: 6D 62 65 72 09 09 3B 20 47 65 74 20 76 61 6C 75 mber..; Get valu
01F530: 65 0D 0A 09 43 50 09 30 0D 0A 09 4A 50 09 5A 2C e...CP.0...JP.Z,
01F540: 45 4C 31 09 09 3B 20 5A 65 72 6F 20 26 20 44 65 EL1..; Zero & De
01F550: 66 61 75 6C 74 20 61 72 65 20 74 68 65 20 73 61 fault are the sa
01F560: 6D 65 0D 0A 09 43 50 09 32 35 35 0D 0A 09 4A 50 me...CP.255...JP
01F570: 09 5A 2C 45 4C 31 0D 0A 09 43 50 09 32 35 34 0D .Z,EL1...CP.254.
01F580: 0A 09 4A 50 09 5A 2C 45 4C 31 0D 0A 09 43 50 09 ..JP.Z,EL1...CP.
01F590: 31 0D 0A 09 4A 50 09 5A 2C 45 4C 32 0D 0A 09 43 1...JP.Z,EL2...C
01F5A0: 50 09 32 0D 0A 09 4A 50 09 4E 5A 2C 41 6E 73 69 P.2...JP.NZ,Ansi
01F5B0: 45 78 69 74 09 3B 20 4F 74 68 65 72 77 69 73 65 Exit.; Otherwise
01F5C0: 20 64 6F 6E 27 74 20 64 6F 20 61 20 74 68 69 6E don't do a thin
01F5D0: 67 0D 0A 3B 2A 2A 2A 09 4F 70 74 69 6F 6E 20 32 g..;***.Option 2
01F5E0: 0D 0A 3B 0D 0A 09 4C 44 09 48 4C 2C 28 59 29 0D ..;...LD.HL,(Y).
01F5F0: 0A 09 4C 44 09 48 2C 30 0D 0A 09 50 55 53 48 09 ..LD.H,0...PUSH.
01F600: 48 4C 0D 0A 09 43 41 4C 4C 09 73 63 72 5F 61 64 HL...CALL.scr_ad
01F610: 64 72 65 73 73 09 09 3B 20 53 74 61 72 74 20 6F dress..; Start o
01F620: 66 20 6C 69 6E 65 20 70 6F 73 69 74 69 6F 6E 0D f line position.
01F630: 0A 09 0D 0A 09 4C 44 09 42 43 2C 38 30 09 09 09 .....LD.BC,80...
01F640: 3B 20 38 30 20 62 79 74 65 73 20 74 6F 20 63 6C ; 80 bytes to cl
01F650: 65 61 72 20 28 77 68 6F 6C 65 20 6C 69 6E 65 29 ear (whole line)
01F660: 0D 0A 09 0D 0A 09 43 41 4C 4C 09 53 63 72 65 65 ......CALL.Scree
01F670: 6E 42 6C 61 6E 6B 0D 0A 0D 0A 09 50 4F 50 09 48 nBlank.....POP.H
01F680: 4C 0D 0A 09 43 41 4C 4C 09 47 65 74 41 64 64 72 L...CALL.GetAddr
01F690: 65 73 73 0D 0A 09 4C 44 09 42 43 2C 38 30 0D 0A ess...LD.BC,80..
01F6A0: 09 0D 0A 09 43 41 4C 4C 09 42 75 66 66 65 72 42 ....CALL.BufferB
01F6B0: 6C 61 6E 6B 0D 0A 0D 0A 09 4A 50 09 41 6E 73 69 lank.....JP.Ansi
01F6C0: 45 78 69 74 0D 0A 0D 0A 3B 2A 2A 2A 09 4F 70 74 Exit....;***.Opt
01F6D0: 69 6F 6E 20 30 0D 0A 3B 0D 0A 2E 45 4C 31 09 4C ion 0..;...EL1.L
01F6E0: 44 09 48 4C 2C 28 59 29 0D 0A 09 4C 44 09 41 2C D.HL,(Y)...LD.A,
01F6F0: 38 30 09 09 3B 20 43 61 6C 63 75 6C 61 74 65 20 80..; Calculate
01F700: 64 69 73 74 61 6E 63 65 20 74 6F 20 65 6E 64 20 distance to end
01F710: 6F 66 20 6C 69 6E 65 0D 0A 09 53 55 42 09 48 0D of line...SUB.H.
01F720: 0A 09 4C 44 09 43 2C 41 0D 0A 09 4C 44 09 42 2C ..LD.C,A...LD.B,
01F730: 30 0D 0A 09 50 55 53 48 09 42 43 0D 0A 09 50 55 0...PUSH.BC...PU
01F740: 53 48 09 48 4C 0D 0A 09 50 55 53 48 09 42 43 0D SH.HL...PUSH.BC.
01F750: 0A 09 43 41 4C 4C 09 73 63 72 5F 61 64 64 72 65 ..CALL.scr_addre
01F760: 73 73 09 3B 20 46 69 6E 64 20 63 75 72 72 65 6E ss.; Find curren
01F770: 74 20 70 6F 73 69 74 69 6F 6E 0D 0A 09 50 4F 50 t position...POP
01F780: 09 42 43 0D 0A 09 43 41 4C 4C 09 53 63 72 65 65 .BC...CALL.Scree
01F790: 6E 42 6C 61 6E 6B 0D 0A 09 0D 0A 09 50 4F 50 09 nBlank......POP.
01F7A0: 48 4C 0D 0A 09 43 41 4C 4C 09 47 65 74 41 64 64 HL...CALL.GetAdd
01F7B0: 72 65 73 73 0D 0A 09 50 4F 50 09 42 43 0D 0A 09 ress...POP.BC...
01F7C0: 0D 0A 09 43 41 4C 4C 09 42 75 66 66 65 72 42 6C ...CALL.BufferBl
01F7D0: 61 6E 6B 0D 0A 0D 0A 09 4A 50 09 41 6E 73 69 45 ank.....JP.AnsiE
01F7E0: 78 69 74 0D 0A 0D 0A 3B 2A 2A 2A 09 4F 70 74 69 xit....;***.Opti
01F7F0: 6F 6E 20 31 0D 0A 3B 0D 0A 2E 45 4C 32 09 4C 44 on 1..;...EL2.LD
01F800: 09 48 4C 2C 28 59 29 0D 0A 09 4C 44 09 43 2C 48 .HL,(Y)...LD.C,H
01F810: 09 09 3B 20 42 43 20 3D 20 64 69 73 74 61 6E 63 ..; BC = distanc
01F820: 65 20 66 72 6F 6D 20 73 74 61 72 74 20 6F 66 20 e from start of
01F830: 6C 69 6E 65 0D 0A 09 4C 44 09 42 2C 30 0D 0A 09 line...LD.B,0...
01F840: 4C 44 09 48 2C 30 0D 0A 09 50 55 53 48 09 42 43 LD.H,0...PUSH.BC
01F850: 0D 0A 09 50 55 53 48 09 48 4C 0D 0A 09 50 55 53 ...PUSH.HL...PUS
01F860: 48 09 42 43 0D 0A 09 43 41 4C 4C 09 73 63 72 5F H.BC...CALL.scr_
01F870: 61 64 64 72 65 73 73 09 3B 20 46 69 6E 64 20 73 address.; Find s
01F880: 74 61 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 09 50 tart of line...P
01F890: 4F 50 09 42 43 0D 0A 09 43 41 4C 4C 09 53 63 72 OP.BC...CALL.Scr
01F8A0: 65 65 6E 42 6C 61 6E 6B 0D 0A 0D 0A 09 50 4F 50 eenBlank.....POP
01F8B0: 09 48 4C 0D 0A 09 43 41 4C 4C 09 47 65 74 41 64 .HL...CALL.GetAd
01F8C0: 64 72 65 73 73 0D 0A 09 50 4F 50 09 42 43 0D 0A dress...POP.BC..
01F8D0: 09 0D 0A 09 43 41 4C 4C 09 42 75 66 66 65 72 42 ....CALL.BufferB
01F8E0: 6C 61 6E 6B 0D 0A 0D 0A 09 4A 50 09 41 6E 73 69 lank.....JP.Ansi
01F8F0: 45 78 69 74 0D 0A 0D 0A 2E 53 63 72 65 65 6E 42 Exit.....ScreenB
01F900: 6C 61 6E 6B 0D 0A 3B 0D 0A 3B 09 48 4C 20 3D 20 lank..;..;.HL =
01F910: 61 64 64 72 65 73 73 20 74 6F 20 63 6C 65 61 72 address to clear
01F920: 20 66 72 6F 6D 0D 0A 3B 09 42 43 20 3D 20 6E 75 from..;.BC = nu
01F930: 6D 62 65 72 20 6F 66 20 62 79 74 65 73 20 74 6F mber of bytes to
01F940: 20 63 6C 65 61 72 0D 0A 3B 20 55 73 65 73 2F 41 clear..; Uses/A
01F950: 62 75 73 65 73 20 2D 20 4D 6F 73 74 20 72 65 67 buses - Most reg
01F960: 69 73 74 65 72 73 0D 0A 3B 0D 0A 09 4C 44 09 44 isters..;...LD.D
01F970: 2C 38 09 09 09 3B 20 56 61 6C 75 65 20 74 6F 20 ,8...; Value to
01F980: 61 64 64 20 62 65 74 77 65 65 6E 20 6C 69 6E 65 add between line
01F990: 73 0D 0A 2E 53 63 72 65 65 6E 42 6C 61 6E 6B 5F s...ScreenBlank_
01F9A0: 4E 65 78 74 0D 0A 09 4C 44 09 45 2C 38 09 09 09 Next...LD.E,8...
01F9B0: 3B 20 38 20 62 79 74 65 73 20 64 6F 77 6E 0D 0A ; 8 bytes down..
01F9C0: 09 50 55 53 48 09 48 4C 0D 0A 2E 53 63 72 65 65 .PUSH.HL...Scree
01F9D0: 6E 42 6C 61 6E 6B 5F 44 6F 77 6E 0D 0A 3B 09 58 nBlank_Down..;.X
01F9E0: 4F 52 09 41 09 09 09 3B 20 56 61 6C 75 65 20 74 OR.A...; Value t
01F9F0: 6F 20 6C 6F 61 64 20 69 6E 0D 0A 3B 09 4C 44 09 o load in..;.LD.
01FA00: 28 48 4C 29 2C 41 09 09 09 3B 20 4C 6F 6F 70 20 (HL),A...; Loop
01FA10: 64 6F 77 6E 77 61 72 64 73 0D 0A 09 43 41 4C 4C downwards...CALL
01FA20: 20 09 53 63 72 65 65 6E 53 65 74 48 4C 0D 0A 09 .ScreenSetHL...
01FA30: 4C 44 09 28 48 4C 29 2C 41 0D 0A 09 4C 44 09 41 LD.(HL),A...LD.A
01FA40: 2C 48 09 09 09 3B 20 41 64 64 20 6F 66 66 73 65 ,H...; Add offse
01FA50: 74 0D 0A 09 41 44 44 09 44 0D 0A 09 4C 44 09 48 t...ADD.D...LD.H
01FA60: 2C 41 0D 0A 09 44 45 43 09 45 09 09 09 3B 20 31 ,A...DEC.E...; 1
01FA70: 20 6C 65 73 73 20 6C 69 6E 65 20 74 6F 20 67 6F less line to go
01FA80: 0D 0A 09 4C 44 09 41 2C 45 0D 0A 09 4F 52 09 41 ...LD.A,E...OR.A
01FA90: 09 09 09 3B 20 41 72 65 20 74 68 65 72 65 20 61 ...; Are there a
01FAA0: 6E 79 20 6C 69 6E 65 73 20 6C 65 66 74 3F 0D 0A ny lines left?..
01FAB0: 09 4A 52 09 4E 5A 2C 53 63 72 65 65 6E 42 6C 61 .JR.NZ,ScreenBla
01FAC0: 6E 6B 5F 44 6F 77 6E 0D 0A 09 50 4F 50 09 48 4C nk_Down...POP.HL
01FAD0: 0D 0A 09 43 41 4C 4C 09 53 63 72 65 65 6E 42 6C ...CALL.ScreenBl
01FAE0: 61 6E 6B 5F 41 63 72 6F 73 73 0D 0A 09 44 45 43 ank_Across...DEC
01FAF0: 09 42 43 09 09 09 3B 20 31 20 6C 65 73 73 20 61 .BC...; 1 less a
01FB00: 63 72 6F 73 73 20 6E 6F 77 21 0D 0A 09 4C 44 09 cross now!...LD.
01FB10: 41 2C 43 0D 0A 09 4F 52 09 42 0D 0A 09 4A 52 09 A,C...OR.B...JR.
01FB20: 4E 5A 2C 53 63 72 65 65 6E 42 6C 61 6E 6B 5F 4E NZ,ScreenBlank_N
01FB30: 65 78 74 0D 0A 0D 0A 09 52 45 54 0D 0A 0D 0A 2E ext.....RET.....
01FB40: 53 63 72 65 65 6E 53 65 74 48 4C 0D 0A 09 4C 44 ScreenSetHL...LD
01FB50: 20 41 2C 28 4A 49 6E 76 65 72 73 65 29 0D 0A 09 A,(JInverse)...
01FB60: 4F 52 20 41 0D 0A 09 4C 44 20 41 2C 32 35 35 0D OR A...LD A,255.
01FB70: 0A 09 52 45 54 20 5A 0D 0A 09 58 4F 52 20 41 0D ..RET Z...XOR A.
01FB80: 0A 09 52 45 54 0D 0A 0D 0A 2E 53 63 72 65 65 6E ..RET.....Screen
01FB90: 42 6C 61 6E 6B 5F 41 63 72 6F 73 73 0D 0A 09 49 Blank_Across...I
01FBA0: 4E 43 09 48 4C 09 09 09 3B 20 48 4C 20 3D 20 48 NC.HL...; HL = H
01FBB0: 4C 20 2B 20 31 0D 0A 09 4C 44 09 41 2C 48 0D 0A L + 1...LD.A,H..
01FBC0: 09 41 4E 44 09 41 2C 25 30 30 30 30 30 31 31 31 .AND.A,%00000111
01FBD0: 09 09 3B 20 4D 61 73 6B 20 62 61 63 6B 20 69 6E ..; Mask back in
01FBE0: 74 6F 20 72 61 6E 67 65 20 6F 66 20 73 63 72 65 to range of scre
01FBF0: 65 6E 0D 0A 09 41 44 44 09 41 2C 26 43 30 09 09 en...ADD.A,&C0..
01FC00: 09 3B 20 41 64 64 20 62 61 73 65 20 6F 66 20 73 .; Add base of s
01FC10: 63 72 65 65 6E 20 61 64 64 72 65 73 73 0D 0A 09 creen address...
01FC20: 4C 44 09 48 2C 41 0D 0A 09 52 45 54 0D 0A 0D 0A LD.H,A...RET....
01FC30: 2E 42 75 66 66 65 72 42 6C 61 6E 6B 0D 0A 3B 20 .BufferBlank..;
01FC40: 09 48 4C 20 3D 20 61 64 64 72 65 73 73 0D 0A 3B .HL = address..;
01FC50: 09 42 43 20 3D 20 6C 65 6E 67 74 68 0D 0A 09 50 .BC = length...P
01FC60: 55 53 48 09 48 4C 09 09 09 3B 20 31 20 66 6F 72 USH.HL...; 1 for
01FC70: 20 6C 61 74 65 72 21 0D 0A 09 50 55 53 48 09 48 later!...PUSH.H
01FC80: 4C 0D 0A 09 50 4F 50 09 44 45 0D 0A 09 49 4E 43 L...POP.DE...INC
01FC90: 09 44 45 09 09 09 3B 20 44 45 20 3C 2D 20 48 4C .DE...; DE <- HL
01FCA0: 20 2B 31 0D 0A 09 50 55 53 48 09 42 43 09 09 09 +1...PUSH.BC...
01FCB0: 3B 20 53 61 76 65 20 74 68 65 20 76 61 6C 75 65 ; Save the value
01FCC0: 20 61 20 6C 69 74 74 6C 65 20 6C 6F 6E 67 65 72 a little longer
01FCD0: 21 0D 0A 09 4C 44 09 28 48 4C 29 2C 33 32 09 09 !...LD.(HL),32..
01FCE0: 09 3B 20 42 6C 61 6E 6B 20 74 68 69 73 20 61 72 .; Blank this ar
01FCF0: 65 61 21 0D 0A 09 4C 44 49 52 0D 0A 0D 0A 09 50 ea!...LDIR.....P
01FD00: 4F 50 09 42 43 09 09 09 3B 20 52 65 73 74 6F 72 OP.BC...; Restor
01FD10: 65 20 76 61 6C 75 65 73 0D 0A 09 50 4F 50 09 48 e values...POP.H
01FD20: 4C 0D 0A 09 4C 44 20 20 20 20 20 20 44 45 2C 32 L...LD DE,2
01FD30: 30 34 38 09 09 09 3B 20 4D 6F 76 65 20 74 6F 20 048...; Move to
01FD40: 61 74 74 72 69 62 75 74 65 73 20 62 6C 6F 63 6B attributes block
01FD50: 0D 0A 09 41 44 44 09 48 4C 2C 44 45 0D 0A 09 50 ...ADD.HL,DE...P
01FD60: 55 53 48 09 48 4C 0D 0A 09 50 4F 50 09 44 45 0D USH.HL...POP.DE.
01FD70: 0A 09 49 4E 43 09 44 45 0D 0A 09 4C 44 20 09 41 ..INC.DE...LD .A
01FD80: 2C 28 46 4F 4E 54 53 45 54 29 0D 0A 09 41 4E 44 ,(FONTSET)...AND
01FD90: 09 25 31 30 30 30 0D 0A 09 4C 44 09 28 48 4C 29 .%1000...LD.(HL)
01FDA0: 2C 41 0D 0A 09 4C 44 49 52 0D 0A 09 52 45 54 0D ,A...LDIR...RET.
01FDB0: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
01FDC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FDD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B -------------..;
01FDE0: 09 54 6F 74 61 6C 79 20 64 69 73 61 62 6C 65 20 .Totaly disable
01FDF0: 73 63 72 65 65 6E 20 62 75 66 66 65 72 69 6E 67 screen buffering
01FE00: 0D 0A 3B 09 61 6E 64 20 72 65 73 65 74 20 61 6E ..;.and reset an
01FE10: 73 69 2F 73 74 6F 70 20 63 75 72 73 6F 72 20 66 si/stop cursor f
01FE20: 6C 61 73 68 0D 0A 3B 09 61 6E 64 20 72 65 6D 6F lash..;.and remo
01FE30: 76 65 20 63 75 72 73 6F 72 0D 0A 3B 2D 2D 2D 2D ve cursor..;----
01FE40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FE50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FE60: 2D 2D 2D 2D 2D 0D 0A 2E 41 4E 53 49 5F 4F 46 46 -----...ANSI_OFF
01FE70: 0D 0A 09 43 41 4C 4C 20 52 45 53 45 54 5F 41 4E ...CALL RESET_AN
01FE80: 53 49 0D 0A 09 43 41 4C 4C 20 53 43 52 5F 42 55 SI...CALL SCR_BU
01FE90: 46 5F 4F 46 46 0D 0A 20 20 20 20 20 20 20 20 4C F_OFF.. L
01FEA0: 44 20 41 2C 28 63 75 72 73 6F 72 6F 6E 29 0D 0A D A,(cursoron)..
01FEB0: 09 4F 52 20 41 0D 0A 09 43 41 4C 4C 20 4E 5A 2C .OR A...CALL NZ,
01FEC0: 63 75 72 73 6F 72 09 09 3B 73 77 61 70 20 63 75 cursor..;swap cu
01FED0: 72 73 6F 72 0D 0A 09 58 4F 52 20 41 0D 0A 09 4C rsor...XOR A...L
01FEE0: 44 20 28 63 75 72 73 6F 72 6F 6E 29 2C 41 0D 0A D (cursoron),A..
01FEF0: 09 4C 44 20 28 63 75 72 73 6F 72 63 6F 75 6E 74 .LD (cursorcount
01FF00: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 ),A.. LD
01FF10: 41 2C 26 43 39 0D 0A 09 4C 44 20 28 6A 63 68 61 A,&C9...LD (jcha
01FF20: 6E 67 65 63 75 72 73 6F 72 29 2C 41 0D 0A 09 4C ngecursor),A...L
01FF30: 44 20 28 6A 6A 63 68 61 6E 67 65 63 75 72 73 6F D (jjchangecurso
01FF40: 72 29 2C 41 0D 0A 09 52 45 54 0D 0A 3B 2D 2D 2D r),A...RET..;---
01FF50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FF60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FF70: 2D 2D 2D 2D 2D 0D 0A 3B 09 72 65 73 74 6F 72 65 -----..;.restore
01FF80: 20 61 6E 73 69 2F 62 75 66 66 65 72 69 6E 67 20 ansi/buffering
01FF90: 61 6E 64 20 63 75 72 73 6F 72 0D 0A 3B 2D 2D 2D and cursor..;---
01FFA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FFB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FFC0: 2D 2D 2D 2D 2D 0D 0A 2E 41 4E 53 49 5F 4F 4E 0D -----...ANSI_ON.
01FFD0: 0A 09 43 41 4C 4C 20 52 45 53 45 54 5F 41 4E 53 ..CALL RESET_ANS
01FFE0: 49 0D 0A 09 43 41 4C 4C 20 53 43 52 5F 42 55 46 I...CALL SCR_BUF
01FFF0: 5F 4F 4E 0D 0A 09 4C 44 20 28 4A 4A 43 48 41 4E _ON...LD (JJCHAN
020000: 47 45 43 55 52 53 4F 52 29 2C 41 0D 0A 09 52 45 GECURSOR),A...RE
020010: 54 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D T..;------------
020020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020030: 2D 0D 0A 3B 54 75 72 6E 20 6F 66 66 20 61 6E 64 -..;Turn off and
020040: 20 6F 6E 20 73 63 72 65 65 6E 20 62 75 66 66 65 on screen buffe
020050: 72 0D 0A 3B 09 65 78 69 74 20 41 46 20 63 6F 72 r..;.exit AF cor
020060: 72 75 70 74 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D rupt..;---------
020070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020080: 2D 2D 2D 2D 2D 09 0D 0A 2E 53 43 52 5F 42 75 66 -----....SCR_Buf
020090: 5F 4F 4E 09 09 09 09 3B 73 63 72 65 65 6E 20 62 _ON....;screen b
0200A0: 75 66 66 65 72 20 6F 6E 0D 0A 20 20 20 20 20 20 uffer on..
0200B0: 20 20 58 4F 52 20 41 0D 0A 09 4A 52 20 53 43 52 XOR A...JR SCR
0200C0: 5F 42 4F 46 31 0D 0A 2E 53 43 52 5F 42 75 66 5F _BOF1...SCR_Buf_
0200D0: 4F 46 46 09 09 09 09 3B 73 63 72 65 65 6E 20 62 OFF....;screen b
0200E0: 75 66 66 65 72 20 6F 66 66 0D 0A 09 4C 44 20 41 uffer off...LD A
0200F0: 2C 26 43 39 0D 0A 2E 53 43 52 5F 42 4F 46 31 0D ,&C9...SCR_BOF1.
020100: 0A 09 4C 44 20 28 6A 73 63 72 6E 5F 65 6E 61 62 ..LD (jscrn_enab
020110: 6C 65 29 2C 41 0D 0A 09 4C 44 20 28 6A 72 6F 6C le),A...LD (jrol
020120: 6C 5F 65 6E 61 62 6C 65 29 2C 41 0D 0A 20 20 20 l_enable),A..
020130: 20 20 20 20 20 4C 44 20 28 6A 63 6C 65 61 72 5F LD (jclear_
020140: 65 6E 61 62 6C 65 29 2C 41 0D 0A 09 52 45 54 0D enable),A...RET.
020150: 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ...;------------
020160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020180: 2D 0D 0A 3B 09 53 43 52 45 45 4E 20 42 55 46 46 -..;.SCREEN BUFF
020190: 45 52 20 43 48 41 52 41 43 54 45 52 20 55 50 44 ER CHARACTER UPD
0201A0: 41 54 45 0D 0A 3B 09 45 6E 74 72 79 20 41 20 3D ATE..;.Entry A =
0201B0: 20 63 68 61 72 61 63 74 65 72 0D 0A 3B 2D 2D 2D character..;---
0201C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0201D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0201E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4A ------------...J
0201F0: 53 63 72 6E 42 75 66 09 42 59 54 45 09 30 09 09 ScrnBuf.BYTE.0..
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 4E E5 1B 00 C1 02 00 00 00 02 ......N.........
020220: 1B 00 C2 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020230: 1B 00 C4 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020240: 1B 00 C6 02 00 00 00 02 1B 00 C7 02 00 00 00 02 ................
020250: 1B 00 C8 02 00 00 00 02 1B 00 C9 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 3B 20 52 75 6E 74 69 6D 65 20 66 6C 61 67 2E 20 ; Runtime flag.
020310: 20 30 20 3D 20 6F 6E 3B 20 26 63 39 20 3D 20 6F 0 = on; &c9 = o
020320: 66 66 0D 0A 2E 4A 53 63 72 6E 5F 65 6E 61 62 6C ff...JScrn_enabl
020330: 65 09 42 59 54 45 20 20 20 20 30 0D 0A 2E 53 63 e.BYTE 0...Sc
020340: 72 6E 42 75 66 0D 0A 09 50 55 53 48 09 41 46 09 rnBuf...PUSH.AF.
020350: 09 09 3B 20 53 61 76 65 20 63 68 61 72 61 63 74 ..; Save charact
020360: 65 72 0D 0A 09 4C 44 09 48 4C 2C 28 59 29 09 3B er...LD.HL,(Y).;
020370: 20 57 68 65 72 65 20 61 72 65 20 77 65 3F 0D 0A Where are we?..
020380: 09 43 41 4C 4C 09 47 65 74 41 64 64 72 65 73 73 .CALL.GetAddress
020390: 09 09 3B 20 46 69 6E 64 20 77 68 65 72 65 20 74 ..; Find where t
0203A0: 6F 20 70 75 74 20 62 79 74 65 0D 0A 09 4C 44 09 o put byte...LD.
0203B0: 28 48 4C 29 2C 41 09 09 09 3B 20 61 6E 64 20 73 (HL),A...; and s
0203C0: 61 76 65 20 69 74 20 74 68 65 72 65 0D 0A 09 4C ave it there...L
0203D0: 44 09 41 2C 28 66 6F 6E 74 73 65 74 29 0D 0A 09 D.A,(fontset)...
0203E0: 4C 44 09 44 45 2C 32 30 34 38 09 09 09 3B 20 4D LD.DE,2048...; M
0203F0: 6F 76 65 20 74 6F 20 61 74 74 72 69 62 20 62 6C ove to attrib bl
020400: 6F 63 6B 0D 0A 09 41 44 44 09 48 4C 2C 44 45 0D ock...ADD.HL,DE.
020410: 0A 09 4C 44 09 28 48 4C 29 2C 41 0D 0A 09 50 4F ..LD.(HL),A...PO
020420: 50 09 41 46 09 09 09 3B 20 52 65 73 74 6F 72 65 P.AF...; Restore
020430: 20 63 68 61 72 61 63 74 65 72 0D 0A 09 52 45 54 character...RET
020440: 0D 0A 0D 0A 3B 09 52 6F 6C 6C 20 62 75 66 66 65 ....;.Roll buffe
020450: 72 20 64 6F 77 6E 0D 0A 3B 0D 0A 2E 4A 42 75 66 r down..;...JBuf
020460: 66 65 72 5F 72 6F 6C 6C 0D 0A 09 42 59 54 45 09 fer_roll...BYTE.
020470: 30 09 09 09 3B 20 47 65 74 73 20 73 65 74 20 61 0...; Gets set a
020480: 74 20 72 75 6E 74 69 6D 65 3B 20 73 65 6C 66 20 t runtime; self
020490: 6D 6F 64 69 66 79 69 6E 67 0D 0A 2E 4A 72 6F 6C modifying...Jrol
0204A0: 6C 5F 65 6E 61 62 6C 65 0D 0A 09 42 59 54 45 09 l_enable...BYTE.
0204B0: 30 0D 0A 2E 42 75 66 66 65 72 5F 72 6F 6C 6C 0D 0...Buffer_roll.
0204C0: 0A 09 0D 0A 09 4C 44 09 42 43 2C 53 63 72 65 65 .....LD.BC,Scree
0204D0: 6E 5F 64 65 70 74 68 2D 31 2A 38 30 09 3B 20 23 n_depth-1*80.; #
0204E0: 0D 0A 09 4C 44 09 48 4C 2C 53 63 72 65 65 6E 5F ...LD.HL,Screen_
0204F0: 43 2B 38 30 09 09 3B 20 46 52 4F 4D 0D 0A 09 4C C+80..; FROM...L
020500: 44 09 44 45 2C 53 63 72 65 65 6E 5F 43 09 09 3B D.DE,Screen_C..;
020510: 20 54 4F 0D 0A 09 4C 44 49 52 0D 0A 09 4C 44 09 TO...LDIR...LD.
020520: 42 43 2C 53 63 72 65 65 6E 5F 64 65 70 74 68 2D BC,Screen_depth-
020530: 31 2A 38 30 09 3B 20 23 0D 0A 09 4C 44 09 48 4C 1*80.; #...LD.HL
020540: 2C 53 63 72 65 65 6E 5F 41 2B 38 30 09 09 3B 20 ,Screen_A+80..;
020550: 46 52 4F 4D 0D 0A 09 4C 44 09 44 45 2C 53 63 72 FROM...LD.DE,Scr
020560: 65 65 6E 5F 41 09 09 3B 20 54 4F 0D 0A 09 4C 44 een_A..; TO...LD
020570: 49 52 0D 0A 0D 0A 09 4C 44 09 48 4C 2C 73 63 72 IR.....LD.HL,scr
020580: 65 65 6E 5F 64 65 70 74 68 2D 31 2A 38 30 2B 53 een_depth-1*80+S
020590: 63 72 65 65 6E 5F 43 0D 0A 09 4C 44 09 44 45 2C creen_C...LD.DE,
0205A0: 73 63 72 65 65 6E 5F 64 65 70 74 68 2D 31 2A 38 screen_depth-1*8
0205B0: 30 2B 53 63 72 65 65 6E 5F 43 2B 31 0D 0A 09 4C 0+Screen_C+1...L
0205C0: 44 09 42 43 2C 37 39 0D 0A 09 4C 44 09 28 48 4C D.BC,79...LD.(HL
0205D0: 29 2C 33 32 0D 0A 09 4C 44 49 52 0D 0A 09 4C 44 ),32...LDIR...LD
0205E0: 09 48 4C 2C 73 63 72 65 65 6E 5F 64 65 70 74 68 .HL,screen_depth
0205F0: 2D 31 2A 38 30 2B 53 63 72 65 65 6E 5F 41 0D 0A -1*80+Screen_A..
020600: 09 4C 44 09 44 45 2C 73 63 72 65 65 6E 5F 64 65 .LD.DE,screen_de
020610: 70 74 68 2D 31 2A 38 30 2B 53 63 72 65 65 6E 5F pth-1*80+Screen_
020620: 41 2B 31 0D 0A 09 4C 44 09 42 43 2C 37 39 0D 0A A+1...LD.BC,79..
020630: 3B 09 4C 44 20 09 41 2C 28 46 4F 4E 54 53 45 54 ;.LD .A,(FONTSET
020640: 29 0D 0A 3B 09 41 4E 44 09 25 31 30 30 30 0D 0A )..;.AND.%1000..
020650: 3B 09 4C 44 09 28 48 4C 29 2C 41 0D 0A 20 09 4C ;.LD.(HL),A.. .L
020660: 44 09 28 48 4C 29 2C 30 0D 0A 09 4C 44 49 52 09 D.(HL),0...LDIR.
020670: 0D 0A 09 52 45 54 0D 0A 0D 0A 3B 09 43 6C 65 61 ...RET....;.Clea
020680: 72 20 62 75 66 66 65 72 0D 0A 3B 0D 0A 2E 6A 63 r buffer..;...jc
020690: 6C 65 61 72 5F 42 75 66 0D 0A 09 42 59 54 45 09 lear_Buf...BYTE.
0206A0: 30 09 09 09 3B 20 52 75 6E 74 69 6D 65 20 6F 70 0...; Runtime op
0206B0: 74 69 6F 6E 3B 20 30 20 3D 20 6F 6E 2C 26 63 39 tion; 0 = on,&c9
0206C0: 20 3D 6F 66 66 0D 0A 2E 4A 63 6C 65 61 72 5F 65 =off...Jclear_e
0206D0: 6E 61 62 6C 65 0D 0A 09 42 59 54 45 09 30 0D 0A nable...BYTE.0..
0206E0: 2E 63 6C 65 61 72 5F 42 75 66 0D 0A 09 4C 44 09 .clear_Buf...LD.
0206F0: 42 43 2C 32 30 34 37 09 09 09 3B 20 4C 65 6E 67 BC,2047...; Leng
020700: 74 68 20 6F 66 20 62 6C 6F 63 6B 20 2D 31 20 28 th of block -1 (
020710: 73 74 61 72 74 20 31 20 75 70 29 0D 0A 09 4C 44 start 1 up)...LD
020720: 09 48 4C 2C 53 63 72 65 65 6E 5F 43 09 09 3B 20 .HL,Screen_C..;
020730: 46 52 4F 4D 0D 0A 09 4C 44 09 44 45 2C 53 63 72 FROM...LD.DE,Scr
020740: 65 65 6E 5F 43 2B 31 09 09 3B 20 54 4F 20 2C 20 een_C+1..; TO ,
020750: 6F 76 65 72 6C 61 70 70 69 6E 67 0D 0A 09 4C 44 overlapping...LD
020760: 09 28 48 4C 29 2C 33 32 09 09 09 3B 20 46 69 6C .(HL),32...; Fil
020770: 6C 20 66 69 72 73 74 20 62 79 74 65 0D 0A 09 4C l first byte...L
020780: 44 49 52 0D 0A 09 4C 44 09 42 43 2C 32 30 34 37 DIR...LD.BC,2047
020790: 09 09 09 3B 20 4C 65 6E 67 74 68 0D 0A 09 4C 44 ...; Length...LD
0207A0: 09 48 4C 2C 53 63 72 65 65 6E 5F 41 09 09 3B 20 .HL,Screen_A..;
0207B0: 46 52 4F 4D 0D 0A 09 4C 44 09 44 45 2C 53 63 72 FROM...LD.DE,Scr
0207C0: 65 65 6E 5F 41 2B 31 09 09 3B 20 54 4F 2C 20 6F een_A+1..; TO, o
0207D0: 76 65 72 6C 61 70 70 69 6E 67 0D 0A 09 4C 44 09 verlapping...LD.
0207E0: 28 48 4C 29 2C 30 09 09 09 3B 20 46 69 6C 6C 20 (HL),0...; Fill
0207F0: 66 69 72 73 74 20 62 79 74 65 0D 0A 09 4C 44 49 first byte...LDI
020800: 52 0D 0A 09 52 45 54 20 20 20 20 20 20 20 20 20 R...RET
020810: 20 20 20 0D 0A 0D 0A 0D 0A 3B 2A 2A 2A 09 41 4E ......;***.AN
020820: 53 49 20 53 45 54 20 47 52 41 50 48 49 43 53 20 SI SET GRAPHICS
020830: 52 45 4E 44 49 54 49 4F 4E 0D 0A 3B 0D 0A 2E 53 RENDITION..;...S
020840: 47 52 09 43 41 4C 4C 09 47 65 74 4E 75 6D 62 65 GR.CALL.GetNumbe
020850: 72 0D 0A 09 43 50 09 32 35 34 09 09 3B 20 32 35 r...CP.254..; 25
020860: 34 20 73 69 67 6E 69 66 69 65 73 20 65 6E 64 20 4 signifies end
020870: 6F 66 20 73 65 71 75 65 6E 63 65 0D 0A 09 4A 50 of sequence...JP
020880: 09 5A 2C 41 6E 73 69 45 78 69 74 0D 0A 09 4F 52 .Z,AnsiExit...OR
020890: 09 41 0D 0A 09 43 41 4C 4C 09 5A 2C 41 6C 6C 4F .A...CALL.Z,AllO
0208A0: 66 66 0D 0A 09 43 50 09 32 35 35 09 09 3B 20 44 ff...CP.255..; D
0208B0: 65 66 61 75 6C 74 20 6D 65 61 6E 73 20 61 6C 6C efault means all
0208C0: 20 6F 66 66 0D 0A 09 43 41 4C 4C 09 5A 2C 41 6C off...CALL.Z,Al
0208D0: 6C 4F 66 66 0D 0A 09 43 50 09 31 0D 0A 09 43 41 lOff...CP.1...CA
0208E0: 4C 4C 09 5A 2C 42 6F 6C 64 4F 6E 0D 0A 09 43 50 LL.Z,BoldOn...CP
0208F0: 09 32 0D 0A 09 43 41 4C 4C 09 5A 2C 66 65 69 6E .2...CALL.Z,fein
020900: 74 4F 6E 0D 0A 09 43 50 09 33 0D 0A 09 43 41 4C tOn...CP.3...CAL
020910: 4C 09 5A 2C 49 74 61 6C 69 63 4F 6E 09 0D 0A 09 L.Z,ItalicOn....
020920: 43 50 09 34 0D 0A 09 43 41 4C 4C 09 5A 2C 55 6E CP.4...CALL.Z,Un
020930: 64 65 72 4F 6E 0D 0A 09 43 50 09 35 0D 0A 09 43 derOn...CP.5...C
020940: 41 4C 4C 09 5A 2C 49 74 61 6C 69 63 4F 6E 0D 0A ALL.Z,ItalicOn..
020950: 09 43 50 09 36 0D 0A 09 43 41 4C 4C 09 5A 2C 49 .CP.6...CALL.Z,I
020960: 74 61 6C 69 63 4F 6E 0D 0A 09 43 50 09 37 0D 0A talicOn...CP.7..
020970: 09 43 41 4C 4C 09 5A 2C 49 6E 76 65 72 73 65 4F .CALL.Z,InverseO
020980: 6E 0D 0A 09 43 50 09 38 0D 0A 09 43 41 4C 4C 09 n...CP.8...CALL.
020990: 5A 2C 53 61 6D 65 62 61 63 6B 66 6F 72 65 0D 0A Z,Samebackfore..
0209A0: 09 43 50 09 32 39 09 09 3B 20 33 30 20 74 6F 20 .CP.29..; 30 to
0209B0: 33 37 20 61 72 65 20 66 6F 72 65 67 72 6F 75 6E 37 are foregroun
0209C0: 64 20 63 6F 6C 6F 75 72 73 2E 0D 0A 09 43 41 4C d colours....CAL
0209D0: 4C 09 4E 43 2C 42 61 63 6B 5F 46 6F 72 65 0D 0A L.NC,Back_Fore..
0209E0: 09 4A 50 09 53 47 52 09 09 3B 20 43 6F 64 65 20 .JP.SGR..; Code
0209F0: 69 73 20 72 65 2D 65 6E 74 72 61 6E 74 0D 0A 0D is re-entrant...
020A00: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
020A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020A20: 2D 2D 0D 0A 3B 0D 0A 3B 09 52 45 53 45 54 20 47 --..;..;.RESET G
020A30: 52 41 50 48 49 43 53 0D 0A 3B 0D 0A 3B 09 45 6E RAPHICS..;..;.En
020A40: 74 72 79 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 45 78 try - None..;.Ex
020A50: 69 74 20 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 55 73 it - None..;.Us
020A60: 65 64 20 20 2D 20 4E 6F 6E 65 0D 0A 3B 2D 2D 2D ed - None..;---
020A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E -------------...
020A90: 41 6C 6C 4F 66 66 0D 0A 09 50 55 53 48 09 41 46 AllOff...PUSH.AF
020AA0: 09 09 3B 20 53 61 76 65 20 72 65 67 69 73 74 65 ..; Save registe
020AB0: 72 73 0D 0A 09 58 4F 52 20 41 09 09 09 3B 20 3D rs...XOR A...; =
020AC0: 20 6F 6E 0D 0A 09 4C 44 09 28 4A 67 65 74 63 68 on...LD.(Jgetch
020AD0: 61 72 61 63 74 65 72 29 2C 41 0D 0A 09 4C 44 09 aracter),A...LD.
020AE0: 41 2C 26 43 39 09 09 3B 20 3D 20 6F 66 66 0D 0A A,&C9..; = off..
020AF0: 09 4C 44 09 28 4A 42 6F 6C 64 29 2C 41 09 3B 20 .LD.(JBold),A.;
020B00: 54 75 72 6E 20 74 68 65 20 66 6C 61 67 73 20 6F Turn the flags o
020B10: 66 66 0D 0A 09 4C 44 09 28 4A 49 74 61 6C 69 63 ff...LD.(JItalic
020B20: 73 29 2C 41 0D 0A 09 4C 44 09 28 4A 55 6E 64 65 s),A...LD.(JUnde
020B30: 72 29 2C 41 0D 0A 09 4C 44 09 28 4A 49 6E 76 65 r),A...LD.(JInve
020B40: 72 73 65 29 2C 41 0D 0A 09 4C 44 20 09 28 4A 66 rse),A...LD .(Jf
020B50: 65 69 6E 74 29 2C 41 0D 0A 09 4C 44 09 28 4A 53 eint),A...LD.(JS
020B60: 6D 61 73 68 29 2C 41 0D 0A 09 4C 44 09 28 4A 48 mash),A...LD.(JH
020B70: 69 67 68 49 6E 74 29 2C 41 0D 0A 09 58 4F 52 09 ighInt),A...XOR.
020B80: 41 09 09 3B 20 52 65 73 65 74 20 62 61 63 6B 67 A..; Reset backg
020B90: 72 6F 75 6E 64 20 74 6F 20 62 6C 61 63 6B 0D 0A round to black..
020BA0: 09 4C 44 09 28 62 61 63 6B 63 6F 6C 6F 75 72 29 .LD.(backcolour)
020BB0: 2C 41 0D 0A 09 4C 44 09 41 2C 37 09 09 3B 20 52 ,A...LD.A,7..; R
020BC0: 65 73 65 74 20 66 6F 72 65 67 72 6F 75 6E 64 20 eset foreground
020BD0: 74 6F 20 77 68 69 74 65 0D 0A 09 4C 44 09 28 66 to white...LD.(f
020BE0: 6F 72 65 63 6F 6C 6F 75 72 29 2C 41 0D 0A 09 58 orecolour),A...X
020BF0: 4F 52 09 41 0D 0A 09 4C 44 09 28 66 6F 6E 74 73 OR.A...LD.(fonts
020C00: 65 74 29 2C 41 09 3B 20 52 65 73 65 74 20 74 68 et),A.; Reset th
020C10: 65 20 62 69 74 20 6D 61 70 20 73 74 6F 72 65 0D e bit map store.
020C20: 0A 09 50 4F 50 09 41 46 09 09 3B 20 52 65 73 74 ..POP.AF..; Rest
020C30: 6F 72 65 20 72 65 67 69 73 74 65 72 0D 0A 09 52 ore register...R
020C40: 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ET....;---------
020C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020C60: 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 0D 0A 3B 09 54 55 -------..;..;.TU
020C70: 52 4E 20 42 4F 4C 44 20 4F 4E 0D 0A 3B 0D 0A 3B RN BOLD ON..;..;
020C80: 09 45 6E 74 72 79 20 2D 20 4E 6F 6E 65 0D 0A 3B .Entry - None..;
020C90: 09 45 78 69 74 20 20 2D 20 4E 6F 6E 65 0D 0A 3B .Exit - None..;
020CA0: 09 55 73 65 64 20 20 2D 20 4E 6F 6E 65 0D 0A 3B .Used - None..;
020CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020CD0: 0D 0A 2E 42 6F 6C 64 4F 6E 09 0D 0A 09 50 55 53 ...BoldOn....PUS
020CE0: 48 09 41 46 09 09 3B 20 53 61 76 65 20 72 65 67 H.AF..; Save reg
020CF0: 69 73 74 65 72 0D 0A 09 58 4F 52 09 41 09 09 3B ister...XOR.A..;
020D00: 20 30 20 6D 65 61 6E 73 20 6F 6E 0D 0A 09 4C 44 0 means on...LD
020D10: 09 28 4A 42 6F 6C 64 29 2C 41 0D 0A 09 4C 44 09 .(JBold),A...LD.
020D20: 28 4A 48 69 67 68 49 6E 74 29 2C 41 0D 0A 09 4C (JHighInt),A...L
020D30: 44 09 41 2C 28 66 6F 72 65 63 6F 6C 6F 75 72 29 D.A,(forecolour)
020D40: 09 3B 20 41 6E 64 20 75 70 64 61 74 65 20 74 68 .; And update th
020D50: 65 20 66 6F 72 65 67 72 6F 75 6E 64 20 63 6F 6C e foreground col
020D60: 6F 75 72 2C 0D 0A 09 43 50 09 38 09 09 3B 20 28 our,...CP.8..; (
020D70: 69 66 20 6C 65 73 73 20 74 68 61 6E 20 38 29 0D if less than 8).
020D80: 0A 09 4A 52 09 4E 43 2C 42 4F 6E 31 0D 0A 09 4F ..JR.NC,BOn1...O
020D90: 52 09 41 09 09 3B 20 73 6F 20 6C 6F 6E 67 20 61 R.A..; so long a
020DA0: 73 20 69 74 20 69 73 20 6E 6F 74 20 30 2E 0D 0A s it is not 0...
020DB0: 09 4A 52 09 5A 2C 42 4F 6E 31 0D 0A 09 41 44 44 .JR.Z,BOn1...ADD
020DC0: 09 38 0D 0A 09 4C 44 09 28 66 6F 72 65 63 6F 6C .8...LD.(forecol
020DD0: 6F 75 72 29 2C 41 0D 0A 09 4C 44 09 41 2C 26 43 our),A...LD.A,&C
020DE0: 39 09 09 3B 20 49 66 20 62 6F 6C 64 20 69 73 20 9..; If bold is
020DF0: 6F 6E 2C 20 74 68 65 6E 20 69 74 20 6F 6E 6C 79 on, then it only
020E00: 20 61 66 66 65 63 74 73 20 66 6F 72 65 2E 0D 0A affects fore...
020E10: 09 4C 44 09 28 4A 53 6D 61 73 68 29 2C 41 09 3B .LD.(JSmash),A.;
020E20: 20 53 6F 20 77 65 20 4D 55 53 54 20 4E 4F 54 20 So we MUST NOT
020E30: 63 6C 65 61 72 20 74 68 65 20 63 68 61 72 61 63 clear the charac
020E40: 74 65 72 2E 0D 0A 2E 42 4F 6E 31 0D 0A 09 4C 44 ter....BOn1...LD
020E50: 20 41 2C 26 43 39 0D 0A 09 4C 44 20 28 6A 67 65 A,&C9...LD (jge
020E60: 74 63 68 61 72 61 63 74 65 72 29 2C 41 0D 0A 09 tcharacter),A...
020E70: 4C 44 20 28 6A 66 65 69 6E 74 29 2C 41 0D 0A 09 LD (jfeint),A...
020E80: 4C 44 09 41 2C 28 66 6F 6E 74 73 65 74 29 0D 0A LD.A,(fontset)..
020E90: 09 53 45 54 09 30 2C 41 09 09 3B 20 74 75 72 6E .SET.0,A..; turn
020EA0: 20 4F 4E 20 69 6E 64 69 63 61 74 6F 72 20 66 6C ON indicator fl
020EB0: 61 67 0D 0A 09 52 45 53 09 35 2C 41 0D 0A 09 4C ag...RES.5,A...L
020EC0: 44 09 28 66 6F 6E 74 73 65 74 29 2C 41 0D 0A 09 D.(fontset),A...
020ED0: 50 4F 50 09 41 46 09 09 3B 20 52 65 73 74 6F 72 POP.AF..; Restor
020EE0: 65 20 72 65 67 69 73 74 65 72 0D 0A 09 52 45 54 e register...RET
020EF0: 0D 0A 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D ........;-------
020F00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 0D 0A 3B 09 ---------..;..;.
020F20: 54 55 52 4E 20 46 45 49 4E 54 20 4F 4E 0D 0A 3B TURN FEINT ON..;
020F30: 0D 0A 3B 09 45 6E 74 72 79 20 2D 20 4E 6F 6E 65 ..;.Entry - None
020F40: 0D 0A 3B 09 45 78 69 74 20 20 2D 20 4E 6F 6E 65 ..;.Exit - None
020F50: 0D 0A 3B 09 55 73 65 64 20 20 2D 20 4E 6F 6E 65 ..;.Used - None
020F60: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
020F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020F80: 2D 2D 2D 0D 0A 2E 66 65 69 6E 74 4F 6E 0D 0A 09 ---...feintOn...
020F90: 50 55 53 48 09 41 46 09 09 3B 20 53 61 76 65 20 PUSH.AF..; Save
020FA0: 72 65 67 69 73 74 65 72 0D 0A 09 58 4F 52 09 41 register...XOR.A
020FB0: 09 09 3B 20 30 20 6D 65 61 6E 73 20 6F 6E 0D 0A ..; 0 means on..
020FC0: 09 4C 44 09 28 4A 66 65 69 6E 74 29 2C 41 0D 0A .LD.(Jfeint),A..
020FD0: 09 4C 44 09 28 4A 48 69 67 68 49 6E 74 29 2C 41 .LD.(JHighInt),A
020FE0: 0D 0A 09 4C 44 09 41 2C 28 66 6F 72 65 63 6F 6C ...LD.A,(forecol
020FF0: 6F 75 72 29 09 3B 20 41 6E 64 20 75 70 64 61 74 our).; And updat
021000: 65 20 74 68 65 20 66 6F 72 65 67 72 6F 75 6E 64 e the foreground
021010: 20 63 6F 6C 6F 75 72 2C 0D 0A 09 43 50 09 38 09 colour,...CP.8.
021020: 09 3B 20 28 69 66 20 6C 65 73 73 20 74 68 61 6E .; (if less than
021030: 20 38 29 0D 0A 09 4A 52 09 4E 43 2C 66 65 6E 31 8)...JR.NC,fen1
021040: 0D 0A 09 4F 52 09 41 09 09 3B 20 73 6F 20 6C 6F ...OR.A..; so lo
021050: 6E 67 20 61 73 20 69 74 20 69 73 20 6E 6F 74 20 ng as it is not
021060: 30 2E 0D 0A 09 4A 52 09 5A 2C 66 65 6E 31 0D 0A 0....JR.Z,fen1..
021070: 09 41 44 44 09 38 0D 0A 09 4C 44 09 28 66 6F 72 .ADD.8...LD.(for
021080: 65 63 6F 6C 6F 75 72 29 2C 41 0D 0A 09 4C 44 09 ecolour),A...LD.
021090: 41 2C 26 43 39 09 09 3B 20 49 66 20 62 6F 6C 64 A,&C9..; If bold
0210A0: 20 69 73 20 6F 6E 2C 20 74 68 65 6E 20 69 74 20 is on, then it
0210B0: 6F 6E 6C 79 20 61 66 66 65 63 74 73 20 66 6F 72 only affects for
0210C0: 65 2E 0D 0A 09 4C 44 09 28 4A 53 6D 61 73 68 29 e....LD.(JSmash)
0210D0: 2C 41 09 3B 20 53 6F 20 77 65 20 4D 55 53 54 20 ,A.; So we MUST
0210E0: 4E 4F 54 20 63 6C 65 61 72 20 74 68 65 20 63 68 NOT clear the ch
0210F0: 61 72 61 63 74 65 72 2E 0D 0A 2E 66 65 6E 31 0D aracter....fen1.
021100: 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 09 4C 44 20 ..LD A,&C9...LD
021110: 28 6A 67 65 74 63 68 61 72 61 63 74 65 72 29 2C (jgetcharacter),
021120: 41 0D 0A 09 4C 44 20 28 6A 62 6F 6C 64 29 2C 41 A...LD (jbold),A
021130: 0D 0A 09 4C 44 09 41 2C 28 66 6F 6E 74 73 65 74 ...LD.A,(fontset
021140: 29 0D 0A 09 53 45 54 09 35 2C 41 09 09 3B 20 74 )...SET.5,A..; t
021150: 75 72 6E 20 4F 4E 20 69 6E 64 69 63 61 74 6F 72 urn ON indicator
021160: 20 66 6C 61 67 0D 0A 09 52 45 53 09 30 2C 41 0D flag...RES.0,A.
021170: 0A 09 4C 44 09 28 66 6F 6E 74 73 65 74 29 2C 41 ..LD.(fontset),A
021180: 0D 0A 09 50 4F 50 09 41 46 09 09 3B 20 52 65 73 ...POP.AF..; Res
021190: 74 6F 72 65 20 72 65 67 69 73 74 65 72 0D 0A 09 tore register...
0211A0: 52 45 54 0D 0A 0D 0A 0D 0A 3B 42 6F 6C 64 4F 66 RET......;BoldOf
0211B0: 66 0D 0A 3B 09 50 55 53 48 09 41 46 09 09 0D 0A f..;.PUSH.AF....
0211C0: 3B 09 50 55 53 48 09 42 43 0D 0A 3B 09 4C 44 09 ;.PUSH.BC..;.LD.
0211D0: 41 2C 26 43 39 09 09 0D 0A 3B 09 4C 44 09 28 4A A,&C9....;.LD.(J
0211E0: 42 6F 6C 64 29 2C 41 0D 0A 3B 09 4C 44 09 28 4A Bold),A..;.LD.(J
0211F0: 48 69 67 68 49 6E 74 29 2C 41 0D 0A 3B 09 4C 44 HighInt),A..;.LD
021200: 09 41 2C 28 66 6F 72 65 63 6F 6C 6F 75 72 29 09 .A,(forecolour).
021210: 0D 0A 3B 09 43 50 09 38 09 09 0D 0A 3B 09 4A 52 ..;.CP.8....;.JR
021220: 09 43 2C 42 4F 31 0D 0A 3B 09 53 55 42 09 38 0D .C,BO1..;.SUB.8.
021230: 0A 3B 09 4C 44 09 28 66 6F 72 65 63 6F 6C 6F 75 .;.LD.(forecolou
021240: 72 29 2C 41 0D 0A 3B 09 4C 44 09 43 2C 41 0D 0A r),A..;.LD.C,A..
021250: 3B 09 4C 44 09 41 2C 28 62 61 63 6B 63 6F 6C 6F ;.LD.A,(backcolo
021260: 75 72 29 0D 0A 3B 09 4C 44 09 42 2C 41 0D 0A 3B ur)..;.LD.B,A..;
021270: 09 4C 44 09 41 2C 43 0D 0A 3B 09 43 41 4C 4C 09 .LD.A,C..;.CALL.
021280: 53 6D 61 73 68 54 68 65 6D 09 0D 0A 3B 42 4F 31 SmashThem...;BO1
021290: 0D 0A 3B 09 4C 44 09 41 2C 28 66 6F 6E 74 73 65 ..;.LD.A,(fontse
0212A0: 74 29 0D 0A 3B 09 52 45 53 09 30 2C 41 09 09 0D t)..;.RES.0,A...
0212B0: 0A 3B 09 4C 44 09 28 66 6F 6E 74 73 65 74 29 2C .;.LD.(fontset),
0212C0: 41 0D 0A 3B 09 50 4F 50 09 42 43 0D 0A 3B 09 50 A..;.POP.BC..;.P
0212D0: 4F 50 09 41 46 0D 0A 3B 09 52 45 54 0D 0A 0D 0A OP.AF..;.RET....
0212E0: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
0212F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021300: 2D 2D 2D 0D 0A 3B 0D 0A 3B 09 54 55 52 4E 20 49 ---..;..;.TURN I
021310: 54 41 4C 49 43 53 20 4F 4E 0D 0A 3B 09 28 72 65 TALICS ON..;.(re
021320: 70 6C 61 63 65 73 20 66 6C 61 73 68 69 6E 67 29 places flashing)
021330: 0D 0A 3B 09 45 6E 74 72 79 20 2D 20 4E 6F 6E 65 ..;.Entry - None
021340: 0D 0A 3B 09 45 78 69 74 20 20 2D 20 4E 6F 6E 65 ..;.Exit - None
021350: 0D 0A 3B 09 55 73 65 64 20 20 2D 20 4E 6F 6E 65 ..;.Used - None
021360: 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;-------------
021370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021380: 2D 2D 2D 0D 0A 2E 49 74 61 6C 69 63 4F 6E 0D 0A ---...ItalicOn..
021390: 09 50 55 53 48 09 41 46 09 09 3B 20 53 61 76 65 .PUSH.AF..; Save
0213A0: 20 41 46 0D 0A 09 58 4F 52 09 41 0D 0A 09 4C 44 AF...XOR.A...LD
0213B0: 09 28 4A 49 74 61 6C 69 63 73 29 2C 41 09 3B 20 .(JItalics),A.;
0213C0: 30 20 6D 65 61 6E 73 20 6F 6E 0D 0A 09 4C 44 09 0 means on...LD.
0213D0: 41 2C 28 66 6F 6E 74 73 65 74 29 0D 0A 09 53 45 A,(fontset)...SE
0213E0: 54 09 31 2C 41 09 09 3B 20 74 75 72 6E 20 4F 4E T.1,A..; turn ON
0213F0: 20 69 6E 64 69 63 61 74 6F 72 20 66 6C 61 67 0D indicator flag.
021400: 0A 09 4C 44 09 28 66 6F 6E 74 73 65 74 29 2C 41 ..LD.(fontset),A
021410: 0D 0A 09 50 4F 50 09 41 46 09 09 3B 20 52 65 73 ...POP.AF..; Res
021420: 74 6F 72 65 20 72 65 67 69 73 74 65 72 0D 0A 09 tore register...
021430: 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D RET....;--------
021440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021450: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 0D 0A 3B 09 54 --------..;..;.T
021460: 55 52 4E 20 55 4E 44 45 52 4C 49 4E 45 20 4F 4E URN UNDERLINE ON
021470: 0D 0A 3B 0D 0A 3B 09 45 6E 74 72 79 20 2D 20 4E ..;..;.Entry - N
021480: 6F 6E 65 0D 0A 3B 09 45 78 69 74 20 20 2D 20 4E one..;.Exit - N
021490: 6F 6E 65 0D 0A 3B 09 55 73 65 64 20 20 2D 20 4E one..;.Used - N
0214A0: 6F 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D one..;----------
0214B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0214C0: 2D 2D 2D 2D 2D 2D 0D 0A 2E 55 6E 64 65 72 4F 6E ------...UnderOn
0214D0: 0D 0A 09 50 55 53 48 09 41 46 09 09 3B 20 53 61 ...PUSH.AF..; Sa
0214E0: 76 65 20 72 65 67 69 73 74 65 72 0D 0A 09 58 4F ve register...XO
0214F0: 52 09 41 09 09 3B 20 30 20 6D 65 61 6E 73 20 6F R.A..; 0 means o
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 4E E5 1C 00 C1 02 00 00 00 02 ......N.........
021520: 1C 00 C2 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021530: 1C 00 C4 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021540: 1C 00 C6 02 00 00 00 02 1C 00 C7 02 00 00 00 02 ................
021550: 1C 00 C8 02 00 00 00 02 1C 00 C9 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 6E 0D 0A 09 4C 44 09 28 4A 55 6E 64 65 72 29 2C n...LD.(JUnder),
021610: 41 0D 0A 09 4C 44 09 41 2C 28 66 6F 6E 74 73 65 A...LD.A,(fontse
021620: 74 29 0D 0A 09 53 45 54 09 32 2C 41 09 09 3B 20 t)...SET.2,A..;
021630: 74 75 72 6E 20 4F 4E 20 69 6E 64 69 63 61 74 6F turn ON indicato
021640: 72 20 66 6C 61 67 0D 0A 09 4C 44 09 28 66 6F 6E r flag...LD.(fon
021650: 74 73 65 74 29 2C 41 0D 0A 09 50 4F 50 09 41 46 tset),A...POP.AF
021660: 09 09 3B 20 52 65 73 74 6F 72 65 20 72 65 67 69 ..; Restore regi
021670: 73 74 65 72 0D 0A 09 52 45 54 0D 0A 0D 0A 3B 2D ster...RET....;-
021680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0216A0: 0A 3B 0D 0A 3B 09 54 55 52 4E 20 49 4E 56 45 52 .;..;.TURN INVER
0216B0: 53 45 20 4F 4E 0D 0A 3B 0D 0A 3B 09 45 6E 74 72 SE ON..;..;.Entr
0216C0: 79 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 45 78 69 74 y - None..;.Exit
0216D0: 20 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 55 73 65 64 - None..;.Used
0216E0: 20 20 2D 20 4E 6F 6E 65 0D 0A 3B 2D 2D 2D 2D 2D - None..;-----
0216F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 49 6E -----------...In
021710: 76 65 72 73 65 4F 6E 0D 0A 09 50 55 53 48 09 41 verseOn...PUSH.A
021720: 46 09 09 3B 20 53 61 76 65 20 72 65 67 69 73 74 F..; Save regist
021730: 65 72 0D 0A 09 58 4F 52 09 41 09 09 3B 20 30 20 er...XOR.A..; 0
021740: 6D 65 61 6E 73 20 6F 6E 0D 0A 09 4C 44 09 28 4A means on...LD.(J
021750: 49 6E 76 65 72 73 65 29 2C 41 0D 0A 09 4C 44 09 Inverse),A...LD.
021760: 41 2C 28 62 61 63 6B 63 6F 6C 6F 75 72 29 09 3B A,(backcolour).;
021770: 20 53 61 76 65 20 62 61 63 6B 20 63 6F 6C 6F 75 Save back colou
021780: 72 0D 0A 09 50 55 53 48 09 41 46 0D 0A 09 4C 44 r...PUSH.AF...LD
021790: 09 41 2C 28 66 6F 72 65 63 6F 6C 6F 75 72 29 09 .A,(forecolour).
0217A0: 3B 20 43 6F 70 79 20 66 6F 72 65 20 63 6F 6C 6F ; Copy fore colo
0217B0: 75 72 20 69 6E 74 6F 20 62 61 63 6B 20 63 6F 6C ur into back col
0217C0: 6F 75 72 0D 0A 09 4C 44 09 28 62 61 63 6B 63 6F our...LD.(backco
0217D0: 6C 6F 75 72 29 2C 41 0D 0A 09 50 4F 50 09 41 46 lour),A...POP.AF
0217E0: 09 09 3B 20 52 65 74 72 69 65 76 65 20 62 61 63 ..; Retrieve bac
0217F0: 6B 20 63 6F 6C 6F 75 72 2C 20 61 6E 64 20 63 6F k colour, and co
021800: 70 79 20 69 6E 74 6F 20 0D 0A 09 4C 44 09 28 66 py into ...LD.(f
021810: 6F 72 65 63 6F 6C 6F 75 72 29 2C 41 09 3B 20 66 orecolour),A.; f
021820: 6F 72 65 20 63 6F 6C 6F 75 72 0D 0A 09 4C 44 09 ore colour...LD.
021830: 41 2C 28 66 6F 6E 74 73 65 74 29 0D 0A 09 53 45 A,(fontset)...SE
021840: 54 09 33 2C 41 09 09 3B 20 74 75 72 6E 20 4F 4E T.3,A..; turn ON
021850: 20 69 6E 64 69 63 61 74 6F 72 20 66 6C 61 67 0D indicator flag.
021860: 0A 09 4C 44 09 28 66 6F 6E 74 73 65 74 29 2C 41 ..LD.(fontset),A
021870: 0D 0A 09 50 4F 50 09 41 46 09 09 3B 20 52 65 73 ...POP.AF..; Res
021880: 74 6F 72 65 20 41 46 0D 0A 09 52 45 54 0D 0A 0D tore AF...RET...
021890: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
0218A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0218B0: 2D 2D 0D 0A 3B 0D 0A 3B 09 53 45 54 20 46 4F 52 --..;..;.SET FOR
0218C0: 45 47 52 4F 55 4E 44 20 43 4F 4C 4F 55 52 0D 0A EGROUND COLOUR..
0218D0: 3B 09 09 54 4F 20 42 41 43 4B 47 52 4F 55 4E 44 ;..TO BACKGROUND
0218E0: 0D 0A 3B 0D 0A 3B 09 45 6E 74 72 79 20 2D 20 4E ..;..;.Entry - N
0218F0: 6F 6E 65 0D 0A 3B 09 45 78 69 74 20 20 2D 20 4E one..;.Exit - N
021900: 6F 6E 65 0D 0A 3B 09 55 73 65 64 20 20 2D 20 4E one..;.Used - N
021910: 6F 6E 65 0D 0A 3B 09 0D 0A 3B 2D 2D 2D 2D 2D 2D one..;...;------
021920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 53 61 6D ----------...Sam
021940: 65 62 61 63 6B 66 6F 72 65 0D 0A 09 50 55 53 48 ebackfore...PUSH
021950: 09 41 46 0D 0A 09 4C 44 09 41 2C 28 62 61 63 6B .AF...LD.A,(back
021960: 63 6F 6C 6F 75 72 29 09 3B 20 47 65 74 20 62 61 colour).; Get ba
021970: 63 6B 67 72 6F 75 6E 64 20 63 6F 6C 6F 75 72 0D ckground colour.
021980: 0A 09 4C 44 09 28 66 6F 72 65 63 6F 6C 6F 75 72 ..LD.(forecolour
021990: 29 2C 41 09 3B 20 53 61 76 65 20 69 6E 74 6F 20 ),A.; Save into
0219A0: 66 6F 72 65 67 72 6F 75 6E 64 20 63 6F 6C 6F 75 foreground colou
0219B0: 72 0D 0A 09 58 4F 52 09 41 0D 0A 09 4C 44 09 28 r...XOR.A...LD.(
0219C0: 4A 53 6D 61 73 68 29 2C 41 09 3B 20 54 75 72 6E JSmash),A.; Turn
0219D0: 20 53 6D 61 73 68 21 20 6F 6E 2E 0D 0A 09 4C 44 Smash! on....LD
0219E0: 09 41 2C 28 66 6F 6E 74 73 65 74 29 0D 0A 09 53 .A,(fontset)...S
0219F0: 45 54 09 34 2C 41 09 09 3B 20 74 75 72 6E 20 4F ET.4,A..; turn O
021A00: 4E 20 69 6E 64 69 63 61 74 6F 72 20 66 6C 61 67 N indicator flag
021A10: 0D 0A 09 4C 44 09 28 66 6F 6E 74 73 65 74 29 2C ...LD.(fontset),
021A20: 41 0D 0A 09 50 4F 50 09 41 46 0D 0A 09 52 45 54 A...POP.AF...RET
021A30: 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ....;-----------
021A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021A50: 2D 2D 2D 2D 2D 0D 0A 3B 0D 0A 3B 09 42 41 43 4B -----..;..;.BACK
021A60: 2F 46 4F 52 45 20 47 52 4F 55 4E 44 0D 0A 3B 0D /FORE GROUND..;.
021A70: 0A 3B 09 45 6E 74 72 79 20 2D 20 41 20 3D 20 3E .;.Entry - A = >
021A80: 33 39 20 66 6F 72 20 66 6F 72 65 0D 0A 3B 09 09 39 for fore..;..
021A90: 20 20 20 20 3E 32 39 20 66 6F 72 20 62 61 63 6B >29 for back
021AA0: 0D 0A 3B 09 45 78 69 74 20 20 2D 20 4E 6F 6E 65 ..;.Exit - None
021AB0: 0D 0A 3B 09 55 73 65 64 20 20 2D 20 4E 6F 6E 65 ..;.Used - None
021AC0: 0D 0A 3B 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..;..;----------
021AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021AE0: 2D 2D 2D 2D 2D 2D 0D 0A 2E 42 61 63 6B 5F 46 6F ------...Back_Fo
021AF0: 72 65 0D 0A 09 43 50 09 33 39 0D 0A 09 4A 52 09 re...CP.39...JR.
021B00: 4E 43 2C 42 61 63 6B 47 72 6F 75 6E 64 0D 0A 3B NC,BackGround..;
021B10: 09 6F 74 68 65 72 77 69 73 65 20 64 72 6F 70 20 .otherwise drop
021B20: 74 68 72 6F 75 67 68 20 74 6F 20 66 6F 72 65 67 through to foreg
021B30: 72 6F 75 6E 64 20 63 6F 6C 6F 75 72 2E 0D 0A 0D round colour....
021B40: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
021B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021B60: 2D 2D 0D 0A 3B 0D 0A 3B 09 53 45 54 20 46 4F 52 --..;..;.SET FOR
021B70: 45 47 52 4F 55 4E 44 20 43 4F 4C 4F 55 52 0D 0A EGROUND COLOUR..
021B80: 3B 09 0D 0A 3B 09 45 6E 74 72 79 20 2D 20 4E 6F ;...;.Entry - No
021B90: 6E 65 0D 0A 3B 09 45 78 69 74 20 20 2D 20 4E 6F ne..;.Exit - No
021BA0: 6E 65 0D 0A 3B 09 55 73 65 64 20 20 2D 20 4E 6F ne..;.Used - No
021BB0: 6E 65 0D 0A 3B 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D ne..;..;--------
021BC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021BD0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 66 6F 72 65 67 --------...foreg
021BE0: 72 6F 75 6E 64 0D 0A 09 50 55 53 48 09 41 46 0D round...PUSH.AF.
021BF0: 0A 09 50 55 53 48 09 42 43 0D 0A 09 53 55 42 09 ..PUSH.BC...SUB.
021C00: 33 30 09 09 3B 20 42 72 69 6E 67 20 64 6F 77 6E 30..; Bring down
021C10: 20 74 6F 20 30 20 62 61 73 65 2E 0D 0A 09 4F 52 to 0 base....OR
021C20: 09 41 09 09 3B 20 49 66 20 6E 6F 74 20 7A 65 72 .A..; If not zer
021C30: 6F 20 74 68 65 6E 0D 0A 09 43 41 4C 4C 09 4E 5A o then...CALL.NZ
021C40: 2C 4A 48 69 67 68 49 6E 74 09 3B 20 41 64 64 20 ,JHighInt.; Add
021C50: 38 20 69 66 20 68 69 67 68 20 69 6E 74 65 6E 73 8 if high intens
021C60: 69 74 79 0D 0A 09 4C 44 09 28 66 6F 72 65 63 6F ity...LD.(foreco
021C70: 6C 6F 75 72 29 2C 41 09 3B 20 53 61 76 65 20 63 lour),A.; Save c
021C80: 6F 6C 6F 75 72 0D 0A 09 4C 44 09 43 2C 41 0D 0A olour...LD.C,A..
021C90: 09 4C 44 09 41 2C 28 62 61 63 6B 63 6F 6C 6F 75 .LD.A,(backcolou
021CA0: 72 29 09 3B 20 67 65 74 20 74 68 65 20 6F 74 68 r).; get the oth
021CB0: 65 72 20 6F 6E 65 2E 0D 0A 09 4C 44 09 42 2C 41 er one....LD.B,A
021CC0: 09 09 3B 20 42 20 3D 20 62 61 63 6B 67 72 6F 75 ..; B = backgrou
021CD0: 6E 64 0D 0A 09 4C 44 09 41 2C 43 09 09 3B 20 41 nd...LD.A,C..; A
021CE0: 20 3D 20 66 6F 72 65 67 72 6F 75 6E 64 0D 0A 09 = foreground...
021CF0: 43 41 4C 4C 09 53 6D 61 73 68 54 68 65 6D 09 3B CALL.SmashThem.;
021D00: 20 54 6F 67 67 6C 65 20 73 6D 61 73 68 3F 0D 0A Toggle smash?..
021D10: 09 50 4F 50 09 42 43 0D 0A 09 50 4F 50 09 41 46 .POP.BC...POP.AF
021D20: 0D 0A 09 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D ...RET....;-----
021D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 0D 0A -----------..;..
021D50: 3B 09 53 45 54 20 42 41 43 4B 47 52 4F 55 4E 44 ;.SET BACKGROUND
021D60: 20 43 4F 4C 4F 55 52 0D 0A 3B 09 0D 0A 3B 09 45 COLOUR..;...;.E
021D70: 6E 74 72 79 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 45 ntry - None..;.E
021D80: 78 69 74 20 20 2D 20 4E 6F 6E 65 0D 0A 3B 09 55 xit - None..;.U
021D90: 73 65 64 20 20 2D 20 4E 6F 6E 65 0D 0A 3B 0D 0A sed - None..;..
021DA0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
021DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021DC0: 2D 0D 0A 2E 62 61 63 6B 67 72 6F 75 6E 64 0D 0A -...background..
021DD0: 09 50 55 53 48 09 41 46 0D 0A 09 50 55 53 48 09 .PUSH.AF...PUSH.
021DE0: 42 43 0D 0A 09 53 55 42 09 34 30 09 09 3B 20 42 BC...SUB.40..; B
021DF0: 72 69 6E 67 20 64 6F 77 6E 20 74 6F 20 30 20 62 ring down to 0 b
021E00: 61 73 65 2E 0D 0A 09 4C 44 09 28 62 61 63 6B 63 ase....LD.(backc
021E10: 6F 6C 6F 75 72 29 2C 41 09 3B 20 53 61 76 65 20 olour),A.; Save
021E20: 63 6F 6C 6F 75 72 0D 0A 09 4C 44 09 42 2C 41 0D colour...LD.B,A.
021E30: 0A 09 4C 44 09 41 2C 28 66 6F 72 65 63 6F 6C 6F ..LD.A,(forecolo
021E40: 75 72 29 09 3B 20 67 65 74 20 74 68 65 20 6F 74 ur).; get the ot
021E50: 68 65 72 20 6F 6E 65 2E 0D 0A 09 43 41 4C 4C 09 her one....CALL.
021E60: 53 6D 61 73 68 54 68 65 6D 09 3B 20 54 75 72 6E SmashThem.; Turn
021E70: 20 73 6D 61 73 68 20 6F 6E 3F 0D 0A 09 50 4F 50 smash on?...POP
021E80: 09 42 43 0D 0A 09 50 4F 50 09 41 46 0D 0A 09 52 .BC...POP.AF...R
021E90: 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ET....;---------
021EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021EB0: 2D 2D 2D 2D 2D 2D 0D 0A 3B 0D 0A 3B 09 53 4D 41 ------..;..;.SMA
021EC0: 53 48 20 4F 4E 2F 4F 46 46 0D 0A 3B 0D 0A 3B 09 SH ON/OFF..;..;.
021ED0: 45 6E 74 72 79 20 2D 20 41 2F 42 20 3D 20 66 6F Entry - A/B = fo
021EE0: 72 65 2F 62 61 63 6B 0D 0A 3B 09 45 78 69 74 20 re/back..;.Exit
021EF0: 20 2D 20 53 6D 61 73 68 20 6F 6E 20 69 66 20 73 - Smash on if s
021F00: 61 6D 65 0D 0A 3B 09 09 55 6E 64 65 72 6C 69 6E ame..;..Underlin
021F10: 65 20 6F 6E 20 69 66 20 34 0D 0A 3B 09 55 73 65 e on if 4..;.Use
021F20: 64 20 20 2D 20 41 46 0D 0A 3B 0D 0A 3B 2D 2D 2D d - AF..;..;---
021F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 53 ------------...S
021F50: 6D 61 73 68 54 68 65 6D 0D 0A 09 50 55 53 48 09 mashThem...PUSH.
021F60: 41 46 0D 0A 09 43 50 09 41 2C 42 09 09 3B 20 61 AF...CP.A,B..; a
021F70: 72 65 20 74 68 65 79 20 74 68 65 20 73 61 6D 65 re they the same
021F80: 3F 0D 0A 09 4A 52 09 5A 2C 53 54 42 31 0D 0A 09 ?...JR.Z,STB1...
021F90: 4C 44 09 41 2C 26 43 39 09 09 3B 20 52 45 54 0D LD.A,&C9..; RET.
021FA0: 0A 09 4C 44 09 28 4A 53 6D 61 73 68 29 2C 41 09 ..LD.(JSmash),A.
021FB0: 3B 20 74 75 72 6E 20 6F 66 66 20 73 6D 61 73 68 ; turn off smash
021FC0: 21 0D 0A 09 4C 44 09 41 2C 28 66 6F 6E 74 73 65 !...LD.A,(fontse
021FD0: 74 29 0D 0A 09 52 45 53 09 34 2C 41 09 09 3B 20 t)...RES.4,A..;
021FE0: 74 75 72 6E 20 4F 46 46 20 69 6E 64 69 63 61 74 turn OFF indicat
021FF0: 6F 72 20 66 6C 61 67 2E 0D 0A 09 4C 44 09 28 66 or flag....LD.(f
022000: 6F 6E 74 73 65 74 29 2C 41 0D 0A 09 50 4F 50 09 ontset),A...POP.
022010: 41 46 0D 0A 09 41 4E 44 09 37 09 09 3B 20 4D 61 AF...AND.7..; Ma
022020: 73 6B 20 6F 75 74 20 68 69 67 68 20 69 6E 74 65 sk out high inte
022030: 6E 73 69 74 79 20 66 6C 61 67 2E 0D 0A 09 4F 52 nsity flag....OR
022040: 09 41 09 09 3B 20 49 73 20 41 20 7A 65 72 6F 3F .A..; Is A zero?
022050: 0D 0A 09 4A 52 09 4E 5A 2C 53 54 31 0D 0A 09 4C ...JR.NZ,ST1...L
022060: 44 09 28 4A 49 6E 76 65 72 73 65 29 2C 41 09 3B D.(JInverse),A.;
022070: 20 49 6E 76 65 72 73 65 20 4F 4E 2C 20 69 66 20 Inverse ON, if
022080: 30 0D 0A 09 4C 44 09 41 2C 28 66 6F 6E 74 73 65 0...LD.A,(fontse
022090: 74 29 0D 0A 09 53 45 54 09 33 2C 41 09 09 3B 20 t)...SET.3,A..;
0220A0: 74 75 72 6E 20 4F 4E 20 69 6E 64 69 63 61 74 6F turn ON indicato
0220B0: 72 20 66 6C 61 67 0D 0A 09 4C 44 09 28 66 6F 6E r flag...LD.(fon
0220C0: 74 73 65 74 29 2C 41 0D 0A 09 52 45 54 0D 0A 2E tset),A...RET...
0220D0: 53 54 31 0D 0A 09 4C 44 09 41 2C 26 43 39 09 09 ST1...LD.A,&C9..
0220E0: 3B 20 54 75 72 6E 20 69 6E 76 65 72 73 65 20 6F ; Turn inverse o
0220F0: 66 66 20 69 66 20 6E 6F 74 20 30 0D 0A 09 4C 44 ff if not 0...LD
022100: 09 28 4A 49 6E 76 65 72 73 65 29 2C 41 0D 0A 09 .(JInverse),A...
022110: 4C 44 09 41 2C 28 66 6F 6E 74 73 65 74 29 0D 0A LD.A,(fontset)..
022120: 09 52 45 53 09 33 2C 41 09 09 3B 20 74 75 72 6E .RES.3,A..; turn
022130: 20 4F 46 46 20 69 6E 64 69 63 61 74 6F 72 20 66 OFF indicator f
022140: 6C 61 67 2E 0D 0A 09 4C 44 09 28 66 6F 6E 74 73 lag....LD.(fonts
022150: 65 74 29 2C 41 0D 0A 09 52 45 54 0D 0A 0D 0A 2E et),A...RET.....
022160: 53 54 42 31 09 58 4F 52 09 41 09 09 3B 20 4E 4F STB1.XOR.A..; NO
022170: 50 0D 0A 09 4C 44 09 28 4A 53 6D 61 73 68 29 2C P...LD.(JSmash),
022180: 41 09 3B 20 74 75 72 6E 20 73 6D 61 73 68 21 20 A.; turn smash!
022190: 6F 6E 0D 0A 09 4C 44 09 41 2C 28 66 6F 6E 74 73 on...LD.A,(fonts
0221A0: 65 74 29 0D 0A 09 53 45 54 09 34 2C 41 09 09 3B et)...SET.4,A..;
0221B0: 20 74 75 72 6E 20 4F 4E 20 69 6E 64 69 63 61 74 turn ON indicat
0221C0: 6F 72 20 66 6C 61 67 2E 0D 0A 09 4C 44 09 28 66 or flag....LD.(f
0221D0: 6F 6E 74 73 65 74 29 2C 41 0D 0A 09 50 4F 50 09 ontset),A...POP.
0221E0: 41 46 0D 0A 09 52 45 54 0D 0A 0D 0A 3B 2D 2D 2D AF...RET....;---
0221F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 3B 0D ------------..;.
022210: 0A 3B 09 53 45 54 20 48 49 47 48 20 49 4E 54 45 .;.SET HIGH INTE
022220: 4E 53 49 54 59 0D 0A 3B 0D 0A 3B 09 45 6E 74 72 NSITY..;..;.Entr
022230: 79 20 2D 20 41 20 3D 20 43 6F 6C 6F 75 72 0D 0A y - A = Colour..
022240: 3B 09 45 78 69 74 20 20 2D 20 41 20 3D 20 43 6F ;.Exit - A = Co
022250: 6C 6F 75 72 20 6F 72 0D 0A 3B 09 09 41 20 3D 20 lour or..;..A =
022260: 48 69 67 68 20 49 6E 74 65 6E 73 69 74 79 20 43 High Intensity C
022270: 6F 6C 6F 75 72 0D 0A 3B 09 55 73 65 64 20 20 2D olour..;.Used -
022280: 20 4E 6F 6E 65 0D 0A 3B 0D 0A 3B 2D 2D 2D 2D 2D None..;..;-----
022290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0222A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4A 48 69 ----------...JHi
0222B0: 67 68 49 6E 74 0D 0A 09 42 59 54 45 09 26 43 39 ghInt...BYTE.&C9
0222C0: 09 09 3B 20 30 20 6D 65 61 6E 73 20 6F 6E 2C 20 ..; 0 means on,
0222D0: 26 43 39 20 6D 65 61 6E 73 20 6F 66 66 0D 0A 2E &C9 means off...
0222E0: 48 69 67 68 49 6E 74 0D 0A 09 41 44 44 09 38 0D HighInt...ADD.8.
0222F0: 0A 09 52 45 54 0D 0A 0D 0A 3B 2A 2A 2A 09 41 4E ..RET....;***.AN
022300: 53 49 20 53 41 56 45 20 43 55 52 53 4F 52 20 50 SI SAVE CURSOR P
022310: 4F 53 49 54 49 4F 4E 0D 0A 3B 0D 0A 2E 53 43 50 OSITION..;...SCP
022320: 09 4C 44 09 48 4C 2C 28 59 29 09 3B 20 28 62 61 .LD.HL,(Y).; (ba
022330: 63 6B 75 70 29 20 3C 2D 20 28 63 75 72 72 65 6E ckup) <- (curren
022340: 74 29 0D 0A 09 4C 44 09 28 43 75 72 73 6F 72 5F t)...LD.(Cursor_
022350: 50 6F 73 29 2C 48 4C 0D 0A 09 4A 50 09 41 6E 73 Pos),HL...JP.Ans
022360: 69 45 78 69 74 0D 0A 0D 0A 3B 2A 2A 2A 09 41 4E iExit....;***.AN
022370: 53 49 20 52 45 53 54 4F 52 45 20 43 55 52 53 4F SI RESTORE CURSO
022380: 52 20 50 4F 53 49 54 49 4F 4E 0D 0A 3B 0D 0A 2E R POSITION..;...
022390: 52 43 50 09 4C 44 09 48 4C 2C 28 43 75 72 73 6F RCP.LD.HL,(Curso
0223A0: 72 5F 50 6F 73 29 09 09 3B 20 28 63 75 72 72 65 r_Pos)..; (curre
0223B0: 6E 74 29 20 3C 2D 20 28 62 61 63 6B 75 70 29 0D nt) <- (backup).
0223C0: 0A 09 4C 44 09 28 59 29 2C 48 4C 0D 0A 09 4A 50 ..LD.(Y),HL...JP
0223D0: 09 41 6E 73 69 45 78 69 74 0D 0A 0D 0A 1A 0A 20 .AnsiExit......
0223E0: 20 20 20 20 20 09 52 45 54 20 20 0D 0A 0D 0A 0D .RET .....
0223F0: 0A 0D 0A 1A 00 00 00 00 00 00 00 00 00 00 00 00 ................
022400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0224A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0224B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0224C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0224D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0224E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0224F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0225A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0225B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0225C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0225D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0225E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0225F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022600: 31 20 70 72 69 6E 74 20 22 6D 61 69 6E 20 69 6E 1 print "main in
022610: 70 75 74 20 72 6F 75 74 69 6E 65 73 22 0D 0A 0D put routines"...
022620: 0A 3B 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 .; the following
022630: 20 65 71 75 61 74 65 73 20 6D 75 73 74 20 62 65 equates must be
022640: 20 6B 65 70 74 20 75 70 20 74 6F 20 64 61 74 65 kept up to date
022650: 2E 0D 0A 0D 0A 0D 0A 3B 67 65 6E 65 72 61 6C 20 .......;general
022660: 6A 75 6D 70 20 62 6C 6F 63 6B 20 66 6F 72 20 0D jump block for .
022670: 0A 0D 0A 3B 69 6E 69 74 73 0D 0A 0D 0A 6A 33 30 ...;inits....j30
022680: 30 69 6E 69 74 5F 70 6C 75 73 09 65 71 75 20 67 0init_plus.equ g
022690: 75 2B 30 0D 0A 53 65 74 49 6E 74 65 72 75 70 74 u+0..SetInterupt
0226A0: 09 65 71 75 20 67 75 2B 33 0D 0A 4F 66 66 49 6E .equ gu+3..OffIn
0226B0: 74 65 72 75 70 74 09 65 71 75 20 67 75 2B 36 0D terupt.equ gu+6.
0226C0: 0A 52 65 6D 6F 76 65 5F 63 75 72 73 6F 72 09 65 .Remove_cursor.e
0226D0: 71 75 20 67 75 2B 39 0D 0A 50 6C 61 63 65 5F 63 qu gu+9..Place_c
0226E0: 75 72 73 6F 72 09 65 71 75 20 67 75 2B 31 32 0D ursor.equ gu+12.
0226F0: 0A 43 4C 4F 43 4B 5F 52 45 53 09 65 71 75 20 67 .CLOCK_RES.equ g
022700: 75 2B 31 35 0D 0A 43 4C 4F 43 4B 5F 50 52 49 4E u+15..CLOCK_PRIN
022710: 54 09 65 71 75 20 67 75 2B 31 38 0D 0A 43 4C 5F T.equ gu+18..CL_
022720: 50 52 49 4E 54 09 65 71 75 20 67 75 2B 32 31 0D PRINT.equ gu+21.
022730: 0A 43 4C 4F 43 4B 5F 4F 4E 09 65 71 75 20 67 75 .CLOCK_ON.equ gu
022740: 2B 32 34 0D 0A 43 4C 4F 43 4B 5F 4F 46 46 09 65 +24..CLOCK_OFF.e
022750: 71 75 20 67 75 2B 32 37 0D 0A 0D 0A 3B 77 69 6E qu gu+27....;win
022760: 64 6F 77 0D 0A 50 55 4C 4C 44 4F 57 4E 09 65 71 dow..PULLDOWN.eq
022770: 75 20 67 75 2B 33 30 0D 0A 20 20 3B 44 41 54 41 u gu+30.. ;DATA
022780: 4C 49 4E 45 09 65 71 75 20 67 75 2B 33 33 0D 0A LINE.equ gu+33..
022790: 20 20 3B 50 52 49 4E 54 5F 44 41 54 41 5F 43 55 ;PRINT_DATA_CU
0227A0: 52 53 4F 52 09 65 71 75 20 67 75 2B 33 36 0D 0A RSOR.equ gu+36..
0227B0: 20 20 3B 44 4C 5F 43 55 52 53 4F 52 09 65 71 75 ;DL_CURSOR.equ
0227C0: 20 67 75 2B 33 39 0D 0A 57 69 6E 64 6F 77 09 09 gu+39..Window..
0227D0: 65 71 75 20 67 75 2B 34 32 0D 0A 4D 42 4F 52 44 equ gu+42..MBORD
0227E0: 45 52 09 09 65 71 75 20 67 75 2B 34 35 0D 0A 4D ER..equ gu+45..M
0227F0: 50 52 49 4E 54 09 09 65 71 75 20 67 75 2B 34 38 PRINT..equ gu+48
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 4E E5 1D 00 C1 02 00 00 00 02 ......N.........
022820: 1D 00 C2 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022830: 1D 00 C4 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022840: 1D 00 C6 02 00 00 00 02 1D 00 C7 02 00 00 00 02 ................
022850: 1D 00 C8 02 00 00 00 02 1D 00 C9 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 0D 0A 4D 43 55 52 53 4F 52 09 09 65 71 75 20 67 ..MCURSOR..equ g
022910: 75 2B 35 31 0D 0A 4D 45 4E 55 5F 43 55 52 53 4F u+51..MENU_CURSO
022920: 52 09 65 71 75 20 67 75 2B 35 34 0D 0A 48 4F 54 R.equ gu+54..HOT
022930: 4B 45 59 53 09 09 65 71 75 20 67 75 2B 35 37 0D KEYS..equ gu+57.
022940: 0A 4D 5F 50 52 49 4E 54 43 55 52 09 65 71 75 20 .M_PRINTCUR.equ
022950: 67 75 2B 36 30 0D 0A 57 49 4E 44 4F 57 5F 57 49 gu+60..WINDOW_WI
022960: 50 45 09 65 71 75 20 67 75 2B 36 33 0D 0A 57 49 PE.equ gu+63..WI
022970: 4E 44 4F 57 5F 50 41 47 45 09 65 71 75 20 67 75 NDOW_PAGE.equ gu
022980: 2B 36 36 0D 0A 0D 0A 0D 0A 0D 0A 3B 41 4E 53 49 +66........;ANSI
022990: 0D 0A 52 4C 5F 53 45 54 5F 4F 46 46 53 45 54 09 ..RL_SET_OFFSET.
0229A0: 65 71 75 20 67 75 2B 36 39 0D 0A 52 45 53 45 54 equ gu+69..RESET
0229B0: 5F 41 4E 53 49 09 65 71 75 20 67 75 2B 37 32 0D _ANSI.equ gu+72.
0229C0: 0A 53 45 54 5F 41 4E 53 49 09 65 71 75 20 67 75 .SET_ANSI.equ gu
0229D0: 2B 37 35 0D 0A 53 63 72 65 65 6E 42 6C 61 6E 6B +75..ScreenBlank
0229E0: 09 65 71 75 20 67 75 2B 37 38 0D 0A 42 75 66 66 .equ gu+78..Buff
0229F0: 65 72 42 6C 61 6E 6B 09 65 71 75 20 67 75 2B 38 erBlank.equ gu+8
022A00: 31 0D 0A 41 4E 53 49 5F 4F 46 46 09 65 71 75 20 1..ANSI_OFF.equ
022A10: 67 75 2B 38 34 0D 0A 41 4E 53 49 5F 4F 4E 09 09 gu+84..ANSI_ON..
022A20: 65 71 75 20 67 75 2B 38 37 0D 0A 41 6C 6C 4F 66 equ gu+87..AllOf
022A30: 66 09 09 65 71 75 20 67 75 2B 39 30 0D 0A 0D 0A f..equ gu+90....
022A40: 0D 0A 3B 54 65 78 74 73 79 73 0D 0A 0D 0A 4E 55 ..;Textsys....NU
022A50: 4D 42 45 52 38 09 09 65 71 75 20 67 75 2B 39 33 MBER8..equ gu+93
022A60: 0D 0A 50 55 4C 4C 5F 50 52 49 4E 54 09 65 71 75 ..PULL_PRINT.equ
022A70: 20 67 75 2B 39 36 0D 0A 57 72 69 74 65 5F 43 68 gu+96..Write_Ch
022A80: 61 72 09 65 71 75 20 67 75 2B 39 39 0D 0A 53 63 ar.equ gu+99..Sc
022A90: 72 65 65 6E 57 72 69 74 65 09 65 71 75 20 67 75 reenWrite.equ gu
022AA0: 2B 31 30 32 0D 0A 63 6C 73 09 09 65 71 75 20 67 +102..cls..equ g
022AB0: 75 2B 31 30 35 0D 0A 43 4C 53 5F 73 63 72 65 65 u+105..CLS_scree
022AC0: 6E 09 65 71 75 20 67 75 2B 31 30 38 0D 0A 2E 54 n.equ gu+108...T
022AD0: 45 58 54 09 09 65 71 75 20 67 75 2B 31 31 31 0D EXT..equ gu+111.
022AE0: 0A 43 48 41 52 09 09 65 71 75 20 67 75 2B 31 31 .CHAR..equ gu+11
022AF0: 34 0D 0A 41 6E 73 69 43 68 61 72 09 65 71 75 20 4..AnsiChar.equ
022B00: 67 75 2B 31 31 37 0D 0A 43 55 52 53 4F 52 09 09 gu+117..CURSOR..
022B10: 65 71 75 20 67 75 2B 31 32 30 0D 0A 43 45 4C 4C equ gu+120..CELL
022B20: 32 09 09 65 71 75 20 67 75 2B 31 32 33 0D 0A 47 2..equ gu+123..G
022B30: 65 74 41 64 64 72 65 73 73 09 65 71 75 20 67 75 etAddress.equ gu
022B40: 2B 31 32 36 0D 0A 53 43 52 5F 41 44 44 52 45 53 +126..SCR_ADDRES
022B50: 53 09 65 71 75 20 67 75 2B 31 32 39 0D 0A 43 6C S.equ gu+129..Cl
022B60: 65 61 72 5F 6B 65 79 73 09 65 71 75 20 67 75 2B ear_keys.equ gu+
022B70: 31 33 32 0D 0A 41 4E 53 49 54 45 58 54 09 65 71 132..ANSITEXT.eq
022B80: 75 20 67 75 2B 31 33 35 0D 0A 59 45 53 4E 4F 09 u gu+135..YESNO.
022B90: 09 65 71 75 20 67 75 2B 31 33 38 0D 0A 4B 45 59 .equ gu+138..KEY
022BA0: 49 4E 50 09 09 65 71 75 20 67 75 2B 31 34 31 0D INP..equ gu+141.
022BB0: 0A 49 4E 50 55 54 4C 49 4E 45 09 65 71 75 20 67 .INPUTLINE.equ g
022BC0: 75 2B 31 34 34 0D 0A 49 4E 50 55 54 4C 49 4E 45 u+144..INPUTLINE
022BD0: 32 09 65 71 75 20 67 75 2B 31 34 37 0D 0A 4B 65 2.equ gu+147..Ke
022BE0: 79 5F 69 6E 70 75 74 32 09 65 71 75 20 67 75 2B y_input2.equ gu+
022BF0: 31 35 30 0D 0A 4B 45 59 5F 4C 49 4E 45 09 65 71 150..KEY_LINE.eq
022C00: 75 20 67 75 2B 31 35 33 0D 0A 44 45 43 38 09 09 u gu+153..DEC8..
022C10: 65 71 75 20 67 75 2B 31 35 36 0D 0A 44 45 43 31 equ gu+156..DEC1
022C20: 36 09 09 65 71 75 20 67 75 2B 31 35 39 0D 0A 49 6..equ gu+159..I
022C30: 6E 76 65 72 73 65 5F 6C 69 6E 65 09 65 71 75 20 nverse_line.equ
022C40: 67 75 2B 31 36 32 0D 0A 4E 45 58 54 42 59 54 45 gu+162..NEXTBYTE
022C50: 09 65 71 75 20 67 75 2B 31 36 35 0D 0A 4E 45 58 .equ gu+165..NEX
022C60: 54 4C 49 4E 45 09 65 71 75 20 67 75 2B 31 36 38 TLINE.equ gu+168
022C70: 0D 0A 4E 55 4D 42 45 52 31 36 09 65 71 75 20 67 ..NUMBER16.equ g
022C80: 75 2B 31 37 31 0D 0A 4D 55 4C 54 49 50 4C 59 5F u+171..MULTIPLY_
022C90: 44 45 42 43 09 65 71 75 20 67 75 2B 31 37 34 0D DEBC.equ gu+174.
022CA0: 0A 44 49 56 49 44 45 5F 48 4C 44 45 09 65 71 75 .DIVIDE_HLDE.equ
022CB0: 20 67 75 2B 31 37 37 0D 0A 68 65 78 09 09 65 71 gu+177..hex..eq
022CC0: 75 20 67 75 2B 31 38 30 0D 0A 0D 0A 69 6E 76 65 u gu+180....inve
022CD0: 72 73 65 09 09 65 71 75 20 67 75 2B 31 38 33 0D rse..equ gu+183.
022CE0: 0A 73 65 74 5F 6A 6A 63 68 61 6E 67 65 09 65 71 .set_jjchange.eq
022CF0: 75 20 67 75 2B 31 38 36 0D 0A 70 75 6C 6C 6A 70 u gu+186..pulljp
022D00: 09 09 65 71 75 20 67 75 2B 31 38 39 0D 0A 77 69 ..equ gu+189..wi
022D10: 6E 72 65 74 09 09 65 71 75 20 67 75 2B 31 39 32 nret..equ gu+192
022D20: 0D 0A 2E 63 6C 65 61 72 5F 42 75 66 09 65 71 75 ...clear_Buf.equ
022D30: 20 67 75 2B 31 39 35 0D 0A 53 43 52 5F 42 75 66 gu+195..SCR_Buf
022D40: 5F 4F 4E 09 65 71 75 20 67 75 2B 31 39 38 0D 0A _ON.equ gu+198..
022D50: 53 43 52 5F 42 75 66 5F 4F 46 46 09 65 71 75 20 SCR_Buf_OFF.equ
022D60: 67 75 2B 32 30 31 0D 0A 2E 47 65 74 43 68 61 72 gu+201...GetChar
022D70: 61 63 74 65 72 09 65 71 75 20 67 75 2B 32 30 34 acter.equ gu+204
022D80: 0D 0A 57 61 69 74 5F 66 6C 79 09 65 71 75 20 67 ..Wait_fly.equ g
022D90: 75 2B 32 30 37 0D 0A 63 65 6C 6C 09 09 65 71 75 u+207..cell..equ
022DA0: 20 67 75 2B 32 31 30 0D 0A 46 57 5F 6D 75 6C 74 gu+210..FW_mult
022DB0: 31 36 09 65 71 75 20 67 75 2B 32 31 33 0D 0A 46 16.equ gu+213..F
022DC0: 57 5F 64 69 76 69 64 65 31 36 09 65 71 75 20 67 W_divide16.equ g
022DD0: 75 2B 32 31 36 0D 0A 46 57 5F 4D 6F 64 31 36 09 u+216..FW_Mod16.
022DE0: 65 71 75 20 67 75 2B 32 31 39 0D 0A 46 57 5F 43 equ gu+219..FW_C
022DF0: 6F 6D 70 31 36 09 65 71 75 20 67 75 2B 32 32 32 omp16.equ gu+222
022E00: 0D 0A 46 57 5F 54 65 73 74 48 4C 09 65 71 75 20 ..FW_TestHL.equ
022E10: 67 75 2B 32 32 35 0D 0A 61 6E 79 6B 65 79 09 09 gu+225..anykey..
022E20: 65 71 75 20 67 75 2B 32 32 38 0D 0A 70 61 75 73 equ gu+228..paus
022E30: 65 33 30 30 09 65 71 75 20 67 75 2B 32 33 31 0D e300.equ gu+231.
022E40: 0A 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B .;++++++++++++++
022E50: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
022E60: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B ++++++++++++++++
022E70: 2B 2B 2B 2B 2B 2B 2B 2B 2B 0D 0A 0D 0A 2E 50 52 +++++++++.....PR
022E80: 4F 47 52 41 4D 5F 53 54 41 52 54 0D 0A 09 4C 44 OGRAM_START...LD
022E90: 20 28 53 54 41 52 54 5F 53 54 41 43 4B 29 2C 53 (START_STACK),S
022EA0: 50 0D 0A 09 63 61 6C 6C 20 49 6E 69 74 5F 50 72 P...call Init_Pr
022EB0: 6F 67 72 61 6D 0D 0A 09 63 61 6C 6C 20 6E 65 77 ogram...call new
022EC0: 5F 73 74 61 72 74 0D 0A 0D 0A 0D 0A 2E 4E 45 57 _start.......NEW
022ED0: 5F 53 54 41 52 54 09 09 09 3B 49 46 20 54 4F 54 _START...;IF TOT
022EE0: 41 4C 20 52 45 53 45 54 20 54 48 45 4E 20 53 54 AL RESET THEN ST
022EF0: 41 52 54 20 48 45 52 45 21 0D 0A 09 58 4F 52 20 ART HERE!...XOR
022F00: 41 0D 0A 20 20 20 20 20 20 20 20 63 61 6C 6C 20 A.. call
022F10: 73 65 74 5F 6A 6A 63 68 61 6E 67 65 09 3B 65 6E set_jjchange.;en
022F20: 61 62 6C 65 20 63 75 72 73 6F 72 0D 0A 09 4C 44 able cursor...LD
022F30: 20 48 4C 2C 28 44 59 29 0D 0A 09 4C 44 20 28 59 HL,(DY)...LD (Y
022F40: 29 2C 48 4C 09 09 3B 73 65 74 20 63 75 72 73 6F ),HL..;set curso
022F50: 72 0D 0A 2E 6D 61 69 6E 5F 6C 6F 6F 70 31 0D 0A r...main_loop1..
022F60: 09 63 61 6C 6C 20 74 61 6C 6B 69 6E 70 0D 0A 09 .call talkinp...
022F70: 63 61 6C 6C 20 74 61 6C 6B 6F 75 74 0D 0A 09 63 call talkout...c
022F80: 70 20 26 65 30 0D 0A 09 63 61 6C 6C 20 7A 2C 64 p &e0...call z,d
022F90: 61 74 61 32 0D 0A 09 6A 70 20 6D 61 69 6E 5F 6C ata2...jp main_l
022FA0: 6F 6F 70 31 0D 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D oop1......;-----
022FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
022FE0: 2E 54 41 4C 4B 49 4E 50 0D 0A 09 43 41 4C 4C 20 .TALKINP...CALL
022FF0: 49 4E 50 55 54 09 09 3B 72 65 63 65 76 65 20 63 INPUT..;receve c
023000: 68 61 72 0D 0A 20 09 72 65 74 20 4E 43 09 09 3B har.. .ret NC..;
023010: 6E 6F 20 63 68 61 72 20 74 68 65 6E 20 72 65 61 no char then rea
023020: 64 20 6B 65 79 62 6F 61 72 64 0D 0A 09 4C 44 20 d keyboard...LD
023030: 42 2C 43 68 61 72 49 6E 54 61 62 6C 65 2F 26 31 B,CharInTable/&1
023040: 30 30 0D 0A 09 4C 44 20 43 2C 41 0D 0A 09 4C 44 00...LD C,A...LD
023050: 20 41 2C 28 42 43 29 0D 0A 0D 0A 09 43 41 4C 4C A,(BC).....CALL
023060: 20 53 43 52 45 45 4E 57 52 49 54 45 09 3B 70 72 SCREENWRITE.;pr
023070: 69 6E 74 20 63 68 61 72 0D 0A 09 6A 70 20 45 63 int char...jp Ec
023080: 68 6F 73 5F 6F 75 74 0D 0A 0D 0A 3B 2D 2D 2D 2D hos_out....;----
023090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0230A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0230B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 54 ------------...T
0230C0: 41 4C 4B 6F 75 74 0D 0A 09 43 41 4C 4C 20 26 42 ALKout...CALL &B
0230D0: 42 31 42 09 09 3B 72 65 61 64 20 63 68 61 72 0D B1B..;read char.
0230E0: 0A 09 72 65 74 20 4E 43 09 09 09 3B 69 66 20 6E ..ret NC...;if n
0230F0: 6F 20 63 68 61 72 20 74 68 65 6E 20 72 65 61 64 o char then read
023100: 20 62 75 66 66 65 72 0D 0A 09 43 50 20 26 45 30 buffer...CP &E0
023110: 0D 0A 09 72 65 74 20 7A 09 09 09 3B 70 75 6C 6C ...ret z...;pull
023120: 20 64 6F 77 6E 20 6C 69 6E 65 20 69 66 20 43 4F down line if CO
023130: 50 59 20 70 72 65 73 73 65 64 0D 0A 09 63 61 6C PY pressed...cal
023140: 6C 20 76 74 31 30 30 5F 6F 75 74 09 09 3B 56 54 l vt100_out..;VT
023150: 31 30 30 20 6B 65 79 73 0D 0A 09 09 09 09 3B 3C 100 keys......;<
023160: 3C 20 61 64 64 20 68 65 72 65 20 63 61 70 74 75 < add here captu
023170: 72 65 20 77 69 6E 64 6F 77 0D 0A 09 4C 44 20 44 re window...LD D
023180: 2C 43 68 61 72 4F 75 74 54 61 62 6C 65 2F 26 31 ,CharOutTable/&1
023190: 30 30 0D 0A 09 4C 44 20 45 2C 41 0D 0A 09 0D 0A 00...LD E,A.....
0231A0: 09 6C 64 20 61 2C 63 0D 0A 09 6F 72 20 61 0D 0A .ld a,c...or a..
0231B0: 09 72 65 74 20 6E 7A 09 3B 20 74 68 65 20 6C 61 .ret nz.; the la
0231C0: 73 74 20 6B 65 79 73 20 77 65 72 65 20 76 74 31 st keys were vt1
0231D0: 30 30 21 0D 0A 0D 0A 09 4C 44 20 41 2C 28 44 45 00!.....LD A,(DE
0231E0: 29 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 09 )...CALL OUTPUT.
0231F0: 09 3B 6F 75 74 70 75 74 20 63 68 61 72 0D 0A 09 .;output char...
023200: 6A 70 20 45 63 68 6F 73 5F 69 6E 0D 0A 0D 0A 3B jp Echos_in....;
023210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023240: 2D 0D 0A 2E 45 63 68 6F 73 5F 69 6E 0D 0A 09 63 -...Echos_in...c
023250: 61 6C 6C 20 4A 4C 4F 43 41 4C 5F 45 43 48 4F 0D all JLOCAL_ECHO.
023260: 0A 09 43 50 20 38 0D 0A 09 63 61 6C 6C 20 5A 2C ..CP 8...call Z,
023270: 4A 52 45 4D 4F 54 45 5F 44 45 4C 0D 0A 09 43 50 JREMOTE_DEL...CP
023280: 20 31 33 0D 0A 09 6A 70 20 5A 2C 4A 52 45 4D 4F 13...jp Z,JREMO
023290: 54 45 5F 4C 46 09 3B 65 63 68 6F 0D 0A 09 0D 0A TE_LF.;echo.....
0232A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
0232B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0232C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0232D0: 2D 0D 0A 2E 45 63 68 6F 73 5F 6F 75 74 0D 0A 09 -...Echos_out...
0232E0: 63 61 6C 6C 20 4A 52 45 4D 4F 54 45 5F 45 43 48 call JREMOTE_ECH
0232F0: 4F 0D 0A 20 20 20 20 20 20 20 20 43 50 20 38 0D O.. CP 8.
023300: 0A 09 63 61 6C 6C 20 5A 2C 4A 4C 4F 43 41 4C 5F ..call Z,JLOCAL_
023310: 44 45 4C 0D 0A 09 43 50 20 31 33 0D 0A 09 6A 70 DEL...CP 13...jp
023320: 20 5A 2C 4A 4C 4F 43 41 4C 5F 4C 46 09 3B 65 63 Z,JLOCAL_LF.;ec
023330: 68 6F 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ho..;-----------
023340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023360: 2D 2D 2D 2D 2D 2D 0D 0A 2E 56 54 31 30 30 5F 6F ------...VT100_o
023370: 75 74 09 3B 20 69 66 20 63 3D 30 20 74 68 65 6E ut.; if c=0 then
023380: 20 6E 6F 74 20 76 74 31 30 30 20 6B 65 79 73 0D not vt100 keys.
023390: 0A 09 4C 44 20 43 2C 22 41 22 09 09 3B 55 50 0D ..LD C,"A"..;UP.
0233A0: 0A 09 43 50 20 26 46 34 0D 0A 09 6A 70 20 5A 2C ..CP &F4...jp Z,
0233B0: 56 54 31 30 30 5F 43 55 52 0D 0A 09 69 6E 63 20 VT100_CUR...inc
0233C0: 43 09 09 09 3B 42 20 2D 20 44 4F 57 4E 0D 0A 09 C...;B - DOWN...
0233D0: 43 50 20 26 46 35 0D 0A 09 6A 70 20 5A 2C 56 54 CP &F5...jp Z,VT
0233E0: 31 30 30 5F 43 55 52 0D 0A 09 69 6E 63 20 43 09 100_CUR...inc C.
0233F0: 09 09 3B 43 20 52 49 47 48 54 0D 0A 09 43 50 20 ..;C RIGHT...CP
023400: 26 46 37 0D 0A 09 6A 70 20 5A 2C 56 54 31 30 30 &F7...jp Z,VT100
023410: 5F 43 55 52 0D 0A 09 49 4E 43 20 43 09 09 09 3B _CUR...INC C...;
023420: 44 20 4C 45 46 54 0D 0A 09 43 50 20 26 46 36 0D D LEFT...CP &F6.
023430: 0A 09 6A 70 20 5A 2C 56 54 31 30 30 5F 43 55 52 ..jp Z,VT100_CUR
023440: 0D 0A 09 6C 64 20 63 2C 30 0D 0A 09 72 65 74 0D ...ld c,0...ret.
023450: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
023460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023480: 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 4A 4C 4F 43 41 4C -------...JLOCAL
023490: 5F 45 43 48 4F 0D 0A 09 52 45 54 0D 0A 09 43 41 _ECHO...RET...CA
0234A0: 4C 4C 20 53 43 52 45 45 4E 57 52 49 54 45 0D 0A LL SCREENWRITE..
0234B0: 09 43 50 20 38 0D 0A 09 4A 52 20 5A 2C 4A 4C 4F .CP 8...JR Z,JLO
0234C0: 43 41 4C 5F 44 45 4C 0D 0A 20 20 20 20 20 20 20 CAL_DEL..
0234D0: 20 43 50 20 31 33 0D 0A 09 4A 52 20 5A 2C 4A 4C CP 13...JR Z,JL
0234E0: 4F 43 41 4C 5F 4C 46 0D 0A 20 20 20 20 20 20 20 OCAL_LF..
0234F0: 20 52 45 54 0D 0A 0D 0A 2E 4A 4C 4F 43 41 4C 5F RET.....JLOCAL_
023500: 44 45 4C 0D 0A 09 52 45 54 0D 0A 09 4C 44 20 41 DEL...RET...LD A
023510: 2C 22 20 22 0D 0A 09 43 41 4C 4C 20 53 43 52 45 ," "...CALL SCRE
023520: 45 4E 57 52 49 54 45 0D 0A 09 4C 44 20 41 2C 38 ENWRITE...LD A,8
023530: 0D 0A 09 4A 50 20 53 43 52 45 45 4E 57 52 49 54 ...JP SCREENWRIT
023540: 45 0D 0A 0D 0A 2E 4A 4C 4F 43 41 4C 5F 4C 46 0D E.....JLOCAL_LF.
023550: 0A 09 52 45 54 0D 0A 09 4C 44 20 41 2C 31 30 0D ..RET...LD A,10.
023560: 0A 09 43 41 4C 4C 20 53 43 52 45 45 4E 57 52 49 ..CALL SCREENWRI
023570: 54 45 0D 0A 09 4C 44 20 41 2C 31 33 0D 0A 09 52 TE...LD A,13...R
023580: 45 54 0D 0A 0D 0A 4A 52 45 4D 4F 54 45 5F 45 43 ET....JREMOTE_EC
023590: 48 4F 0D 0A 20 20 20 20 20 20 20 20 52 45 54 0D HO.. RET.
0235A0: 0A 09 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 ..CALL OUTPUT...
0235B0: 43 50 20 38 0D 0A 09 4A 52 20 5A 2C 4A 52 45 4D CP 8...JR Z,JREM
0235C0: 4F 54 45 5F 44 45 4C 0D 0A 09 43 50 20 31 33 0D OTE_DEL...CP 13.
0235D0: 0A 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 4A 52 . JR Z,JR
0235E0: 45 4D 4F 54 45 5F 4C 46 0D 0A 09 52 45 54 0D 0A EMOTE_LF...RET..
0235F0: 2E 4A 52 45 4D 4F 54 45 5F 44 45 4C 0D 0A 09 52 .JREMOTE_DEL...R
023600: 45 54 0D 0A 09 4C 44 20 41 2C 22 20 22 0D 0A 09 ET...LD A," "...
023610: 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 4C 44 CALL OUTPUT...LD
023620: 20 41 2C 38 0D 0A 09 4A 50 20 4F 55 54 50 55 54 A,8...JP OUTPUT
023630: 0D 0A 2E 4A 52 45 4D 4F 54 45 5F 4C 46 0D 0A 09 ...JREMOTE_LF...
023640: 52 45 54 0D 0A 09 4C 44 20 41 2C 31 30 0D 0A 09 RET...LD A,10...
023650: 43 41 4C 4C 20 4F 55 54 50 55 54 0D 0A 09 4C 44 CALL OUTPUT...LD
023660: 20 41 2C 31 33 0D 0A 09 52 45 54 0D 0A 0D 0A 3B A,13...RET....;
023670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0236A0: 2D 2D 2D 2D 0D 0A 2E 56 54 31 30 30 5F 43 55 52 ----...VT100_CUR
0236B0: 0D 0A 09 4C 44 20 41 2C 32 37 0D 0A 09 43 41 4C ...LD A,27...CAL
0236C0: 4C 20 4F 55 54 50 55 54 0D 0A 09 4C 44 20 41 2C L OUTPUT...LD A,
0236D0: 22 5B 22 0D 0A 09 43 41 4C 4C 20 4F 55 54 50 55 "["...CALL OUTPU
0236E0: 54 0D 0A 09 4C 44 20 41 2C 43 0D 0A 09 6A 70 20 T...LD A,C...jp
0236F0: 4F 55 54 50 55 54 0D 0A 09 09 09 3B 73 65 6E 64 OUTPUT.....;send
023700: 20 6F 75 74 20 56 54 31 30 30 20 63 6F 64 65 73 out VT100 codes
023710: 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ....;-----------
023720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 45 58 -----------...EX
023750: 50 41 4E 44 5F 4B 45 59 53 0D 0A 09 53 55 42 20 PAND_KEYS...SUB
023760: 31 32 38 0D 0A 09 4C 44 20 4C 2C 41 0D 0A 09 4C 128...LD L,A...L
023770: 44 20 48 2C 30 0D 0A 09 41 44 44 20 48 4C 2C 48 D H,0...ADD HL,H
023780: 4C 09 3B 32 0D 0A 09 4C 44 20 44 45 2C 45 58 50 L.;2...LD DE,EXP
023790: 41 4E 44 5F 54 41 42 4C 45 0D 0A 09 41 44 44 20 AND_TABLE...ADD
0237A0: 48 4C 2C 44 45 0D 0A 09 4C 44 20 45 2C 28 48 4C HL,DE...LD E,(HL
0237B0: 29 3A 49 4E 43 20 48 4C 3A 4C 44 20 44 2C 28 48 ):INC HL:LD D,(H
0237C0: 4C 29 0D 0A 09 45 58 20 48 4C 2C 44 45 0D 0A 2E L)...EX HL,DE...
0237D0: 45 58 4B 59 31 09 4C 44 20 41 2C 28 48 4C 29 0D EXKY1.LD A,(HL).
0237E0: 0A 09 49 4E 43 20 48 4C 0D 0A 09 4F 52 20 41 0D ..INC HL...OR A.
0237F0: 0A 09 72 65 74 20 5A 0D 0A 09 43 41 4C 4C 20 4F ..ret Z...CALL O
023800: 55 54 50 55 54 09 09 3B 6F 75 74 70 75 74 20 63 UTPUT..;output c
023810: 68 61 72 0D 0A 09 43 41 4C 4C 20 45 63 68 6F 73 har...CALL Echos
023820: 5F 4F 75 74 0D 0A 09 4A 50 20 45 58 4B 59 31 0D _Out...JP EXKY1.
023830: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .;--------------
023840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023860: 2D 2D 2D 0D 0A 2E 45 53 43 41 50 45 0D 0A 09 43 ---...ESCAPE...C
023870: 41 4C 4C 20 26 42 42 30 30 09 09 3B 4B 4D 20 49 ALL &BB00..;KM I
023880: 4E 49 54 20 2D 20 6A 75 73 74 20 63 72 61 73 68 NIT - just crash
023890: 20 6F 75 74 21 21 21 21 0D 0A 09 4C 44 20 41 2C out!!!!...LD A,
0238A0: 32 0D 0A 09 43 41 4C 4C 20 26 42 43 30 45 0D 0A 2...CALL &BC0E..
0238B0: 20 20 20 20 20 20 20 09 4C 44 20 53 50 2C 28 53 .LD SP,(S
0238C0: 54 41 52 54 5F 53 54 41 43 4B 29 0D 0A 09 4A 50 TART_STACK)...JP
0238D0: 20 4F 46 46 49 4E 54 45 52 55 50 54 0D 0A 3B 2D OFFINTERUPT..;-
0238E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0238F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023910: 2D 0D 0A 0D 0A 2E 44 41 54 41 32 0D 0A 09 58 4F -.....DATA2...XO
023920: 52 20 41 0D 0A 09 4C 44 20 28 43 4F 4D 29 2C 41 R A...LD (COM),A
023930: 09 09 3B 72 65 73 65 74 20 64 61 74 61 6C 69 6E ..;reset datalin
023940: 65 20 20 0D 0A 09 4C 44 20 28 50 55 4C 4C 5F 53 e ...LD (PULL_S
023950: 54 41 43 4B 29 2C 53 50 09 3B 73 61 76 65 20 73 TACK),SP.;save s
023960: 74 61 63 6B 20 6A 75 73 74 20 69 6E 20 63 61 73 tack just in cas
023970: 65 0D 0A 09 43 41 4C 4C 20 41 6E 73 69 5F 6F 66 e...CALL Ansi_of
023980: 66 09 09 3B 72 65 73 65 74 20 61 6E 73 69 2F 72 f..;reset ansi/r
023990: 65 6D 6F 76 65 20 63 75 72 73 6F 72 0D 0A 09 4C emove cursor...L
0239A0: 44 20 48 4C 2C 28 59 29 0D 0A 09 4C 44 20 28 44 D HL,(Y)...LD (D
0239B0: 59 29 2C 48 4C 09 09 3B 73 61 76 65 20 78 2C 79 Y),HL..;save x,y
0239C0: 0D 0A 09 43 41 4C 4C 20 44 41 54 41 4C 49 4E 45 ...CALL DATALINE
0239D0: 09 09 3B 70 75 6C 6C 20 64 6F 77 6E 20 64 61 74 ..;pull down dat
0239E0: 61 6C 69 6E 65 0D 0A 09 43 41 4C 4C 20 41 6E 73 aline...CALL Ans
0239F0: 69 5F 6F 6E 09 09 3B 73 65 74 20 61 6E 73 69 20 i_on..;set ansi
023A00: 62 61 63 6B 20 74 6F 20 6E 6F 72 6D 61 6C 0D 0A back to normal..
023A10: 09 4C 44 20 48 4C 2C 28 44 59 29 0D 0A 09 4C 44 .LD HL,(DY)...LD
023A20: 20 28 59 29 2C 48 4C 0D 0A 09 63 61 6C 6C 20 50 (Y),HL...call P
023A30: 6C 61 63 65 5F 43 75 72 73 6F 72 09 3B 70 6C 61 lace_Cursor.;pla
023A40: 63 65 20 74 68 65 20 63 75 72 73 6F 72 2F 72 65 ce the cursor/re
023A50: 74 0D 0A 09 78 6F 72 20 61 0D 0A 09 72 65 74 0D t...xor a...ret.
023A60: 0A 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .....;----------
023A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023A80: 2D 2D 2D 2D 2D 0D 0A 3B 09 55 53 45 20 41 20 44 -----..;.USE A D
023A90: 41 54 41 4C 49 4E 45 0D 0A 3B 09 65 6E 74 72 79 ATALINE..;.entry
023AA0: 20 48 4C 3D 61 64 64 72 65 73 73 20 6F 66 20 69 HL=address of i
023AB0: 6E 66 6F 0D 0A 3B 09 65 78 69 74 20 3F 3F 09 0D nfo..;.exit ??..
023AC0: 0A 3B 09 75 73 65 64 20 3F 3F 0D 0A 3B 2D 2D 2D .;.used ??..;---
023AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A ------------....
023AF0: 2E 44 41 54 41 4C 49 4E 45 09 09 09 09 3B 6E 6F .DATALINE....;no
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 4E E5 1E 00 C1 02 00 00 00 02 ......N.........
023B20: 1E 00 C2 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B30: 1E 00 C4 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B40: 1E 00 C6 02 00 00 00 02 1E 00 C7 02 00 00 00 02 ................
023B50: 1E 00 C8 02 00 00 00 02 1E 00 C9 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 77 20 61 75 74 6F 6D 61 74 69 63 6C 79 20 66 6F w automaticly fo
023C10: 72 63 65 73 20 70 75 6C 6C 64 6F 77 6E 21 0D 0A rces pulldown!..
023C20: 09 43 41 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 .CALL PRINT_DATA
023C30: 4C 49 4E 45 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D LINE...LD A,(COM
023C40: 29 0D 0A 09 43 41 4C 4C 20 44 4C 5F 43 55 52 53 )...CALL DL_CURS
023C50: 4F 52 09 09 09 3B 70 72 69 6E 74 20 63 75 72 73 OR...;print curs
023C60: 6F 72 0D 0A 2E 45 4E 54 0D 0A 09 4C 44 20 41 2C or...ENT...LD A,
023C70: 28 43 4F 4D 29 0D 0A 09 4C 44 20 4C 2C 41 0D 0A (COM)...LD L,A..
023C80: 09 4C 44 20 48 2C 30 0D 0A 09 41 44 44 20 48 4C .LD H,0...ADD HL
023C90: 2C 48 4C 0D 0A 09 41 44 44 20 48 4C 2C 48 4C 0D ,HL...ADD HL,HL.
023CA0: 0A 09 49 4E 43 20 48 4C 0D 0A 09 49 4E 43 20 48 ..INC HL...INC H
023CB0: 4C 09 09 09 09 3B 68 6C 20 70 6F 69 6E 74 73 20 L....;hl points
023CC0: 74 6F 20 6A 70 0D 0A 09 4C 44 20 44 45 2C 4D 41 to jp...LD DE,MA
023CD0: 49 4E 5F 53 54 41 52 54 0D 0A 09 41 44 44 20 48 IN_START...ADD H
023CE0: 4C 2C 44 45 0D 0A 09 4C 44 20 45 2C 28 48 4C 29 L,DE...LD E,(HL)
023CF0: 0D 0A 09 49 4E 43 20 48 4C 0D 0A 09 4C 44 20 44 ...INC HL...LD D
023D00: 2C 28 48 4C 29 09 09 09 0D 0A 09 09 09 09 3B 69 ,(HL).........;i
023D10: 78 3D 61 64 64 72 65 73 73 20 74 6F 20 6A 75 6D x=address to jum
023D20: 70 2F 63 61 6C 6C 0D 0A 09 50 55 53 48 20 44 45 p/call...PUSH DE
023D30: 0D 0A 09 50 4F 50 20 49 58 20 20 20 20 20 20 20 ...POP IX
023D40: 20 0D 0A 09 0D 0A 09 4C 44 20 28 49 58 2B 31 30 ......LD (IX+10
023D50: 29 2C 30 09 09 3B 52 45 53 45 54 20 43 55 52 53 ),0..;RESET CURS
023D60: 4F 52 0D 0A 09 43 41 4C 4C 20 50 55 4C 4C 44 4F OR...CALL PULLDO
023D70: 57 4E 0D 0A 0D 0A 09 4A 50 20 43 2C 44 4C 5F 4C WN.....JP C,DL_L
023D80: 45 46 54 52 49 47 48 54 0D 0A 09 43 50 20 26 46 EFTRIGHT...CP &F
023D90: 46 0D 0A 09 4A 52 20 5A 2C 45 4E 54 20 0D 0A 20 F...JR Z,ENT ..
023DA0: 20 20 20 20 20 20 20 43 50 20 26 46 43 0D 0A 09 CP &FC...
023DB0: 4A 52 20 4E 5A 2C 45 4E 54 20 09 09 3B 20 49 66 JR NZ,ENT ..; If
023DC0: 20 45 73 63 20 74 68 65 6E 20 73 74 61 79 20 6F Esc then stay o
023DD0: 6E 20 6C 69 6E 65 0D 0A 0D 0A 2E 44 41 54 41 45 n line.....DATAE
023DE0: 09 4C 44 20 48 4C 2C 30 0D 0A 09 43 41 4C 4C 20 .LD HL,0...CALL
023DF0: 44 41 45 09 09 3B 65 72 61 73 65 20 64 61 74 61 DAE..;erase data
023E00: 6C 69 6E 65 0D 0A 09 4C 44 20 48 4C 2C 32 34 0D line...LD HL,24.
023E10: 0A 2E 44 41 45 09 4C 44 20 42 2C 38 30 0D 0A 09 ..DAE.LD B,80...
023E20: 4C 44 20 43 2C 31 0D 0A 09 43 41 4C 4C 20 57 49 LD C,1...CALL WI
023E30: 4E 44 4F 57 0D 0A 09 52 45 54 09 0D 0A 0D 0A 2E NDOW...RET......
023E40: 44 4C 5F 4C 45 46 54 52 49 47 48 54 0D 0A 09 43 DL_LEFTRIGHT...C
023E50: 50 20 39 0D 0A 09 43 41 4C 4C 20 5A 2C 44 4C 5F P 9...CALL Z,DL_
023E60: 52 49 47 48 54 09 3B 20 49 66 20 39 20 74 68 65 RIGHT.; If 9 the
023E70: 6E 20 6D 6F 76 65 20 72 69 67 68 74 0D 0A 09 43 n move right...C
023E80: 50 20 38 0D 0A 09 43 41 4C 4C 20 5A 2C 44 4C 5F P 8...CALL Z,DL_
023E90: 4C 45 46 54 09 09 3B 20 49 66 20 38 20 74 68 65 LEFT..; If 8 the
023EA0: 6E 20 6D 6F 76 65 20 6C 65 66 74 0D 0A 09 4C 44 n move left...LD
023EB0: 20 28 49 58 2B 31 30 29 2C 30 0D 0A 09 4A 50 20 (IX+10),0...JP
023EC0: 45 4E 54 0D 0A 0D 0A 2E 44 4C 5F 4C 45 46 54 0D ENT.....DL_LEFT.
023ED0: 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 0D 0A 09 43 ..LD A,(COM)...C
023EE0: 41 4C 4C 20 44 4C 5F 43 55 52 53 4F 52 09 09 09 ALL DL_CURSOR...
023EF0: 3B 52 45 4D 4F 56 45 20 43 55 52 53 4F 52 0D 0A ;REMOVE CURSOR..
023F00: 09 4C 44 20 41 2C 28 43 4F 4D 29 0D 0A 09 44 45 .LD A,(COM)...DE
023F10: 43 20 41 09 09 09 09 3B 49 4E 43 20 43 4F 4D 41 C A....;INC COMA
023F20: 4E 44 20 4E 55 4D 42 45 52 0D 0A 20 20 20 20 20 ND NUMBER..
023F30: 20 20 20 43 50 20 26 46 46 0D 0A 09 4A 52 20 4E CP &FF...JR N
023F40: 5A 2C 4D 4C 31 0D 0A 09 58 4F 52 20 41 0D 0A 2E Z,ML1...XOR A...
023F50: 4D 4C 31 09 4C 44 20 28 43 4F 4D 29 2C 41 0D 0A ML1.LD (COM),A..
023F60: 09 43 41 4C 4C 20 44 4C 5F 43 55 52 53 4F 52 0D .CALL DL_CURSOR.
023F70: 0A 09 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 ..XOR A..
023F80: 20 52 45 54 0D 0A 0D 0A 2E 44 4C 5F 52 49 47 48 RET.....DL_RIGH
023F90: 54 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 09 09 T...LD A,(COM)..
023FA0: 09 3B 42 41 53 49 43 4C 59 20 54 48 45 20 53 41 .;BASICLY THE SA
023FB0: 4D 45 0D 0A 09 43 41 4C 4C 20 44 4C 5F 43 55 52 ME...CALL DL_CUR
023FC0: 53 4F 52 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 SOR...LD A,(COM)
023FD0: 0D 0A 09 49 4E 43 20 41 0D 0A 09 43 50 20 36 0D ...INC A...CP 6.
023FE0: 0A 09 4A 52 20 4E 5A 2C 4D 52 31 0D 0A 20 20 20 ..JR NZ,MR1..
023FF0: 20 20 20 20 20 4C 44 20 41 2C 35 0D 0A 2E 4D 52 LD A,5...MR
024000: 31 09 4C 44 20 28 43 4F 4D 29 2C 41 0D 0A 09 43 1.LD (COM),A...C
024010: 41 4C 4C 20 44 4C 5F 43 55 52 53 4F 52 0D 0A 09 ALL DL_CURSOR...
024020: 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 52 XOR A.. R
024030: 45 54 0D 0A 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ET....;---------
024040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024050: 2D 2D 2D 2D 2D 2D 0D 0A 3B 09 50 52 49 4E 54 20 ------..;.PRINT
024060: 41 20 44 41 54 41 20 4C 49 4E 45 0D 0A 3B 09 45 A DATA LINE..;.E
024070: 4E 54 52 59 20 48 4C 3D 41 44 44 52 45 53 53 20 NTRY HL=ADDRESS
024080: 4F 46 20 49 4E 46 4F 0D 0A 3B 20 20 20 20 20 20 OF INFO..;
024090: 20 09 58 0D 0A 3B 09 09 59 0D 0A 3B 09 09 57 49 .X..;..Y..;..WI
0240A0: 44 54 48 0D 0A 3B 20 20 20 20 20 20 20 09 53 54 DTH..; .ST
0240B0: 52 49 4E 47 0D 0A 3B 09 09 4E 4F 20 4F 46 20 43 RING..;..NO OF C
0240C0: 4F 4D 4D 41 4E 44 53 0D 0A 3B 09 09 58 2C 57 49 OMMANDS..;..X,WI
0240D0: 44 54 48 2C 4A 50 0D 0A 3B 09 09 58 2C 57 49 44 DTH,JP..;..X,WID
0240E0: 54 48 2C 4A 50 09 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D TH,JP...;-------
0240F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 50 52 49 4E ---------...PRIN
024110: 54 5F 44 41 54 41 5F 43 55 52 53 4F 52 0D 0A 09 T_DATA_CURSOR...
024120: 43 41 4C 4C 20 50 52 49 4E 54 5F 44 41 54 41 4C CALL PRINT_DATAL
024130: 49 4E 45 0D 0A 09 4C 44 20 41 2C 28 43 4F 4D 29 INE...LD A,(COM)
024140: 0D 0A 09 4A 50 20 44 4C 5F 43 55 52 53 4F 52 0D ...JP DL_CURSOR.
024150: 0A 0D 0A 2E 50 52 49 4E 54 5F 44 41 54 41 4C 49 ....PRINT_DATALI
024160: 4E 45 0D 0A 09 43 41 4C 4C 20 57 41 49 54 5F 46 NE...CALL WAIT_F
024170: 4C 59 09 09 3B 54 69 6D 65 20 77 69 74 68 20 73 LY..;Time with s
024180: 63 72 65 65 6E 0D 0A 0D 0A 2E 44 4C 31 09 50 55 creen.....DL1.PU
024190: 53 48 20 42 43 0D 0A 20 20 20 20 20 20 20 20 50 SH BC.. P
0241A0: 55 53 48 20 44 45 0D 0A 09 50 55 53 48 20 48 4C USH DE...PUSH HL
0241B0: 09 09 09 3B 73 61 76 65 20 77 69 64 74 68 2C 78 ...;save width,x
0241C0: 2C 79 0D 0A 09 4C 44 20 48 4C 2C 30 0D 0A 09 4C ,y...LD HL,0...L
0241D0: 44 20 44 45 2C 54 49 4D 45 4C 49 4E 45 0D 0A 2E D DE,TIMELINE...
0241E0: 44 4C 32 09 50 55 53 48 20 48 4C 0D 0A 09 43 41 DL2.PUSH HL...CA
0241F0: 4C 4C 20 53 43 52 5F 41 44 44 52 45 53 53 09 3B LL SCR_ADDRESS.;
024200: 67 65 74 20 73 63 72 65 65 6E 20 61 64 64 72 65 get screen addre
024210: 73 73 0D 0A 20 09 4C 44 20 41 2C 28 44 45 29 0D ss.. .LD A,(DE).
024220: 0A 09 69 6E 63 20 64 65 0D 0A 09 6F 72 20 61 09 ..inc de...or a.
024230: 09 09 3B 43 4F 52 52 55 50 54 0D 0A 09 6A 72 20 ..;CORRUPT...jr
024240: 7A 2C 64 6C 70 6F 70 0D 0A 09 70 75 73 68 20 64 z,dlpop...push d
024250: 65 0D 0A 09 70 75 73 68 20 68 6C 0D 0A 20 20 20 e...push hl..
024260: 20 20 20 20 20 4C 44 20 43 2C 41 0D 0A 09 42 49 LD C,A...BI
024270: 54 20 37 2C 43 0D 0A 09 4C 44 20 48 4C 2C 44 4C T 7,C...LD HL,DL
024280: 42 55 46 09 09 3B 68 6C 3D 74 65 6D 70 20 62 75 BUF..;hl=temp bu
024290: 66 66 20 66 6F 72 20 63 68 61 72 0D 0A 09 43 41 ff for char...CA
0242A0: 4C 4C 20 5A 2C 47 45 54 43 48 41 52 41 43 54 45 LL Z,GETCHARACTE
0242B0: 52 0D 0A 09 43 41 4C 4C 20 49 4E 56 45 52 53 45 R...CALL INVERSE
0242C0: 09 09 3B 69 6E 76 65 72 73 65 20 74 65 78 74 20 ..;inverse text
0242D0: 0D 0A 20 20 20 20 20 20 20 20 45 58 20 48 4C 2C .. EX HL,
0242E0: 44 45 0D 0A 09 50 4F 50 20 48 4C 0D 0A 20 20 20 DE...POP HL..
0242F0: 20 20 20 20 20 43 41 4C 4C 20 41 4E 53 49 43 48 CALL ANSICH
024300: 41 52 09 09 3B 50 72 69 6E 74 0D 0A 09 50 4F 50 AR..;Print...POP
024310: 20 44 45 0D 0A 09 50 4F 50 20 48 4C 0D 0A 09 49 DE...POP HL...I
024320: 4E 43 20 48 0D 0A 09 4A 50 20 44 4C 32 09 0D 0A NC H...JP DL2...
024330: 2E 44 4C 50 4F 50 0D 0A 09 50 4F 50 20 48 4C 0D .DLPOP...POP HL.
024340: 0A 09 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 ..POP HL..
024350: 20 20 50 4F 50 20 44 45 0D 0A 09 50 4F 50 20 42 POP DE...POP B
024360: 43 0D 0A 09 52 45 54 0D 0A 0D 0A 0D 0A 0D 0A 3B C...RET........;
024370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024390: 2D 2D 2D 2D 0D 0A 3B 09 50 72 69 6E 74 20 43 75 ----..;.Print Cu
0243A0: 72 73 6F 72 20 6F 6E 20 64 61 74 61 6C 69 6E 65 rsor on dataline
0243B0: 0D 0A 3B 09 45 6E 74 72 79 20 41 2D 65 6E 74 72 ..;.Entry A-entr
0243C0: 79 20 6E 75 6D 62 65 72 0D 0A 3B 09 55 73 65 64 y number..;.Used
0243D0: 20 41 46 20 0D 0A 3B 09 4E 6F 74 65 20 3B 20 6D AF ..;.Note ; m
0243E0: 75 73 74 20 66 69 72 73 74 20 69 6E 74 20 61 20 ust first int a
0243F0: 6C 69 6E 65 0D 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D line..;---------
024400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 2E 44 ------------...D
024420: 4C 5F 43 55 52 53 4F 52 0D 0A 20 20 20 20 20 20 L_CURSOR..
024430: 20 20 50 55 53 48 20 48 4C 09 09 0D 0A 20 20 20 PUSH HL....
024440: 20 20 20 20 20 50 55 53 48 20 44 45 09 09 09 3B PUSH DE...;
024450: 73 61 76 65 20 72 65 67 73 0D 0A 09 4C 44 20 4C save regs...LD L
024460: 2C 41 0D 0A 09 4C 44 20 48 2C 30 0D 0A 09 41 44 ,A...LD H,0...AD
024470: 44 20 48 4C 2C 48 4C 09 09 3B 63 75 72 73 6F 72 D HL,HL..;cursor
024480: 20 6E 6F 20 2A 32 0D 0A 09 41 44 44 20 48 4C 2C no *2...ADD HL,
024490: 48 4C 09 09 3B 2A 34 0D 0A 09 4C 44 20 44 45 2C HL..;*4...LD DE,
0244A0: 4D 41 49 4E 5F 53 54 41 52 54 0D 0A 09 41 44 44 MAIN_START...ADD
0244B0: 20 48 4C 2C 44 45 09 09 3B 61 64 64 20 74 6F 20 HL,DE..;add to
0244C0: 73 74 61 72 74 20 74 6F 20 67 69 76 65 20 78 2C start to give x,
0244D0: 77 69 64 74 68 2C 6A 70 0D 0A 09 4C 44 20 44 2C width,jp...LD D,
0244E0: 28 48 4C 29 0D 0A 09 4C 44 20 45 2C 30 0D 0A 20 (HL)...LD E,0..
0244F0: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 09 INC HL...
024500: 4C 44 20 42 2C 28 48 4C 29 09 09 3B 42 3D 77 69 LD B,(HL)..;B=wi
024510: 64 74 68 0D 0A 09 45 58 20 48 4C 2C 44 45 20 20 dth...EX HL,DE
024520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 68 ;h
024530: 6C 3D 78 2C 79 0D 0A 09 43 41 4C 4C 20 49 4E 56 l=x,y...CALL INV
024540: 45 52 53 45 5F 4C 49 4E 45 09 3B 6A 75 73 74 20 ERSE_LINE.;just
024550: 74 68 61 74 21 21 0D 0A 09 50 4F 50 20 44 45 0D that!!...POP DE.
024560: 0A 09 50 4F 50 20 48 4C 0D 0A 09 52 45 54 0D 0A ..POP HL...RET..
024570: 0D 0A 0D 0A 2E 49 6E 69 74 5F 50 72 6F 67 72 61 .....Init_Progra
024580: 6D 0D 0A 2E 50 53 5F 42 59 09 43 50 20 31 0D 0A m...PS_BY.CP 1..
024590: 09 4C 44 20 41 2C 30 0D 0A 09 4A 52 20 4E 5A 2C .LD A,0...JR NZ,
0245A0: 50 53 5F 49 58 0D 0A 09 4C 44 20 41 2C 28 49 58 PS_IX...LD A,(IX
0245B0: 2B 30 29 0D 0A 2E 50 53 5F 49 58 0D 0A 09 4C 44 +0)...PS_IX...LD
0245C0: 20 28 52 53 32 33 32 5F 53 45 4C 45 43 54 29 2C (RS232_SELECT),
0245D0: 41 0D 0A 09 4C 44 20 41 2C 26 46 46 0D 0A 09 52 A...LD A,&FF...R
0245E0: 53 54 20 33 2C 53 4D 4A 50 0D 0A 2E 50 53 5F 52 ST 3,SMJP...PS_R
0245F0: 53 58 31 0D 0A 09 0D 0A 09 43 41 4C 4C 20 53 45 SX1......CALL SE
024600: 54 55 50 5F 52 53 32 33 32 09 3B 53 65 74 75 70 TUP_RS232.;Setup
024610: 20 74 68 65 20 72 73 32 33 32 20 61 63 63 6F 72 the rs232 accor
024620: 64 69 6E 67 20 74 6F 20 0D 0A 09 09 09 09 3B 77 ding to ......;w
024630: 68 61 74 20 74 79 70 65 20 69 74 20 69 73 0D 0A hat type it is..
024640: 0D 0A 09 43 41 4C 4C 20 53 4F 55 4E 44 5F 52 45 ...CALL SOUND_RE
024650: 53 45 54 0D 0A 09 4C 44 20 48 4C 2C 45 4E 54 42 SET...LD HL,ENTB
024660: 4C 4B 0D 0A 09 4C 44 20 41 2C 31 0D 0A 09 43 41 LK...LD A,1...CA
024670: 4C 4C 20 26 42 43 42 46 09 09 3B 53 45 54 20 54 LL &BCBF..;SET T
024680: 4F 4E 45 20 45 4E 56 45 4C 4F 50 45 0D 0A 0D 0A ONE ENVELOPE....
024690: 09 43 41 4C 4C 20 4B 4B 45 59 09 09 3B 20 52 45 .CALL KKEY..; RE
0246A0: 53 45 54 2F 53 45 54 20 4B 45 59 53 0D 0A 0D 0A SET/SET KEYS....
0246B0: 09 4C 44 20 41 2C 32 0D 0A 09 43 41 4C 4C 20 26 .LD A,2...CALL &
0246C0: 42 43 30 45 09 09 3B 53 65 74 20 74 6F 20 6D 6F BC0E..;Set to mo
0246D0: 64 65 20 32 0D 0A 09 63 61 6C 6C 20 73 65 74 69 de 2...call seti
0246E0: 6E 69 74 33 30 30 70 6C 75 73 0D 0A 09 43 41 4C nit300plus...CAL
0246F0: 4C 20 53 65 74 69 6E 74 65 72 75 70 74 20 09 3B L Setinterupt .;
024700: 74 75 72 6E 20 6F 6E 20 69 6E 74 65 72 75 70 74 turn on interupt
024710: 73 20 63 75 72 73 6F 72 2F 73 72 09 0D 0A 09 43 s cursor/sr....C
024720: 41 4C 4C 20 53 63 72 5F 62 75 66 5F 6F 6E 09 09 ALL Scr_buf_on..
024730: 3B 74 75 72 6E 20 6F 6E 20 62 75 66 66 65 72 73 ;turn on buffers
024740: 0D 0A 09 43 41 4C 4C 20 43 6C 6F 63 6B 5F 52 65 ...CALL Clock_Re
024750: 73 0D 0A 09 43 41 4C 4C 20 63 6C 73 5F 73 63 72 s...CALL cls_scr
024760: 65 65 6E 09 09 3B 63 6C 65 61 72 20 73 63 72 65 een..;clear scre
024770: 65 6E 20 61 6E 64 20 62 75 66 66 65 72 0D 0A 09 en and buffer...
024780: 43 41 4C 4C 20 72 65 73 65 74 5F 61 6E 73 69 09 CALL reset_ansi.
024790: 09 3B 73 65 74 20 61 6E 73 69 20 74 6F 20 6E 6F .;set ansi to no
0247A0: 72 6D 61 6C 2B 73 61 76 65 20 76 61 72 73 20 69 rmal+save vars i
0247B0: 6E 20 63 61 73 65 0D 0A 09 09 09 09 3B 6F 66 20 n case......;of
0247C0: 63 61 6C 6C 20 74 6F 20 73 65 74 5F 61 6E 73 69 call to set_ansi
0247D0: 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 20 20 20 ...LD A,&C9..
0247E0: 20 20 20 20 20 63 61 6C 6C 20 73 65 74 5F 6A 6A call set_jj
0247F0: 63 68 61 6E 67 65 09 3B 63 75 72 73 6F 72 20 74 change.;cursor t
024800: 6F 74 61 6C 79 20 64 69 73 61 62 6C 65 64 0D 0A otaly disabled..
024810: 0D 0A 09 4C 44 20 48 4C 2C 4C 4F 47 4F 4E 0D 0A ...LD HL,LOGON..
024820: 09 43 41 4C 4C 20 41 4E 53 49 54 45 58 54 0D 0A .CALL ANSITEXT..
024830: 0D 0A 20 09 43 41 4C 4C 20 45 52 41 53 45 5F 44 .. .CALL ERASE_D
024840: 49 52 09 09 3B 65 72 61 73 65 20 64 69 72 0D 0A IR..;erase dir..
024850: 0D 0A 3B 20 20 20 20 20 20 20 43 41 4C 4C 09 43 ..; CALL.C
024860: 4C 45 41 52 53 42 0D 0A 09 0D 0A 09 4C 44 20 41 LEARSB......LD A
024870: 2C 26 43 39 0D 0A 20 20 20 20 20 20 20 20 4C 44 ,&C9.. LD
024880: 20 28 44 49 52 5F 45 52 52 4F 52 29 2C 41 0D 0A (DIR_ERROR),A..
024890: 09 0D 0A 09 43 41 4C 4C 20 4C 4F 41 44 5F 44 49 ....CALL LOAD_DI
0248A0: 52 0D 0A 0D 0A 09 58 4F 52 20 41 0D 0A 20 20 20 R.....XOR A..
0248B0: 20 20 20 20 20 4C 44 20 28 44 49 52 5F 45 52 52 LD (DIR_ERR
0248C0: 4F 52 29 2C 41 0D 0A 0D 0A 09 4C 44 20 48 4C 2C OR),A.....LD HL,
0248D0: 52 5F 42 75 66 66 65 72 5F 53 74 61 72 74 0D 0A R_Buffer_Start..
0248E0: 09 4C 44 20 28 49 6E 70 75 74 4C 6F 77 29 2C 48 .LD (InputLow),H
0248F0: 4C 0D 0A 09 4C 44 20 28 49 6E 70 75 74 48 69 67 L...LD (InputHig
024900: 68 29 2C 48 4C 0D 0A 0D 0A 09 43 41 4C 4C 20 43 h),HL.....CALL C
024910: 4C 53 5F 53 43 52 45 45 4E 0D 0A 09 4C 44 20 48 LS_SCREEN...LD H
024920: 4C 2C 4C 4F 47 4F 4E 32 0D 0A 09 43 41 4C 4C 20 L,LOGON2...CALL
024930: 41 4E 53 49 54 45 58 54 0D 0A 09 4C 44 20 48 4C ANSITEXT...LD HL
024940: 2C 31 0D 0A 09 4C 44 20 28 44 59 29 2C 48 4C 0D ,1...LD (DY),HL.
024950: 0A 09 72 65 74 09 09 3B 73 61 76 65 20 43 75 72 ..ret..;save Cur
024960: 73 6F 72 20 70 6F 73 20 69 6E 20 44 59 0D 0A 1A sor pos in DY...
024970: 0A 0D 0A 3B 69 6E 69 74 73 0D 0A 0D 0A 6A 33 30 ...;inits....j30
024980: 43 41 4C 4C 20 72 65 73 65 74 5F 61 6E 73 69 09 CALL reset_ansi.
024990: 09 3B 73 65 74 20 61 6E 73 69 20 74 6F 20 6E 6F .;set ansi to no
0249A0: 72 6D 61 6C 2B 73 61 76 65 20 76 61 72 73 20 69 rmal+save vars i
0249B0: 6E 20 63 61 73 65 0D 0A 09 09 09 09 3B 6F 66 20 n case......;of
0249C0: 63 61 6C 6C 20 74 6F 20 73 65 74 5F 61 6E 73 69 call to set_ansi
0249D0: 0D 0A 09 4C 44 20 41 2C 26 43 39 0D 0A 20 20 20 ...LD A,&C9..
0249E0: 20 20 20 20 20 63 61 6C 6C 20 73 65 74 5F 6A 6A call set_jj
0249F0: 63 68 61 6E 67 65 09 3B 63 75 72 73 6F 72 20 74 change.;cursor t
024A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 4E E5 1F 00 C1 02 00 00 00 02 ......N.........
024E20: 1F 00 C2 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E30: 1F 00 C4 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E40: 1F 00 C6 02 00 00 00 02 1F 00 C7 02 00 00 00 02 ................
024E50: 1F 00 C8 02 00 00 00 02 1F 00 C9 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 4E E5 20 00 C1 02 00 00 00 02 .....N. .......
026120: 20 00 C2 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026130: 20 00 C4 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026140: 20 00 C6 02 00 00 00 02 20 00 C7 02 00 00 00 02 ....... .......
026150: 20 00 C8 02 00 00 00 02 20 00 C9 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 4E E5 21 00 C1 02 00 00 00 02 !.....N.!.......
027420: 21 00 C2 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027430: 21 00 C4 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027440: 21 00 C6 02 00 00 00 02 21 00 C7 02 00 00 00 02 !.......!.......
027450: 21 00 C8 02 00 00 00 02 21 00 C9 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 4E E5 22 00 C1 02 00 00 00 02 ".....N.".......
028720: 22 00 C2 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028730: 22 00 C4 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028740: 22 00 C6 02 00 00 00 02 22 00 C7 02 00 00 00 02 ".......".......
028750: 22 00 C8 02 00 00 00 02 22 00 C9 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 4E E5 23 00 C1 02 00 00 00 02 #.....N.#.......
029A20: 23 00 C2 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A30: 23 00 C4 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A40: 23 00 C6 02 00 00 00 02 23 00 C7 02 00 00 00 02 #.......#.......
029A50: 23 00 C8 02 00 00 00 02 23 00 C9 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 4E E5 24 00 C1 02 00 00 00 02 $.....N.$.......
02AD20: 24 00 C2 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD30: 24 00 C4 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD40: 24 00 C6 02 00 00 00 02 24 00 C7 02 00 00 00 02 $.......$.......
02AD50: 24 00 C8 02 00 00 00 02 24 00 C9 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 4E E5 25 00 C1 02 00 00 00 02 %.....N.%.......
02C020: 25 00 C2 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C030: 25 00 C4 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C040: 25 00 C6 02 00 00 00 02 25 00 C7 02 00 00 00 02 %.......%.......
02C050: 25 00 C8 02 00 00 00 02 25 00 C9 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 4E E5 26 00 C1 02 00 00 00 02 &.....N.&.......
02D320: 26 00 C2 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D330: 26 00 C4 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D340: 26 00 C6 02 00 00 00 02 26 00 C7 02 00 00 00 02 &.......&.......
02D350: 26 00 C8 02 00 00 00 02 26 00 C9 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 4E E5 27 00 C1 02 00 00 00 02 '.....N.'.......
02E620: 27 00 C2 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E630: 27 00 C4 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E640: 27 00 C6 02 00 00 00 02 27 00 C7 02 00 00 00 02 '.......'.......
02E650: 27 00 C8 02 00 00 00 02 27 00 C9 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
RESULT OF SEARCH :
PRO=37 CHEA=0 COD=9 MUSI=0 COP=12 GRA=28 WRIT=80 198=2 199=3 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk190122( NRS232 R TEXTINI MAIN BAKCC
OMMON !XMODEM d"#$%&'()*+,-.BBSPROG /BBSTEXT 0WINDOW 12345678
DATAPROG 79TEXTSYS ABCDEFGHIJKLMNOTEXTSYS PQDATATEXT RFILE STUVM
ENUS WXYZabcdefMENUS !ghijkANSI lmnopqrstuvwxyzANSI ,MAIN
C1 print "RS232 Transfur routines" jp INPUT jp OUTPUT jp sendreceve
jp SETUPRS232 jp HANGUP .setinit300plus add sendreceve to 300 interupts!
ld hl,sendreceve ld (j300initplus+1),hl ld a,&c3 ld (j300initplus),a ret
------------------------------- INPUT CHAR FORM 232 ENTRY NONE EXITCARRY TRUE
CHAR RECEVED IN A CARRY FALSE NO CHAR USED AF ------------------------------
-- .INPUT PUSH HL PUSH DE LD HL,(InputHigh) LD DE,(InputLow) LD A,H CP D
JR NZ,input0 LD A,L CP E JR Z,inputend .input0 LD A,(DE) LD H,A INC DE
LD A,D CP RBUFFEREND2 JR NZ,INPUT1 LD D,RBUFFERSTART2 .input1 LD (I
nputLow),DE LD A,H SCF .inputend POP DE POP HL RET ------------
------------------------- OUT PUT CHAR TO 232 EntryAchar Exit none UsedAF -
------------------------------------- .OUTPUT PUSH HL PUSH AF LD H,A .Out
P1LD A,(OutPutLow) LD L,A DEC L LD A,(OutputHigh) CP L JP Z,OutP1 LD L,A
LD A,H LD H,OutStart2 LD (HL),A LD A,L INC A LD (OutputHigh),A POP AF POP
HL RET ----------------------------- 1/300 sec send / recive routine
---------------------------- .sendreceve ld a,(RS232select) cp 2 jr
z,sendreceveendIgnore rs232 inputs if none selected LD BC,(port) .rec IN A
,(C) BIT 0,A JR Z,SendChar LD HL,(InputHigh) DEC C IN A,(C) LD (HL),A INC
HL LD A,H .RecSelfMod CP RBufferEnd2 JR NZ,REC2 LD H,RBufferStart2
.rec2 LD (InputHigh),HL INC C JR REC .Sendchar .StopOutput NOP
BIT 2,A JR Z,sendreceveend LD A,(OutputLow) LD L,A LD A,(OutputHigh) CP L
JR Z,sendreceveend LD H,OutStart2 LD A,(HL) DEC C OUT (C),A INC L LD A,L
LD (OutputLow),A .sendreceveend RET -----------------------------------
.WaitModem LD (DIALTIME),Amax time for wait XOR A LD (TIMER),Areset t
imer .WaitMod LD BC,&FADDport LD D,16carrier dectet OUT (C),D IN D,(C)get
state BIT 3,D JR NZ,MODEMONLINEcarrier ona0 ret LD A,(DIALTIME) LD
D,A LD A,(TIMER) CP D JR Z,MODEMOFFLINEaff,time out CALL KMREADCH
AR JR C,MODEMOFFLINEaff,key been pressed JR WAITMODloop -------------------
---------------- .PURGEBUF XOR A LD (TIMER),A .PBU1 CALL INPUT JR C,PURGEB
UF LD A,(TIMER) CP 2 RET Z JR PBU1 - - - - - - - - - - - - - - - - .M
ODEMONLINE XOR A RET .MODEMOFFL NINE CP &FC RET Z LD A,&FF RET --------
-------------------------- .CarrierTest PUSH BC PUSH DE LD BC,&FADDport LD
D,16carrier dectet OUT (C),D IN D,(C)get state BIT 3,D POP DE POP BC
RET if Zero true then no carrier --------------------------------- .OutStr
LD A,(HL)out string for b (length) INC HL CALL OUTPUT DJNZ OUTSTR
RET ------------------------------- .RESETBUFFER DI LD HL,RBufferStart LD
(InputLow),HL LD (InputHigh),HL EI LD A,7 CALL &BB5A LD A,&FE RET ------
-------------------------- .CLEARBUFFER LD HL,RBUFFERSTART LD DE,RBUFFERSTART
+1 LD BC,RBUFFEREND-RBUFFERSTART-1 LD (HL),0 LDIR JP RESETBUFFER ******
**************************** SET UP THE 232 **********************************
.SETUPGETWORD EX HL,DE ld l,a LD L,(IX+10) LD H,0 ADD HL,HL*2 ADD HL,D
E LD B,(HL) INC HL LD C,(HL) RET -------------------------------- .SETUPGE
TBYTE LD E,(IX+10) ld e,a LD D,0 ADD HL,DE LD B,(HL) RET ----------------
---------------- .BAUDSTART LD IX,BASPEED2 LD HL,BSTABLE2 SUB "C" L
D (SQBAUD),A CALL SETUPGETWORD PUSH BC LD IY,(WRITEREGS) LD A,(IY+1)
AND %00111111 OR B LD (IY+1),Aset reg 4 CALL SETRS POP BC LD A,C LD HL,S
W300 CP 1 JR Z,BUD LD HL,SW2400 CP 3 JR Z,BUD LD HL,SW2412 .BUDPU
SH HL LD IX,BAUDMSG CALL MBORDER LD HL,61*256+18 LD (Y),HL LD HL,
SWITCH CALL TEXT POP HL CALL TEXT CALL KMWAITCHAR BEXITLD IX,BAUDMS
G CALL WINDOWWIPE LD IX,BASPEED2 BEXIT2 JP WINRET JP ST2 ---------------
--------------- PARTY ------------------------------ .PARTYSTART
SUB "I" LD HL,PNEO LD (SQPARITY),A CALL SETUPGETBYTE LD IY,(WRITEREGS) LD
A,(IY+1) AND %11111100 OR B LD (IY+1),A CALL SETRS JP ST2 ----------------
------------ DATA BITS ---------------------------- .BITSTART LD HL,BT5678
SUB "5" LD (SQDATA),A CALL SETUPGETBYTE LD A,B LD IY,(WRITEREGS)
LD (IY+0),A LD A,(IY+2) AND %10000010 LD C,A LD A,B SRL A OR %0000
1000 OR C LD (IY+2),A CALL SETRS JP ST2 ---------------------------
STOP BITS --------------------------- .STOPSTART SUB "L" LD HL,STOPS2 LD
(SQSTOP),A CALL SETUPGETBYTE LD IY,(WRITEREGS) LD A,(IY+1) AND %11110011
OR B LD (IY+1),A CALL SETRS JP ST2 --------------------------- PORT
--------------------------- .PTALD L,&DD LD A,0 JR PSU .PTB LD L,&DF LD
A,1 .PSULD H,&FA LD (PORT),HL LD (SQPORT),A JP ST2 -----------------------
------ .set LD IX,SETW CALL MBORDER CALL MPRINT .ST2CALL SETPRINT .SETLPCA
LL KMWAITCHAR CP &FC JP Z,WINRET CP "5" JR C,SOT1 CP "8"+1 JR C,BI
TSTART .SOT1RES 5,A LD L,A CP "A" JR C,SETLP JR Z,PTA CP "B" JR Z,PTB CP
"H"+1 JP C,BAUDSTART CP "K"+1 Jp C,PARTYSTART CP "N"+1 JR C,STOPSTART JP
SETLP .SETPRINT LD HL,31*256+17 LD (Y),HL LD A,(SQPORT) ADD "A" CA
LL SCREENWRITE LD A,"" CALL SCREENWRITE LD A,(SQDATA) ADD "5" CALL SCREENWR
ITE LD A,"" CALL SCREENWRITE LD A,(SQPARITY) LD HL,PNONE CP 0 JR Z,SETPR1
LD HL,PEVEN JR Z,SETPR1 LD HL,PODD .SETPR1CALL TEXT LD A,(SQSTOP) LD L,A
LD H,0 ADD HL,HL ADD HL,HL LD DE,STOP1 ADD HL,DE CALL TEXT LD A,(SQBAUD)
LD L,A LD H,0 LD D,0 LD E,A ADD HL,HL *2 ADD HL,HL *4
ADD HL,DE*5 LD DE,BX7 ADD HL,DE JP TEXT .PNONESTR "NONE" .PEV
EN STR "EVEN" .PODD STR "ODD " .STOP1STR "1 " .STOP15 STR "1.5" .STOP2
STR "2 " .BX7 STR "75 " .BX5 STR "150 " .BX3 STR "300 " .BX6
STR "600 " .BX2 STR "1200 " .BX4 STR "24-12" .BXSP STR " " .S
QPORTBYTE 0 .SQPARITY BYTE 0 .SQSTOPBYTE 0 .SQDATABYTE 3 .SQBAUDBYTE 5
.SETW BYTE 30,4 BYTE 15,31 BYTE 13,0,31,5 WORD 0BYTE 0 BYTE"PORT PA
RITY STOP BITS",0 BYTE "A"+&80," A ","I"+&80," NONE ","L"+&80,"
1",0 BYTE"B"+&80," B ","J"+&80," EVEN ","M"+&80," 1.5",0 BYTE"
","K"+&80," ODD ","N"+&80," 2",0 BYTE"BAUD",0 BYTE"C"+&80," 75",0 BYT
E"D"+&80," 150 DATA BITS",0 BYTE"E"+&80," 300 ","5"+&80," 5
",0 BYTE"F"+&80," 600 ","6"+&80," 6",0 BYTE"G"+&80," 1200 "
,"7"+&80," 7",0 BYTE"H"+&80," 24-1200 ","8"+&80," 8",0 BYTE " ",0 BY
TE" ", N0 ****************************** .SETUPRS232 LD A,(RS232SELE
CT) LD HL,GL232 CP 1 JP Z,SR1 LD HL,ST232 OR A RET NZ .SR1LD (WRITEREGS),
HL JP SETRS .SETRS LD BC,&FADD CALL OUT232 LD BC,&FADF CALL OUT232 DI
LD BC,&FBDF LD A,%00110110COUNTER0 xx110110 OUT (C),A LD C,&DC LD HL,(COU
NTER0) OUT (C),L OUT (C),H LD C,&DF LD A,%01110110COUNTER1 OUT (C),A LD
C,&DD LD HL,(COUNTER1) OUT (C),L OUT (C),H EI RET .OUT23
2 DI LD A,&18 OUT (C),A LD HL,(WRITEREGS) LD A,3 OUT (C),A LD
A,(HL)INC HLREG 3 OUT (C),A LD A,4 OUT (C),A LD A,(HL)INC HLREG 4 OUT (C
),A LD A,5 OUT (C),A LD A,(HL)REG 5 OUT (C),A EI RET --------
--------------------- .RS232SELECTBYTE 0 .WRITEREGSWORD GL232 .GL232BYTE &C1
BYTE &44 BYTE &EA .ST232BYTE &C1 BYTE &44 BYTE &EA .COUNTER0BYTE 52,0 .CO
UNTER1BYTE 52,02400 DEFULT .STOPS BYTE 50,5,5,14 BYTE 3,12,51,6 WORD 0BYTE
0 BYTE " ","1"+&80," STOP b",0 BYTE " 1.","5"+&80," STOP b",0 BYTE " ","2"+&
80," STOP b",0 STOPS2 BYTE %0100 BYTE %1000 BYTE %1100 .PTSET BYTE 50,5,
4,10 BYTE 2,8,51,6 WORD PJUPBYTE 0 BYTE " PORT A",0 BYTE " PORT B",0 PJUP
WORD PTA WORD PTB .BITSET BYTE 50,5,6,10 BYTE 4,8,51,6 WORD 0BYTE 3 BYTE
" ","5"+&80," BITS",0 BYTE " ","6"+&80," BITS",0 BYTE " ","7"+&80," BITS",0
BYTE " ","8"+&80," BITS",0 .BT5678 BYTE 0 BYTE %10000001 BYTE %01000001 BYT
E %11000001 .PARTYSET BYTE 50,5,5,14 BYTE 3,12,51,6 WORD 0BYTE 0 BYTE " P
arity ","N"+&80,"one",0 BYTE " Parity ","E"+&80,"ven",0 BYTE " Parity ","O"+&8
0,"dd",0 .PNEO BYTE %00 NONE BYTE %11EVEN BYTE %01ODD .STANDSPEED BYTE 5
0,5,11,11 BYTE 9,9,51,6 WORD 0BYTE 5 BYTE" 300",0 BYTE" 600",0 BYTE " 1200/
75",0 BYTE " 75/1200",0 BYTE " 1200",0 BYTE " 2400",0 BYTE " 4800",0 BYTE "
9600",0 BYTE " 19200",0 .BSTANDTAB BYTE 104,0 BYTE 104,0 BYTE %11000000
/64 300 BYTE 52,0 BYTE 52,0 BYTE %11000000/64 600 BYTE 26,0 BYTE 161,1 BYT
E %11000000/64 1200/75 BYTE 161,1 BYTE 26,0 BYTE %11000000/64 75/1200 BYTE 2
6,0 BYTE 26,0 BYTE %11000000/64 1200 BYTE 52,0 BYTE 52,0 BYTE %01000000/64
2400 BYTE 26,0 BYTE 26,0 BYTE %01000000/16 4800 BYTE 208,0 BYTE 208,0 BYTE
%00000000/1 9600 BYTE 104,0 BYTE 104,0 BYTE %00000000/1 19200 .BASPEED2
BYTE 50,5,8,11 BYTE 6,9,51,6 WORD 0BYTE 5 BYTE " 75",0 BYTE " 150",0 BYTE "
300",0 BYTE " 600",0 BYTE " 1200",0 BYTE " 24-1200",0 .BSTABLE2 BYTE%110
00000,1/64 300 BYTE%10000000,1/32 150 BYTE%01000000,1/16 300 BYTE%11000000,3
/64 600 BYTE%01000000,3 /16 1200 BYTE%01000000,2/162412 300 1 1200/24
00 2 2400 3 SW300STR "300" SW2400STR "2400" SW2412STR "24-1200" .BAUDMSG
BYTE 60,17,3,18 ----------------------------- .HANGUP DI LD BC,(PORT) LD
A,5 OUT (C),A LD IY,(WRITEREGS) LD A,(IY+2) RES 7,A OUT (C),A EI XOR A L
D (TIMER),A .HANG LD A,(TIMER) CP 1 JR NZ,HANG DI LD A,5 OUT (C),A LD A,
(IY+2) OUT (C),A EI LD A,&FE RET 232 $$$,23,D5,CD6 C5,A1,D1,CD,2D,A1,
18,00,3E,00,CE,00,32,12,A0,C9( EF9B2 2400 3 SW300STR "300" SW2400STR "2400"
SW2412STR "24-1200" .BAUDMSG BYTE 60,17,3,18 -----------------------------
.HANGUP DI LD BC,(PORT) LD A,5 OUT (C),A LD IY,(WRITEREGS) LD A,(IY+2)
RES 7,A OUT (C),A EI XOR A LD v(2v2vw(2w2w!zwQ#vQ#uQ*X"!z!YY*Z*"# Q8O0w#y2Q2
Y2Y2Y2Y2Y2YR!N#F# !Vp2k2j2R!X"V2h2i2X2YR!N#F#V!pmO(2YA 2YI 2YQ 2YY 2Yi 2Ya 2YOsS
hxSyS08SsScS2R2V2X*Vi 6#wZ222P!XyASBSCTD4THSTfSTJTmwVK#UsXuX!X"V2h2i2P2hy2l1PRIN
T "interupes and related" general jump block for j300initplus ret nop
nop inits jp SetInterupt jp OffInterupt jp Removecursor
jp Placecursor jp CLOCKRES jp CLOCKPRINT jp CLPRINT jp
CLOCKON jp CLOCKOFF window jp PULLDOWN jp 0 jp 0
jp 0 jp Window jp MBORDER jp MPRINT jp MCURSOR j
p MENUCURSOR jp HOTKEYS jp MPRINTCUR jp WINDOWWIPE jp
WINDOWPA NGE ANSI jp RLSETOFFSET jp RESETANSI jp SE
TANSI jp ScreenBlank jp BufferBlank jp ANSIOFF jp ANSION
jp AllOff Textsys jp NUMBER8 jp PULLPRINT jp Wri
teChar jp ScreenWrite jp Cls jp CLSscreen jp TEXT jp
CHAR jp AnsiChar jp CURSOR jp CELL2 jp GetAddress jp
SCRADDRESS jp Clearkeys jp ANSITEXT jp YESNO jp KE
YINP jp INPUTLINE jp INPUTLINE2 jp Keyinput2 jp KEYLINE
jp DEC8 jp DEC16 jpInverseline jp NEXTBYTE jp NEXTLINE
jp NUMBER16 jp MULTIPLYDEBC jp DIVIDEHLDE jp hex forg
otten and addones jpinverse jpsetjjchange jppulljp jpwinret jpclearBuf jpS
CRBufON jpSCRBufOFF jpGetCharacter jp Waitfly jpcell jp&bdb5 firmware
call HLHL*DE -A over flow flag jp&bdb8 FW HLHL/DE A- over flow flag jp&bdbb HL
remainder of HL/DE jp&bdc4 Compare HL to DE jp&bdca Tests hl jpanykey jppa
use300 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ .set
jjchange ld (jjchangeCursor),a ret .PAUSE300 count 300 interupts PUSH AF
XOR A LD (TIME300),A .VPAUSE300 LD A,(TIME300) CP 1 JR NZ,VPAUSE300 POP
AF RET ---------------------------------- .Waitfly PUSH AF .fly
3LD A,(Flycount) CP 5 JR NZ,fly3 POP AF RET -------------------------------
-------- SET INTERUPTS ON Turns on a SCR FLYBACK event which will flash curso
r Turns on Fast Ticker to reading routine.. Entry - None Exit - None Used
- AF,BC,DE,HL --------------------------------------- .SetInterupt LDHL,Curso
rBlock Frame Fly Event block LDDE,JChangeCursor Routine to call LDBC,&81FF Asy
nc event, Near address. Disable roms CALLKLNEWFRAMEFLY Initialise it CALLcur
sor LDA,255 LD(CursorOn),A Tell routine cursor is on screen XORA LD(JChangeC
ursor),A Tell routine that cursor is allowed flash LD(CursorCount),A Count fo
r flash frequencey LD HL,EVENT LD BC,&81FF LD DE,CLOCK CALL KLINTEVENT CA
LL MCWAITFLYBACK LD HL,TICKBL LD DE,50 LD BC,50 CALL KLADDTICKER
CALL MCWAITFLYBACK LDDE,j300init LDHL,free LD BC,&81FF CALLKLNEWFAST
TICKER RET .j300init DI LD A,(TIME300)timer INC A LD (TIME30
0),A ld a,(flycount)flyback counter inc a cp 6 jr nz,fly2 xor a fly2 ld
(flycount),a call j300initplusdo other interupts EI ret -------------------
-------------------- TURN INTERUPTS OFF Turns off SCRFLYBACK event Exit - No
ne Used - AF,BC,DE,HL --------------------------------------- .OffInterupt
DI LDHL,CursorBlock+2 Address of event block CALLKLDISARMEVENT Disable the eve
nt LDHL,CursorBlock Address of frame fly block CALLKLDELFRAMEFLY And disable i
t. DI LDA,(CursorOn) ORA CALLNZ,cursor Remove if on screen. XORA LD(Cursor
On),A Tell routine cursor is off LDA,&C9 LD(JChangeCursor),A and mustnot flash
. LD HL,free CALLKLDELFASTTICKER LD HL,TICKBL CALLKLDELTICKER EI R
ET ----------------------------- REMOVE CURSOR IF ON SCREEN AND DISABLE en
try none exit none used none ----------------------------- .Removecursor
PUSH AF PUSH HL PUSH BC PUSH DE LD A,(cursoron) OR A CALL NZ
,cursorswap cursor XOR A LD (cursoron),A LD (cursorcount),A LD A,&C9
LD (jchangecursor),A POP DE POP BC POP HL POP AF RET -----------------
-------------- PLACE CURSOR (Realy only enables interupts) Used none -------
--------------------- .Placecursor PUSH AF XOR A LD (JCHANGECURSOR),A POP
AF RET --------------------------------------- CHANGE CURSOR STATE Call
ed in interupt line. Entry - None Exit - None Used - None ------------
--------------------------- .CTimeOffEQU13 .CTimeOnEQU26 .ChangeCursor .JCha
ngeCursor BYTE0 &c9 to disable, 0 to enable .JJChangeCursor BYTE0 Totaly disa
ble cursor! PUSHAF LDA,(CursorOn) Is the cursor on (for timings) ORA JRNZ,CC
On LDA,(CursorCount) Counter CPCTimeOff Have we been off long enough JRZ,CCTu
rnOn If yes, then do the work INCA LD(CursorCount),A Otherwise increase and sa
ve .CCNoChange POPAF RET Restore registers, and con Ntinue .CCTurnOn PUS
HBC PUSHDE PUSHHL XORA LD(CursorCount),A Restart count, for off LDA,255 LD
(CursorOn),A Make note that cursor is now on. CALLcursor Do the actual work....
POPHL POPDE POPBC POPAF RET .CCOn LDA,(CursorCount) Counter CPCTimeOn
Have we been on long enough JRZ,CCTurnOff If yes, then do the toggle INCA LD
(CursorCount),A Otherwise increase and save POPAF RET .CCTurnOff PUSHBC P
USHDE PUSHHL XORA LD(CursorCount),A Restart count, for off LD(CursorOn),A Ma
ke note that cursor is now off CALLcursor Do the actual work.... POPHL POPDE
POPBC POPAF RET .CLOCKRES XOR A LD (SECOND),A LD (MIN),A LD (H
OUR),A RET .CLOCK LD A,(TIMER) INC A LD (TIMER),A .CLOCKENABLE NOP C
ALL CLOCKPRINT LD DE,(LASTSTATE)E contains last state LD BC,&FADDport LD A,1
6carrier dectet OUT (C),A IN A,(C)get state LD (LASTSTATE),Asave laststate of
carrier BIT 3,A RET Zreturn of carrier off BIT 3,Etest JR NZ,TM0
if timer was on then CALL CLOCKRESreset clock of just turned on .TM0LD A,(S
ECOND)inc second INC A CP 60 JR Z,TM1 LD (SECOND),A RETret if no overflow
.TM1XOR A LD (SECOND),A LD A,(MIN) INC A CP 60 JR Z,TM2 LD (MIN),A RET .
TM2XOR A LD (MIN),A LD A,(HOUR) INC A CP 24 JR Z,TM3 LD (HOUR),A RET
.TM3XOR A LD (HOUR),A RET .CLOCKPRINT RET LD HL,HOURNUM LD A
,(HOUR) CALL CLPRINT INC HL LD A,(MIN) CALL CLPRINT INC HL LD A,(SECON
D) CALL CLPRINT LD HL,(clockxy) CALL SCRADDRESS LD (CADD),HL LD H
L,HOURNUM LD B,8 CLOCKLLD A,(HL) PUSH HL PUSH BC LD HL,NUMBUF CA
LL GETCHARACTER CALL INVERSE EX HL,DE LD HL,(CADD) CALL ANSICHAR LD HL,(CAD
D) CALL NEXTBYTE LD (CADD),HL pop bc POP HL INC HL DJNZ CLOCKL RE
T CLPRINT LD D,&A CALL CLPT2 LD D,1 CLPT2 LD E,0 CLPT3SUB D JR
C,CLPT4 INC E JR CLPT3 CLPT4ADD D LD C,A LD A,E ADD &30 LD (HL),A INC HL
LD A,C RET .CLOCKONenable/disable clock (dataline) PUSH AF LD
A,0 JR CLO .CLOCKOFF PUSH AF LD A,&C9 .CLOLD (CLOCKPRINT),A POP AF RET
00,32,12,A0,C9( EF9BCADD) CALL NEXTBYTE LD (CADD),HL pop bc POP H
L INC HL DJNZ CLOCKL RET CLPRINT LD D,&A CALL DATA BIT
S 300 5 600 6 1200 7 24-1200 8 N!Q!T"O--
6y*Wiavy*Yiay*Oy#yy#yyyQDD4423 STOP b 1. STOP b STOP b2 3 PORT A PORT B2 3 BI
TS BITS BITS BITSA23 Parity one Parity ven Parity dd23 300 600 1200/75 75/120
0 1200 2400 4800 9600 19200hh4444hh21 print "main input routines" the follow
ing equates must be kept up to date. general jump block for inits j3
00initplusequ gu+0 SetInteruptequ gu+3 OffInteruptequ gu+6 Removecursorequ gu
+9 Placecursorequ gu+12 CLOCKRESequ gu+15 CLOCKPRINTequ gu+18 CLPRINTequ gu+
21 CLOCKONequ gu+24 CLOCKOFFequ gu+27 window PULLDOWNequ gu+30 DATALINE
equ gu+33 PRINTDATACURSORequ gu+36 DLCURSORequ gu+39 Windowequ gu+42 MBO
RDERequ gu+45 MPRINTequ gu+48 MCURSORequ gu+51 MENUCURSORequ gu+54 HOTKEYSeq
u gu+57 MPRINTCURequ gu+60 WINDOWWIPEequ gu+63 WINDOWPAGEequ gu+66 ANS
I RLSETOFFSETequ gu+69 RESETANSIequ gu+72 SETANSIequ gu+75 ScreenBlankequ gu
+78 BufferBlankequ gu+81 ANSIOFFequ gu+84 ANSIONequ gu+87 AllOffequ gu+90
Textsys NUMBER8equ gu+93 PULLPRINTequ gu+96 WriteCharequ gu+99 ScreenWr
iteequ gu+102 clsequ gu+105 CLSscreenequ gu+108 .TEXTequ gu+111 CHARequ gu+1
14 AnsiCharequ gu+117 CURSORequ gu+120 CELL2equ gu+123 GetAddressequ gu+126
SCRADDRESSequ gu+129 Clearkeysequ gu+132 ANSITEXTequ gu+135 YESNOequ gu+138
KEYINPequ gu+141 INPUTLINEequ gu+144 INPUTLINE2equ gu+147 Keyinput2equ gu+15
0 KEYLINEequ gu+153 DEC8equ gu+156 DEC16equ gu+159 Inverselineequ gu+162 NE
XTBYTEequ gu+165 NEXTLINEequ gu+168 NUMBER16equ gu+171 MULTIPLYDEBCequ gu+174
DIVIDEHLDEequ gu+177 hexequ gu+180 inverseequ gu+183 setjjchangeequ gu+18
6 pulljp Nequ gu+189 winretequ gu+192 .clearBufequ gu+195 SCRBufONequ gu+19
8 SCRBufOFFequ gu+201 .GetCharacterequ gu+204 Waitflyequ gu+207 cellequ gu+2
10 FWmult16equ gu+213 FWdivide16equ gu+216 FWMod16equ gu+219 FWComp16equ gu+
222 FWTestHLequ gu+225 anykeyequ gu+228 pause300equ gu+231 +++++++++++++++++
++++++++++++++++++++++++++++++++++++++ .PROGRAMSTART LD (STARTSTACK),SP cal
l InitProgram call newstart .NEWSTARTIF TOTAL RESET THEN START HERE! XOR
A call setjjchangeenable cursor LD HL,(DY) LD (Y),HLset cursor .main
loop1 call talkinp call talkout cp &e0 call z,data2 jp mainloop1 -----
---------------------------------------------- .TALKINP CALL INPUTreceve char
ret NCno char then read keyboard LD B,CharInTable/&100 LD C,A LD A,(BC)
CALL SCREENWRITEprint char jp Echosout -------------------------------------
----------- .TALKout CALL &BB1Bread char ret NCif no char then read buffer C
P &E0 ret zpull down line if COPY pressed call vt100outVT100 keys add here c
apture window LD D,CharOutTable/&100 LD E,A ld a,c or a ret nz the last k
eys were vt100! LD A,(DE) CALL OUTPUToutput char jp Echosin ------------
------------------------------------- .Echosin call JLOCALECHO CP 8 call Z,J
REMOTEDEL CP 13 jp Z,JREMOTELFecho ----------------------------------------
-------- .Echosout call JREMOTEECHO CP 8 call Z,JLOCALDEL CP 13 jp
Z,JLOCALLFecho ------------------------------------------------- .VT100out if
c0 then not vt100 keys LD C,"A"UP CP &F4 jp Z,VT100CUR inc CB - DOWN CP &F
5 jp Z,VT100CUR inc CC RIGHT CP &F7 jp Z,VT100CUR INC CD LEFT CP &F6 jp Z
,VT100CUR ld c,0 ret ----------------------------------------------------- .
JLOCALECHO RET CALL SCREENWRITE CP 8 JR Z,JLOCALDEL CP 13 JR Z,JLO
CALLF RET .JLOCALDEL RET LD A," " CALL SCREENWRITE LD A,8 JP SC
REENWRITE .JLOCALLF RET LD A,10 CALL SCREENWRITE LD A,13 RET JREMOTEE
CHO RET CALL OUTPUT CP 8 JR Z,JREMOTEDEL CP 13 JR Z,JREMOT
ELF RET .JREMOTEDEL RET LD A," " CALL OUTPUT LD A,8 JP OUTPUT .JREMOTELF
RET LD A,10 CALL OUTPUT LD A,13 RET -----------------------------------
----------------- .VT100CUR LD A,27 CALL OUTPUT LD A,"" CALL OUTPUT LD A,C
jp OUTPUT send out VT100 codes -------------------------------------------
----------- .EXPANDKEYS SUB 128 LD L,A LD H,0 ADD HL,HL2 LD DE,EXPANDTABLE
ADD HL,DE LD E,(HL)INC HLLD D,(HL) EX HL,DE .EXKY1LD A,(HL) INC HL OR A
ret Z CALL OUTPUToutput char CALL EchoOut JP EXKY1 -------------------------
------------------------ .ESCAPE. CALL &BB00KM INIT - just crash out!!!! LD A
,2 CALL &BC0E LD SP,(STARTSTACK) JP OFFINTERUPT ---------------------
----------------------------- .DATA2 XOR A LD (COM),Areset dataline LD (
PULLSTACK),SPsave stack just in case CALL Ansioffreset ansi/remove cursor LD H
L,(Y) LD (DY),HLsave x,y CALL DATALINEpull down dataline CALL Ansionset ansi
back to normal LD HL,(DY) LD (Y),HL call PlaceCursorplace the cursor/ret xor
a ret ------------------------------- USE A DATALINE entry HLaddress of
info exit used ------------------------------- .DATALINEnow automaticly
forces pulldown! CALL PRINTDATALINE LD A,(COM) CALL DLCURSORprint cursor .E
NT LD A,(COM) LD L,A LD H,0 ADD HL,HL ADD HL,HL INC HL INC HLhl points to
jp LD DE,MAINSTART ADD HL,DE LD E,(HL) INC HL LD D,(HL) ixaddress to jump
/call PUSH DE POP IX LD (IX+10),0RESET CURSOR CALL PULLDOWN JP
C,DLLEFTRIGHT CP &FF JR Z,ENT CP &FC JR NZ,ENT If Esc then stay on
line .DATAELD HL,0 CALL DAEerase dataline LD HL,24 .DAELD B,80 LD C,1 C
ALL WINDOW RET .DLLEFTRIGHT CP 9 CALL Z,DLRIGHT If 9 then move right CP 8
CALL Z,DLLEFT If 8 then move left LD (IX+10),0 JP ENT .DLLEFT LD A,(COM)
CALL DLCURSORREMOVE CURSOR LD A,(COM) DEC AINC COMAND NUMBER CP &FF
JR NZ,ML1 XOR A .ML1LD (COM),A CALL DLCURSOR XOR A RET .DLRIGH
T LD A,(COM)BASICLY THE SAME CALL DLCURSOR LD A,(COM) INC A CP 6 JR NZ,MR1
LD A,5 .MR N1LD (COM),A CALL DLCURSOR XOR A RET ------
------------------------- PRINT A DATA LINE ENTRY HLADDRESS OF INFO X
Y WIDTH STRING NO OF COMMANDS X,WIDTH,JP X,WIDTH,JP --------------
------------------ .PRINTDATACURSOR CALL PRINTDATALINE LD A,(COM) JP DLCURSO
R .PRINTDATALINE CALL WAITFLYTime with screen .DL1PUSH BC PUSH D
E PUSH HLsave width,x,y LD HL,0 LD DE,TIMELINE .DL2PUSH HL CALL SCRADDRESSg
et screen address LD A,(DE) inc de or aCORRUPT jr z,dlpop push de push hl
LD C,A BIT 7,C LD HL,DLBUFhltemp buff for char CALL Z,GETCHARACTER
CALL INVERSEinverse text EX HL,DE POP HL CALL ANSICHARPrint
POP DE POP HL INC H JP DL2 .DLPOP POP HL POP HL POP DE POP BC
RET ------------------------------------ Print Cursor on dataline Entr
y A-entry number Used AF Note must first int a line -----------------------
-------------- .DLCURSOR PUSH HL PUSH DEsave regs LD L,A LD
H,0 ADD HL,HLcursor no *2 ADD HL,HL*4 LD DE,MAINSTART ADD HL,DEadd to start
to give x,width,jp LD D,(HL) LD E,0 INC HL LD B,(HL)Bwidth EX HL,D
E hlx,y CALL INVERSELINEjust that!! POP DE POP HL RET .I
nitProgram .PSBYCP 1 LD A,0 JR NZ,PSIX LD A,(IX+0) .PSIX LD (RS232SELECT),
A LD A,&FF RST 3,SMJP .PSRSX1 CALL SETUPRS232Setup the rs232 according to
what type it is CALL SOUNDRESET LD HL,ENTBLK LD A,1 CALL &BCBFSET TONE E
NVELOPE CALL KKEY RESET/SET KEYS LD A,2 CALL &BC0ESet to mode 2 call set
init300plus CALL Setinterupt turn on interupts cursor/sr CALL Scrbufonturn on
buffers CALL ClockRes CALL clsscreenclear screen and buffer CALL resetansiset
ansi to normal+save vars in case of call to setansi LD A,&C9 call se
tjjchangecursor totaly disabled LD HL,LOGON CALL ANSITEXT CALL ERASEDIRe
rase dir CALLCLEARSB LD A,&C9 LD (DIRERROR),A CALL LOAD
DIR XOR A LD (DIRERROR),A LD HL,RBufferStart LD (InputLow),HL L
D (InputHigh),HL CALL CLSSCREEN LD HL,LOGON2 CALL ANSITEXT LD HL,1 LD (DY
),HL retsave Cursor pos in DY CALL resetansiset ansi to normal+save vars in ca
se of call to setansi LD A,&C9 call setjjchangecursor t88fpg80$6wfpw8
www8wpwwwppswnpkswpvwwwwwppwwwwp8wkwwp8w888Zf8CIAA8AAAB"AB$B8AB"B888Zf6888wpwwcs
pwcw8wwcwpp6w8xx 1 print "Global data common to all" &400BUFFER START
&2000BUFFER END &2000Char/ansi fornt buffer &3000CHARSETS &4000DIRECTORY BUFF
ER &4800XMODEM &4C00CRC TABLES &5000 graphics start &7000programme start
&6b00global data .CHARMAPEQU &3000 .screencequ&2000 .screenaequ&2800 .CHAR
MAP2EQU CHARMAP / &100 .SCREENC2EQUSCREENC / &100 .SCREENA2EQUSCREENA / &100
.CRCTableEQU&4C00 .CRCTable2EQUCRCTable / &100 .CharInTableEQUCRCTable+&200 .
CharOutTableEQUCharInTable+&100 .RBufferstartEQU&400 .RBufferendEQU&2000 .RBu
fferlengthEQU Rbufferend-Rbufferstart .RBUFFERLENGTH2EQURBUFFERLENGTH / &100 .
RBufferend2EQURbufferend / &100 .RBufferstart2EQURbufferstart / &100 .XmodemEQ
U&4800 .DialDirEQU&4000 .boldfintequcharmap+&800 .boldfint2equboldfint / &1
00 .kmwaitcharequ&bb06 .kmreadcharequ&bb09 .MCWAITFLYBACKEQU&BD19 .SCRSETI
NKEQU&BC32 .MCWAITFLYBACKEQU&BD19 .KLDISARMEVENTEQU&BD0A .KLDELFRAMEFLYEQU&BC
DD .KLNEWFRAMEFLYEQU&BCD7 .KLDELFASTTICKEREQU&BCE6 .KLNEWFASTTICKEREQU&BCE0
.KLADDTICKEREQU&BCE9 .KLDELTICKEREQU&BCEC .KLINTEVENTEQU&BCEF .KMARMBREAKSEQU
&BB45 .KMSETREPEATEQU&BB39 .KMINITEQU&BB00 .CASCATALOUGEEQU&BC9B .CASINOPENE
QU&BC77 .CASINCLOSEEQU&BC7A .CASINABANDONEQU&BC7D .CASINCHAREQU&BC80 .CASIND
IRECTEQU&BC83 .CASTESTEOFEQU&BC89 .CASOUTO NPENEQU&BC8C .CASOUTCLOSEEQU&BC8F
.CASOUTABANDONEQU&BC92 .CASOUTCHAREQU&BC95 .CASOUTDIRECTEQU&BC98 .SOUNDRESE
TEQU&BCAA .TIMELINE byte " ANSI TERMINAL Dial Files Buffer D
irectory Print Setup ",0 .TIME300BYTE 0 .CUSSPWORD 0 .McurYBYTE
0 .ComBYTE 0 .YBYTE 0 .XBYTE 0 .RLOFFSETWORD 0 .WINADDWORD 0 .WINXYWORD 0
.WINWIDTHBYTE 0 .WINDOWCHARDEFS 8 .TIMERBYTE 0 .SECONDBYTE 0 .MINBYTE 0 .H
OURBYTE 0 .LASTSTATEBYTE 0 .FlycountBYTE 0 .OutputLow BYTE 0 .OutputHighBYT
E 0 .InputHighWORD RBUFFERSTART .InputLowWORD RBUFFERSTART .TICKBLRMEM6 .EVE
NTRMEM 10 .FreeDEFS 10 .Cursorblock DEFS 10 .CursoronBYTE 0 .CursorcountBYTE
0 .LASTKEYBYTE 0 .DELCHARBYTE "" .KEYOLDSTWORD 0 .KEYSTCURWORD 0 .KEYOLDCU
RWORD 0 .PortWORD &FADD .ClockxyWORD &600 .CADDWORD 0 .NUMBUF DEFS 9 .SMJPW
ORD &CA72 .SMROMBYTE 7 .CursorStartWORD 0 .DLBufRMEM 8 .DLCursorYBYTE 0 .AN
Y3BYTE 10,10,13 .PressBYTE &80,&81," Press any key ",&80,0 .DRIVEASTR "A" .DR
IVEBSTR "B" .DRIVESBYTE 0 .GETDRSTATWORD &C630BYTE 7 .USERDOS BYTE 0,0 .
ENTBLKBYTE 5 BYTE 1,5,1 BYTE 1,0,30 BYTE 1,-10,1 BYTE 1,0,30 BYTE 1,5,1 .S
OUNDBLKBYTE 7,0,1 WORD 125 BYTE 0,15 WORD 300 prefixlenbyte 4 .dialprefixby
te "ATDT " 1234567890123456 .EXPANDSTART "123456789012
3456789012345" .FK0BYTE "0",0," ",0 .FK1BYTE "1",0,"
",0 .FK2BYTE "2",0," ",0 .FK3BYTE "3"
,0," ",0 .FK4BYTE "4",0," ",0 .FK5
BYTE "5",0," ",0 .FK6BYTE "6",0," "
,0 .FK7BYTE "7",0," ",0 .FK8BYTE "8",0,"
",0 .FK9BYTE "9",0," ",0 ,1 LD (DY),HL retsav
e Cursor pos in DY 8f3cZfc0$lll00f0p0000xfflbbf0flff80l000088fff8f(P8$ BB(D Dx
xtx t0 xt (88fff8fl800l00ffhh0lff0l0lxxxvlpf0xv008Bf0cfl( 8DB( HD1 print "Xmod
em" SOHEQU1 EOTEQU4 ACKEQU6 NAKEQU&15 CANEQU&18 STXEQU2 .FILEBORDER
BYTE 24,22 BYTE 3 BYTE 30 BYTE 1,0 BYTE 25,23 WORD 0BYTE 0 BYTE" Filename
",0 .XmodemStartEQURBufferStart+&400 .XmodemEndEQURBufferEnd .XmodemEnd2EQU
XmodemEnd / &100 .XmodemStart2EQUXmodemStart / &100 ************************
******* .XMODEMQUIT2 CALL WINDOWPAGEprint page CALL PRINTDATACURSOR LD A,
&FF RET .XMODEMQUIT CALL WINDOWWIPE LD A,&FE RET .TRFILE CALL CASINABAN
DON LD A,1 LD (BLOCK),A LD HL,1 LD (NUMOFBLOCK),HL LD HL,0 LD (BYTES),HL N
o length XOR A LD (TEndFlag),A CALL OPENFILE CP &FC JP Z,XMODE
MQUIT2 PUSH IX CALL CASINOPEN Open file POP IX JP NC,Windowpage LD (FILEH
+1),HL Save address of buffer PUSH AF CALL SETCHECKSUM POP AF CP &16
JR Z,TASCII Ascii file LD A,(HEADFLAG) OR A JR NZ,TASCII Headers Off C
ALL COMPILEHEADDER JP TASCI .TAscii CALL COMPILEXMODEM .TASCI CALL WINDOWPA
GE LD IX,(RECBORDER) CALL MBORDER CALL MPRINT Xmodem info window
LD A,(WRITEINFO) OR A JP NZ,Trwait LD HL,30*256+16 LD (Y),HL LD HL,(
XTYPE) CALL ANSITEXT JP Trwait ------------------------------- .TrLoop LD
HL,(BYTES) LD BC,(TLength) ADD HL,BC LD (BYTES),HLINC BYTES LD A,(BLOCK)
INC A LD (BLOCK),A LD HL,(NUMOFBLOCK) INC HL LD (NUMOFBLOCK),HL CALL
Writeinfo CALL COMPILEXMODEM .Trsend CALL Sendxmodem CALL JSendC
RC CALL JSendCheck LD A,(TEndFlag) OR A JP NZ,SENDEOT .Trwait LD A,60 CAL
L InputXmodem JP C,SendFatal .Trsort CP ACK JP Z,Trloop CP NAK JP Z,Trse
nd CP CAN JP Z,Fatalerror CP "C" JP NZ,Trwait OR A CALL JSETCRC JP C,TRSE
NDSEND IF IT WAS SETUP JP TRWAIT ------------------------- .JSendCheck NOP
LD A,E JP OUTPUT ------------------------ .JSendCRC RET XORA CALLU NPDA
TECRC XORA CALLUPDATECRC Update CRC LD A,D CALL OUTPUT LD A,E JP OUTPUT
------------------------- .Sendxmodem LD A,(SOHSTX) CALL OUTPUT LD A,(blo
ck) CALL OUTPUT CPL CALL OUTPUT LD BC,(TLength) LD HL,Xmodem LD DE,0 .S
Xloop LD A,(HL) INC HL CALL OUTPUT CALL JUPDATECHECK CALL JUPDATECRC D
EC BC LD A,B OR C JR NZ,SXLoop RET ----------------------------- .Compil
eHeadder LD HL,(TLength) LD BC,128 OR A SBC HL,BC PUSH HL Save leng
th .FILEHLD HL,0 File Haddress LD DE,Xmodem Dest LD BC,128 Length for 12
8 bytes of header LDIR copy POP BC BCLength EX HL,DE HLXmodem+128 JP
CXcount - - - - - - - - - - - - - - - .Compilexmodem LD HL,Xmodem Xmodem L
D BC,(TLength) .CXloop CALL CASINCHAR Get char JP C,CX CP &1A JP NZ,Compile
pack .CXLD (HL),A INC HL DEC BC .CXcount LD A,B OR C JR NZ,CXl
oop RET .Compilepack LD (HL),&1A INC HL DEC BC LD A,B OR C JR NZ,Compile
pack LD A,&FF LD (TEndFlag),A RET ----------------------------- .SendEOT L
D A,60 CALL InputXmodem JP C,SendFatal CP NAK JP Z,Trsend LD A,EOT CALL OU
TPUT LD A,60 CALL InputXmodem JP C,SendFatal LD A,EOT CALL OUTPUT - -
- - - - - - - - .SendFatal LD A,CAN CALL OUTPUT CALL OUTPUT CALL OU
TPUT CALL OUTPUT CALL OUTPUT .SENDEXIT CALL CASINCLOSE LD IX,(RECBORDER)
JP Windowwipe ------------------------------ .WRITEINFO NOP PUSH HL PUSH
BC PUSH DE LD HL,40*256+18 LD (Y),HL LD HL,(NUMOFBLOCK) CALL NUMBER16 LD
HL,40*256+19 LD (Y),HL LD HL,(BYTES) CALL NUMBER16PRINT POP DE POP BC POP
HL RET - - - - - - - - - - - - - - - - - - .SaveXmodem LD DE,(RECADD) LD HL
,XMODEM .SX1LD A,(HL) INC HL CALL CASOUTCHAR JP NC,FATALERROR DEC DE LD A,
D OR E JR NZ,SX1 RET Save buffer (11K worth) - - - - - - - - - - - - - - - -
- .XmodemRec CALL GETBLOCK RET C LD DE,0 LD (RECADD),BC LD HL,XMODEM
.X1KLD A,2 CALL InputXmodem RET C LD (HL),A INC HL CALL JUPDATECR
C CALL JUPDATECHECK DEC BC LD A,B OR C JP NZ,X1K RET - - - - - - - - -
- - - - - - - .GetBlock LD A,2 CALL InputXmodem JP C,GetBlockError LD (BL
OCK),A LD A,2 CALL InputXmodem JP C,GetBlockError LD (FFBLOCK),A OR A RE
T .GetBlockError SCF RET - - - - - - - - - - - - .PurgeBuffer PUSH AF .PB
LD A,2 CALL InputXmodem JR NC,PB POP AF RET - - - - - - - - - - - - .JUPD
ATECRC RET .UPDATECRC Entry BC CRC A byte Exit DE CRC Used AF,
DE,HL Table must be page aligned. Low bytes in first part, high bytes in
second part. PUSH HL PUSH BC LD H,CrcTable2 Base of table LD L,D Index wit
h top bytes of old CRC LD C,(HL) C is low byte INC H Next part of page aligned
LD B,(HL) B is high byte XOR C XOR lower part of CRC with data LD C,A put
back into CRC LD A,E A is bottom byte of CRC XOR B XOR with top part of new CR
C LD D,A LD E,C CRC back into DE POP BC POP HL RET - - - - - - - - -
- - - JCRC RET XORA CALLUPDATECRC XORA CALLUPDATECRC LD A,2 CALL Inpu
tXmodem RET C LD B,A CRC HI LD A,2 CALL InputXmodem RET C CRC LO CP E CP
CRC LO JP NZ,CRCError LD A,B CP D CP CRC HI JP NZ,CRCError OR A RET .C
RCError SCF RET ----------------------- .JCHECKSUM NOP LD A,2 CALL Inp
utXmodem RET C CP Ecp checksum JP NZ,CRCErrorJust sets carry OR A RET - -
- - - - - - - - - - .JUPDATECHECK NOP ADD E LD E,A RET ----------------
-------- .JASKCRC NOP LD B,3 .JACRCLD A,"C" CALL OutPut Send NAK LD
A,3 3 secs CALL InputXmodem Input JR NC,SETCRC If a char was receved then ..
DJNZ JACRC OR A RET ---------------------------- .SetCheckSum XOR A Cant se
t it on LD (JCHECKSUM),A LD (JUPDATECHECK),A Checksum ON LD (JSendCheck),A L
D A,&C9 LD (JCRC),A CRC ON LD (JUpdateCRC),A LD (JSendCRC),A RET ----------
------------------ .JSetCRC NOP .SetCRC PUSH AF XOR A LD (JCRC),A CRC ON
LD (JUpdateCRC),A LD (JSendCRC),A LD A,&C9 LD (JCheckSum),A CHECKSUM OFF LD
(JUpdateCheck),A LD (JSendCheck),A LD A,(WRITEINFO) OR A JR NZ,SCRC Window i
s truned off LD HL,42*256+17 LD (Y),HL N LD HL,CRCYES CALL TEXT .S
CRCPOP AF SCF RET .CRCYESSTR"Yes" ------------------------------ .XERROR L
D HL,(LASTBLOCKADD) CALL PURGEBUFFER CP &FC JP NZ,SENDNAK JP XMODEME
XIT .RCFILE CALL CASOUTABANDON CALL Windowwipe CALL Openfilebord CP
&FC JP Z,XMODEMQUIT LD A,C OR A JP Z,XMODEMQUIT CALL CASOUTOPEN Open out fi
le JP NC,Xeit1 LD IX,Fileborder CALL Windowwipe LD IX,FILESMENU C
ALL WindowWipe LD IX,(RECBORDER) CALL MBORDER CALL MPRINT Xmodem in
fo window LD HL,30*256+16 LD (Y),HL LD HL,(XTYPE) CALL ANSITEXT CALL SE
TCHECKSUM LD A,1 LD (EXPECTEDBLOCK),A Block 1 LD HL,0 LD (BYTES),HL No len
gth LD HL,1 LD (NUMOFBLOCK),HL CALL PURGEBUFFER CALL JASKCRC Ask for crc
JP C,SORT See what it is .SENDNAK LD A,NAK CALL OUTPUT Send NAK LD A,10
CALL InputXmodem Wait for char JP C,XERROR Timeout! .SORT CP EOT JP Z,En
dOfTrans CP SOH JP Z,XM1 CP STX JP Z,XM2 CP CAN JP Z,CANCELX JP SENDNAKHU
H - - - .XM1 LD BC,128 JP XM3 - - - .XM2 LD BC,1024 .XM3CALL Xmo
demRec Receieve 1024/128 bytes JP C,XERROR Error - - - CALL JCHECKSUM CALL
JCRC Compare with the checksum or CRC JP C,XERROR Error LD A,(BLOCK) LD D,
A LD A,(FFBLOCK) ADD D CP &FF JP NZ,XError If NOT ok then XError LD A,(EX
PECTEDBLOCK) LD D,A LD A,(BLOCK) CP D JP Z,XM4 The right block DEC
D The last block number CP D Compare JP NZ,FatalError If notthen fatal error
JP XMACK .XM4 CALL SaveXmodem If buffer needs saving then save PUSH HL L
D HL,(BYTES) LD BC,(RECADD) ADD HL,BC LD (BYTES),HLINC BYTES CALL WriteIn
fo Print Info - if needed POP HL LD A,(EXPECTEDBLOCK) INC A LD (EXPECTEDBL
OCK),A LD HL,(NUMOFBLOCK) INC HL LD (NUMOFBLOCK),HL .XMACKCALL SendACK S
end ACK JP NC,SORT If char then SORT CP &FC Was escaped pressed JP NZ,XMACK
No then Send ACK JP XmodemExit Exit - - - - - - - - - - - - - - .SendACK L
D A,ACK CALL OUTPUT LD A,10 JP InputXmodem Send ACK - - - - - - - - - - - -
- - .EndOfTrans CALL SendACK Send ACK to EOT JP C,XERROR If timed out then er
ror LD A,ACK Send ACK to NAK CALL OUTPUT Out an ACK JR XmodemExit Exit - -
- - - - - - - - - - - - .CancelX LD A,2 CALL InputXmodem JP C,XError Wait f
or another char CP CAN Was it CAN JP NZ,XError No then ERROR JP XmodemExit El
se exit - - - - - - - - - - - - - - .FatalError LD A,CAN CALL OUTPUT CALL O
UTPUT CALL OUTPUT CALL OUTPUT CALL OUTPUT Sends 3 Cans - - - - - - -
- - - .XmodemExit .XEIT1CALL CASOUTCLOSE LD IX,(RECBORDER) JP Windowwipe
------------------------------ .InputXmodem PUSH HL PUSH DE PUSH BC L
D (IXTIMER+1),A XOR A LD (TIMER),A .IXLOOP LD A,66 CALL &BB1E LD A,&FC JP
NZ,IXCARRY CALL INPUT JR C,IXRET LD A,(TIMER) .IXTIMER CP 0 JR NZ,IXL
OOP .IXCARRY POP BC POP DE POP HL SCF RET .IXRET POP BC POP DE POP HL
OR A RET .PWINDOW BYTE 43,5 BYTE7,16 BYTE5,14 BYTE44,6 WORDPJPBYTE 0
.XXK0 BYTE" Xmodem",0 .XXK1 BYTE" Xmodem 1K",0 BYTE" CRC ",0 BYTE" Win
dow ",0 BYTE" Header ",0 .PJP WORD XNORM WORD XONEK WORD CRCONOFF WORD WIN
DOWONOFF WORD HEADONOFF .PROTO LD IX,PWINDOW CALL MBORDER CALL MPRINT CA
LL PROINFO .PROT2 LD A,(IX+10) LD (MCURY),A CALL MENUCURSOR CP &FC JR Z,
PROEXIT JP (HL) .PROEXIT LD IX,PWINDOW CALL WINDOWWIPE LD A,&FE RET
- --------- ---------- - .PROINFO LD A,(JASKCRC) LD DE,54*256+8 LD (Y),D
E CALL PINFO LD A,(WriteInfo) LD DE,54*256+9 LD (Y),DE CALL PINFO
LD A,(HEADFLAG) LD DE,54*256+10 LD (Y),DE .PINFOOR A JP NZ,PI0 LD HL,
ON2 JP ANSITEXT .PI0LD HL,OFF2 JP ANSITEXT ---------------------------- .XN
ORM LD A,SOH LD (SOHSTX),A LD HL,128 LD (TLENGTH),HL LD HL,XXK0 LD (XTYPE)
,HL JP PROEXIT - - - - - - - - - - - - - - - .XONEK LD A,STX LD (SOHSTX),A
LD HL,1024 LD (TLENGTH),HL LD HL,XXK1 LD (XTYPE),HL JP PROEXIT - - - - - -
- - - - - - - - - .CRCOnOff LD A,(JASKCRC) OR A JP Z,XNO1 XOR A LD HL,ON2
JR XNO2 .XNO1 LD A,&C9 LD HL,OFF2 .XNO2LD (JASKCRC),ADONT ASK N
FOR CRC LD (JSETCRC),ADONT SET CRC IF ASKED! LD DE,54*256+8 LD (Y),DE CAL
L ANSITEXT JP PROT2 - - - - - - - - - - .WindowOnOff LD A,(WriteInf
o) OR A JP Z,XWN1 XOR A LD HL,ON2 LD DE,XmodemInfo JR XWN2 .XWN1 LD A,&C
9 LD DE,XmodemSign LD HL,OFF2 .XWN2LD (WriteInfo),A LD (RECBORDER),DE LD
DE,54*256+9 LD (Y),DE CALL ANSITEXT JP PROT2 -------------------------- .He
adOnOff LD A,(HeadFlag) OR A JP Z,XHD1 XOR A LD HL,ON2 JR XHD2 .XHD1 LD
A,&C9 LD HL,OFF2 .XHD2LD (HeadFlag),ADONT ASK FOR CRC LD DE,54*256+10 LD (
Y),DE CALL ANSITEXT JP PROT2 - - - - - - - - - - .KKEY CALL KMIN
ITReset keys CALL SETKEYSSetup keys LD A,9 LD B,0 JP KMSETREPEATso copy wont
pull down more than one menu .XMODEMINFO BYTE 29,14 BYTE 7,20 BYTE 5
BYTE 0 BYTE 31,15 WORD 0BYTE 0 STR"X" STR"m" STR"o" STR"d" STR"e" STR"m"
STR" " STR"V" STR"3" STR"." STR"3" STR" " STR"1" STR"9" STR"9" STR"1"
BYTE 0 BYTE0 BYTE"CRC No ",0 BYTE"Block ",0 BYTE"Bytes ",0 .XMO
DEMSIGN BYTE 29,14 BYTE 3,20 BYTE 1 BYTE 0 BYTE 31,15 WORD 0BYTE 0 STR"X"
STR"m" STR"o" STR"d" STR"e" STR"m" STR" " STR"V" STR"3" STR"." STR"3"
STR" " STR"1" STR"9" STR"9" STR"1" BYTE 0 YTE"Xmodem V3.3 1991",0
,1 LD (DY),HL retsave Cursor pos in DY 0 Pp£"2BRbr4$tdTD&6fvFVXHxh8(JZjz *l
L,nN. !"#$%&'()*+,-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstu
vwxyz£ !"#$%&'()*+,-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrst
uvwxyz1 PRINT "Starting" ORG &5000 nolist &400BUFFER START &1000BU
FFER END &1060SCROLL BACK START &2000Char/ansi fornt buffer &3000CHARSETS &4
000DIRECTORY BUFFER &4800XMODEM &4C00CRC TABLES &5000 graphics start &7000
programme start &9000global data graphics unit start gu equ &5000 ----
------------------------------ org &6b00 write "btermdata.bin" read "commo
n"common data --------------------------------- org &7000 write "bterm
exc.bin" read "main" read "menus" read "file" read "xmode
m" read "rs232" read "dataprog" ----------------------------------
end. ,1 LD (DY),HL retsave Cursor pos in DY t &7000programme start &9
000global data graphics unit start gu equ &5000 -----------------------
----------- org &6b00 write "btermdata.bin" read "common"common data
--------------------------------- org &7000 w1 PRINT "Starting" ORG &5
000 nolist &400BUFFER START &1000BUFFER END &1060SCROLL BACK START &2
000Char/ansi fornt buffer &3000CHARSETS &4000DIRECTORY BUFFER &4800XMODEM &4
C00CRC TABLES &5000 graphics start &7000programme start &9000global data
graphics unit start gu equ &5000 ---------------------------------- or
g &6b00 write "btermdata.bin" read "common"common data -------------------
--------------- org &5000 write "btextdrv.bin" read "textini" read
"ansi" read "textsys" read "window" read "datatext" -----
----------------------------- end. ------ end. ,1 LD (DY),HL retsave
Cursor pos in DY t &7000programme start &9000global data graphics unit
start gu equ &5000 ---------------------------------- org &6b00 write "b
termdata.bin" read "common"common data ----------------------------------
org &5000 write1 print "Windowing System" ------------------------------
PULLDOWN A MENU/MOVE/CALL/CLAER/RET ENTRY IX AS POINTER EXIT -------------
--------------------- .PULLDOWN CALL MBORDER Print border CALL MPRINT Print t
ext .PDOWN1PUSH IX Save IX LD A,(IX+10) CP &FF If &FF then dont set Y JR N
Z,PDOWN2 XOR A Reset .PDOWN2LD (MCURY),A Set y CALL MENUCURSOR Move cursor
.PDOWN3 JP C,PULLSC Returned form mcursor. CP &FC JR Z,PULLSC CALL CLEAR
NKEYS Clear the buffer CALL PULLJP CALL SUBS HERE!!! POP IX Get last IX C
P &FF JR Z,PULLDOWN If &FF pulldown again - reprint CP &FE JP Z,PDOWN1 If &FE
then return - traditional esc code XOR A RETret .PULLSC POP IX PUSH AF CA
LL WINDOWWIPEclear window POP AFget &fc/9/8 - last key - move left rig
ht RET .PULLJPJP (HL)does a CALL (HL) if you call this --------------
----------------------------- Print on the screen from buffers Entry Hx,Ly
CHeight, BWidth Used all ------------------------------------------- .Window
CALL WAITFLYtime LD (WINXY),HLsave x,y LD A,B LD (WINWIDTH),Asave width of
window .WINLP CALL ScrAddresscalk address of far left LD (WINADD),HLsave add
LD HL,(WINXY) CALL Getaddressfind address LD A,(WINWIDTH) LD B,Abw
idth .WINLP2PUSH BCsave width/height LD A,H ADD &8 LD H,Aadd &800 - or 2K L
D C,(HL)Get font SUB &8 LD H,Aset back LD B,(HL)get char PUSH HLSAVE
ADD IN BUFFER LD A,C OR A JP NZ,WINLP5ALL FONTS OFF CP 32 JP Z,Winsmashpri
nt a blank cell .WINLP5 BIT 4,C JP NZ,Winsmashif smashed then blank sell
LD A,B LD HL,WindowCharbuffer CALL WINFONTset main font BIT 2,C CALL N
Z,Underrtn BIT 1,C CALL NZ,Italicrtn BIT 3,C CALL NZ,Inverse etc .. etc...
EX HL,DEdebuffer LD HL,(WINADD)hl CALL ANSICHAR .WINLP3LD HL,(WINADD)hl
CALL NEXTBYTEupdata scr bytes LD (WINADD),HLsave POP HLget
buffer INC HLnext byte in buffer .WIN1POP BCget loop counters DJNZ WI
NLP2loop width LD HL,(WINXY) INC Linc Y LD (WINXY),HL DEC Cdec height JP NZ
,WINLPjp if not 0 XOR A RET .WINSMASH LD HL,(WINADD) XOR A CALL CELL2
JR WINLP3 .WINFONT BIT 7,A JP NZ,Getcharacter BIT 5,C JP NZ,Feintrtn BIT
0,C JP NZ,Boldrtn JP Getcharacter .ROLLDOWN PUSH AF PUSH HL CALL JBUF
FERROLL LD DE,&FFD0 LD B,&30 CALL RLCLEAR LD HL,(RLOFFSET) LD DE,&FFB0 ADD
HL,DE CALL RLSETOFFSET LD DE,&0 LD B,&20 CALL RLCLEAR POP HL POP
AF RET .ROLLUP PUSH AF PUSH HL CALL JBUFFERROLL LD DE,&FFD0 LD B,&30 C
ALL RLCLEAR LD HL,(RLOFFSET) LD DE,&50 ADD HL,DE CALL RLSETOFFSET L
D DE,&FFB0 LD B,&20 CALL RLCLEAR POP HL POP AF RET .RLCLEAR LD HL,(RLOFFS
ET) ADD HL,DE LD A,H AND &7 LD H,A LD A,&C0 ADD A,H LD H,A LD D,B
LD E,8 .RLCLR LD B,D PUSH HL .RLCL2LD (HL),0 INC L JR NZ,RLCL3
INC H LD A,H AND &7 JR NZ,RLCL3 LD A,H SUB &8 LD H,A .RL
CL3 DJNZ RLCL2 POP HL LD A,H ADD 8 LD H,A DEC E JR NZ,RLCL
R RET ------------------------------- PRINT THE MENU BORDER ENTR
Y IX points to info EXIT NONE USED ALL ------------------------------ .MBORD
ER LD H,(IX+0) LD L,(IX+1)HLX,Y CALL SCRADDRESSHLscr address CALL MLINEprint
top line LD A,(IX+2)aheight ADD A ADD A ADD A*8 SUB 2aheight*8-2 LD C,
Aca LD B,(IX+3)width DEC B DEC Bwidth-2 LD D,0 .MBLP1 PUSH HL LD
(HL),%11000000 left bit of border INC HL LD E,B .MBLP2LD (HL),D CALL N
EXTBYTE DJNZ MBLP2clear in between bytes LD B,E LD (HL),%00000011right bit of
window POP HL CALL NEXTLINEnextline DEC C JR NZ,MBLP1for height*8-2 CALL M
LINEbottom line RETret .MLINE PUSH HLdfillerbyte LD D,255 LD B,(IX+3)widt
h .MBLP3 LD (HL),D CALL NEXTBYTE DJNZ MBLP3fill POP HL CALL NEXTLINE RETr
et --------------------------------- PRINT A MENU ENTRY IX points to info
EXITnone USEDall ---------------------------------- .MPRINT PUSH IX POP HL
LD DE,11 ADD HL,DE LD D,(IX+6) LD E,(IX+7) LD B,(IX+4) MPRT1PUSH BC PUSH
DE LD (Y),DE CALL PULLPRINT POP DE POP BC INC E DJNZ MPRT1 RET -------
------------------------------ SELECT A COMMAND IN A MENU --------------------
----------------- IX points to window info -------------------------------
------ .MCURSOR LD A,(IX+10) Check last state CP &FF If &FF then set to 0 JR
NZ,MCIX XOR A .MCIXLD (MCURY),A Save last state in buffer .MENUCURSOR C
ALL MPRINTCUR .MC1CALL KMWAITCHARwait for key CP &FC JP Z,MCEXITESCif esc t
hen return CP 8 JP Z,MCEXI NTBSif arrow then return CP 9 JP Z,MCEXITTBif ar
row then return CP 11 JR Z,MCUPif 11 then move up CP 10 JR Z,MCDOWNif 10 the
n move down CP &E0 JR Z,MCENT FLash cursor! and do CP 13 jp nz,hotkeys
.mcent ld b,3 .mc2 push bc CALL MPRINTCURSWAP cursor LD BC,&1000
.MC3DEC BC LD A,B OR C JR NZ,MC3pause POP BC DJNZ MC2 LD A,(MCUR
Y) Get Y .MCE4LD L,A LD H,0 HLY ADD HL,HL *2 LD D,(IX+9) LD E,(IX+8
) DE bace of jump table ADD HL,DE Add to bace of char LD E,(HL) INC HL LD D,
(HL) DEAddress EX HL,DE HLaddress to jump/call LD A,(MCURY) Get Y LD D,A Dy
LD A,(IX+10) CP if &FF CP &FF JR Z,MCIX2 LD (IX+10),D IX set to y .MCIX2
XOR A A0 RET Ret - - - - - - - - .MCEXITBS LD A,(COM) CP 0 JP Z,MC1
LD HL,WINRET LD A,8 SCF RET - - - - - - - - .MCEXITTB LD
A,(COM) CP 5 JP Z,MC1 LD HL,WINRET LD A,9 SCF RET .MCEXITESC
LD HL,WINRET LD A,&FC OR A RET - - - - - - - - .MCUP
CALL MPRINTCURremove cursor LD A,(MCURY) DEC Ainc Y CP &FF JR NZ,MC
U1 LD A,(IX+4)if Y0 then Yno of commands-1 DEC A .MCU1 LD (MCURY),A
JP MENUCURSOR - - - - - - - - .MCDOWN LD A,(MCURY)basicly the same C
ALL MPRINTCUR LD A,(MCURY) INC A CP (IX+4) JR NZ,MCD1 XOR A .MCD1 LD (MCU
RY),A JP MENUCURSOR - - - - - - - - .HOTKEYS RES 5,A
LD C,A PUSH IX POP HL LD DE,11 ADD HL,DE LD D,0 LD B,(IX+4) .HOTKLD A,(H
L) INC HL OR A JP Z,HOT1 BIT 7,A JR Z,HOTK RES 7,A RES 5,
A CP C JR NZ,HOTK LD A,(MCURY) PUSH DE CALL MPRINTCUR POP DE LD A
,D LD (MCURY),A CALL MPRINTCUR JP MCENT .HOT1 INC D DJNZ HOTK
JP MC1 ----------------------------- .MPRINTCUR LD B,(IX+5) LD H,
(IX+6) LD L,(IX+7) LD A,(MCURY) ADD L LD L,A JP INVERSELINE --------------
--------------- WINRET CALL WINDOWWIPE LD A,&FE RET -------------------
-------- .WINDOWWIPE LD H,(IX+0)clear window LD L,(IX+1) LD C,(IX+2) LD B,(
IX+3) JP WINDOW ---------------------------- .WINDOWPAGE CALL INKOFF
LD HL,0 LD B,80 LD C,25 CALL WINDOW CALL INKON XOR A RET --------------
------------ ------ end. ,1 LD (DY),HL retsave Cursor pos in DY 6
#PPwyPPwyy!-Px!"Vk!(y(!(!"Vk! y!PoPP2TkP187z(( (. ( P2xyPTk 2TkTkPGTk 2Tk '!Sz-P
!-P0P3PxzPYz!SzP!PsRk!"Vkp!vzp!zp!zp!zp!zq!zoPfPfP(F (!Y(N !qP!kPP2WkVk2Vk(Y!kN!
qRk2&!"Vk!'PkS$FfP&0fP fP*$ 6 6##$ 2k1 print "Main programme data area" .ma
inret ret .SP300STR"300 " .SP1275STR"1200/75 " .SP1200STR"1200 " .SP2400S
TR"2400 " .SP9600STR"9600 " .MAINSTART byte 16,6word DIALMAINMENU byte 2
5,7word FILESMENU byte 35,8word BUFFERMENU byte 46,11word DIRMENU byte 60,7wo
rd PRINTERMENU byte 70,7word SETUPMENU FILESMENU BYTE 25,1 x,y location
of window BYTE 9 height BYTE 17 width BYTE 7 7 entries in wind
ow - for selection BYTE 15 cursor width BYTE 26,2 cursor start WORD FI
LESJPBYTE 0 location of jp table + 0 BYTE" ","C"+&80,"atalogue",0 BYTE" ","D
"+&80,"os",0 BYTE" ","T"+&80,"ransmit file",0 BYTE" ","R"+&80,"eceive file",0
BYTE" ","P"+&80,"rotocol",0 BYTE" ","V"+&80,"iew file",0 BYTE" File ","S"+&80
,"tats",0 FILESJP WORD CATALOUGE WORD DOS WORD TRFILE WORD RCFILE WORD PRO
TO WORD VIEWFILE WORD FILESTATS BUFFERMENU BYTE 35,1 BYTE 4 BYTE 16 BYT
E 2only 3 in menu BYTE 14 BYTE 36,2 WORD BUFFERJPBYTE 0 BYTE" ","V"+&80,"iew
buffer",0 BYTE" ","S"+&80,"croll back",0 BYTE" ","S"+&80,"ave buffer",0 BYTE
" ","C"+&80,"ilp & Save",0 YTE" ","C","L"+&80,"ear buffer",0 BYTE" ","R"+&80,"
eset buffer",0 BUFFERJP WORD VBUFF ORD VIEWBACK WORD SAVEBUFFER WORD CLIPSA
VE ORD CLEARBUFFER ORD RESETBUFFER PRINTERMENU BYTE 60,1 BYTE 5 BYTE 18
BYTE 3 BYTE 16 BYTE 61,2 WORD PRINTERJPBYTE 0 BYTE" Print ","P"+&80,"age",0
BYTE" Print ","B"+&80,"uffer",0 BYTE" ","C"+&80,"lip page",0 PRINTER N
JP WORD printpage WORD printbuffer WORD CLIPPAGE SETUPMENU BYTE 66
,1 BYTE 8 BYTE 14 BYTE 6 BYTE 12 BYTE 67,2 WORD SETUPJPBYTE 0 BYTE" ","P"
+&80,"ort",0 BYTE" ","E"+&80,"chos",0 BYTE" ","M"+&80,"acros",0 BYTE" ","S"+&
80,"ave",0 BYTE" ","Q"+&80,"uit",0 BYTE" ","H"+&80,"ang up",0 SETUPJP WORD s
etBAUDSTART WORD CusEchos WORD CusMacros WORD CusVerson WORD ESCAPE WORD HA
NGUP .DOSWIN BYTE 36,3 BYTE 5,14 BYTE 3,12 BYTE 37,4 WORD DOSJPbyte 0 B
YTE " ","D"+&80,"rive",0 BYTE " ","E"+&80,"rase",0 BYTE " ","R"+&80,"ename",0
.DOSJP WORDDRIVE WORDERASE WORDRENAME .DialMainmenu BYTE 16,1,4,15
BYTE 2,13,17,2 WORD DJumpbyte 0 BYTE " ","D"+&80,"ial list",0 byte" ","P"+&80
,"refix",0 .DJump WORD Dialup word inputprefix DIRMENU BYTE 46,1 BYTE
6 BYTE 14 BYTE 4 BYTE 12 BYTE 47,2 WORD DIRJPBYTE 0 BYTE " ","A"+&80,"dd n
ame",0 BYTE " ","E"+&80,"rase name",0 BYTE " ","S"+&80,"ave",0 BYTE " ","C"+&
80,"lear",0 DIRJP WORD ENTERNAME WORD ERASENAME WORD SAVEDIR WORD ERAS
EDIR .DIALINFO BYTE 0,10,8,41 BYTE 7,0,2,11 WORD 0BYTE &FF BYTE "DIRECTOR
Y PAGE ",0 BYTE 0 YTE "Control Calls",0 BYTE "Control",0 BYT
E "Speeds",0 BYTE "Times",0 BYTE "Notes",0 .BBSLISTbyte 13,2,22,56 byte 20
,54,14,3 BYTE 42,2,22,38 BYTE 20,36,43,3 .LOADIRERRBYTE 50,10,3,22 .ENTE
RBBSBYTE 14,6,5,53 .BBSNAMESTR "Name " .BBSNUMBERSTR "Number " .BBSTIMESSTR
"Times " .BBSNOTESSTR "Notes " .KEYS BYTE0,11 BYTE1,9 BYTE2,10 BYTE8,
8 YTE 79,8 BYTE 24,27 BYTE7,&E8 BYTE6,13 BYTE &FF .EXPANDTABLE WORD FK0
WORD FK1 WORD FK2 WORD FK3 WORD FK4 WORD FK5 WORD FK6 WORD FK7 WORD FK8
WORD FK9 .LOGON2 BYTE &82," BBS TERMINAL V6.00 SHIFTArrow for ANSI
cursor",&80,10,13,0 .LOGON BYTE"BBS TERMINAL V6.00",10,13 BYTE"FREEWARE C
OMMUNICATIONS TERMINAL",10,10,13 BYTE "All rights to this programme are retain
ed by the Author.",10,13 BYTE"I grant the right to distribute this program, pro
viding that no charge",10,13 BYTE"is made. I also grant the right to distribut
e modified copies of this",10,13 BYTE"program, providing that no charge is made
, and the author's names stay",10,13 BYTE"intact.",10,10,13 BYTE&81,"DIRX.BBS
Dialing list",10,13 byte "TERMCRC.BBS ",10,13 byte " &000-&200 CRC tab
les",10,13 byte " &200-&300 Input matrix",10,13 byte " &300-&400 Out
put matrix",10,10,10,13 BYTE"Written by ",&81,"Glenn Wilton",&80," 1991",10,13
BYTE"Ansi based on code by Ewen McNeill 1990",10,10,13 BYTE&81,"LOADING DI
RECTORY",&80,13,10,0 .USERXSTR "USER" .ERASTRSTR "ERA" .ERAIXWORD ERALEN .
ERALEN BYTE 0 WORD NAME .NAME1DEFS 16 .NAME2DEFS 16 .NEWNAME STR"NEW NAME "
.OLDNAME STR"OLD NAME " .RENIXNAME2WORD NAME2LEN .RENIXNAME1WORD NAME1LEN .
NAME1LENBYTE 0 WORD NAME1 .NAME2LENBYTE 0 WORD NAME2 .RENSTRSTR "REN" .RS
XCALLWORD 0 .RSXROMBYTE 0 .FILENAMESTR"Filename " .NAMEBYTE"XMODEM
" LastBLockAddWORD XmodemStart .ExpectedBlockBYTE 1 .RecBorderWORD Xmodem
Info .RecAddWORD 0 CRCBYTE 32 .BytesWORD 0 .BlockBYTE 0 .FFBlockBYTE 0 .CR
CVALWORD 0 .SOHSTXBYTE 1 .SendHeaderSTR "Send file header (Y/N)" .TLengthWORD
128 .TEndFlagBYTE 0 .HEADFLAGBYTE 0 .NUMOFBLOCKWORD 0 .XTYPEWORD XXK0 .ON2
BYTE "On ",&80,0 .OFF2BYTE "Off",&80,0 .DYWORD 0 .PULLSTACKWORD 0 .PULIXWORD
0 .TYPBYTE 0 .HEADDERWORD 0 .FSJPWORD 0 .BASICSTR"BASIC" .BINARYSTR"BINARY
" .SCREENSTR"SCREEN" .ASCIISTR"ASCII" .PROTSTR"P " .FILELENGTHSTR"File lengt
h &" .DATALOCSTR"Data location &" .TYPESTR"File Type " .STRSPACESTR
" " .CSXBYTE 0 HELPNAMEBYTE "HELP.BBS" .SWITCHSTR "Set to " .BAUDTEMPBYTE
0 .CLIPSVWORD 0 .CLIPLENWORD 0 .CLIPYWORD 0 .CYCBORBYTE 0,9,15,41 .CY
CTXBYTE "COPY Add ESC Quit/Exit",0 .CYCTX1BYTE "DEL Wipe ENTER Dial
",0 .CYCNUMBYTE 0 .CYCYBYTE 0 .DIALTIMEBYTE 0 .NONEBYTE "None" .ATDTBYTE "A
TDT" .ATDPBYTE "ATDP" .DIALJUMPWORD TONE .DIALCONTROLWORD atdt .DialSelectBY
TE 0 .NUMBERWORD 0 .DIALCALLSBYTE 0 .DIRFILENAMEBYTE "ADIR" .PAGENUMBERBYTE
"0.BBS" .LOADIRMSGBYTE &82,"Directory not found",&80,0 .BBSYBYTE 0 .CAPBYTE 0
.CAPSYBYTE 0 .CAPBUFWORD 0 .CAPLENWORD 0 .DEFWORDWORD 0 .DEFNUMBYTE 0 .DE
NFINETXTBYTE "# for CR",0 .SAVEPERSSTR "Save a personal copy (y/N) " .ANSIFI
LENAMEBYTE &82,"Filename ",&80,0 .NEWTERMDEFS 16 .CUSYESBYTE &82,"Yes",&80,0
.CUSNOBYTE &82,"No",&80,0 .LOCECHOSTR "Local Echo . . . . . " .REMECHOST
R "Remote Echo . . . . " .LOCDELSTR "Local destructive delete " .LOCL
FSTR "Local add LF to CR . . " .REMDELSTR "Remote destructive delete " .R
EMLFSTR "Remote add LF to CR . . " .ERRORONDISCSTR"Disc error" .STARTSTACKW
ORD 0 .INFOSTARTWORD 0 .DIALTIMEOUTBYTE 30 .MANUALTIMEOUTBYTE 120 .CYCBU
FFERDEFS 300,32 .ENDCODE .HEndcode EQU Endcode MOD &100 .NextpageRMEM &100-
HEndcode,&FF LIST .OPSTART OUTBUFFFRMEM &100 .OUTBUFFF .OUTSTAR
T2EQU OPSTART/&100 .amsdosEQU OPSTART+&100 ,1 LD (DY),HL retsave Cursor po
s in DY .REMDELSTR "Remote destructive delete " .REMLFSTR "Remote add LF to
CR . . " .ERRORONDISCSTR"Disc error" .STA1print "Text system" .ScreenDep
th EQU 24 .ScrDepthBYTE 24 .PULLPRINT PUSH AF EX DE,HL .PP0 LD A,(DE) I
NC DE OR A JP Z,PULLPOP PUSH DE LD E,A LD D,Charmap2 BIT 7,E JP Z
,PP1 LD D,boldfint2 .PP1 LD HL,(Y) CALL SCRADDRESS CALL CHAR
POP DE LD A,(X) INC A LD (X),A CP 80 JR NZ,PP0 XOR A LD (X),A JP PP0
.PULLPOP EX HL,DE POP AF RET ------------------------------------ .Wri
teChar PUSH AF PUSH BC PUSH DE PUSH HL CP 13 Jp Z,WCLF CP 10 J
p Z,WCDOWN PUSH AF LD HL,(Y) CALL SCRADDRESS POP AF LD D,CHARMAP2 LD E,A
CALL CHAR LD HL,(Y) INC H LD A,H CP 80 JR NZ,WC2 LD H,0INC L .WC2LD A,L
CP 25 JR NZ,WC3 call rollup LD L,24 LD L,0 .WC3LD (Y),HL .WCENDPOP HL
POP DE POP BC POP AF RET .WCLF LD A,(X) XOR A LD (X),A JP
WCEND .WCDOWN LD HL,(Y) INC L JR WC2 .ScreenWrite CALL jprint JP Jan
si ---------------------- PRINT CHAR Entry (X) (Y) x,y pos Achar Exit --
------------------- .jprint NOP .PRINT PUSH AF PUSH BC PUSH DE
PUSH HLSave regs OR A Jp Z,PRINTSKIP CP 27 JR NZ,PCH1 LDA,&C9
LD(JScrnBuf),A Screen buffer off LD(Jprint),A Screen display off. XORA LD(JAn
si),A Ansi display on. JPPEND2 .PCH1 CP 7 JP Z,SOUNDCHARsound char
LD D,A LD A,(cursoron) OR A CALL NZ,cursorswap cursor XOR A LD (cur
soron),A LD (cursorcount),A LD A,&C9 LD (jchangecursor),A LD A,D
LD HL,(Y) CP 8 JR Z,CULEFTmove cur left CP 9 JR Z,CURIGHTmove cur right CP
10 JP Z,CUDOWNmove cur down CP 11 JR Z,CUUPmove cur up CP 13 JR Z,C
ULFline feed CP 12 JP Z,CLEARSCRCLS LD E,AEchar no LD D,charmap/256DMap b
ase CALL JSCRNBUF put in buffer LD HL,CHARACTER OR Aset Carry to 0 CALL
JSMASH JR C,writetoscrsmashed - canceled then no need to calk the rest .. simp
le! BIT 7,A JR Z,noskipnbg CALL GETCHARACTER JP skipnbg .noskipnbg
CALL JGETCHARACTER CALL JBOLD CALL JFEINT .skipnbg CALL JITALICS C
ALL JUNDER CALL JINVERSE .writetoscr ex hl,de ld hl,(y) C
ALL SCRADDRESSget screen address of x,y CALL ansicharprint on screen LD HL,(
Y)get x,y .curight INC H move cur right one cell, if at end (80) wrap LD A,
H CP 80 JR NZ,PRINTEND INC L LD A,(ScrDepth) CP L JR NZ,CUR2 CALL ROLLUP
LD A,(ScrDepth) DEC A LD L,A .CUR2LD H,0 .PRINTEND LD (Y),HLstore new
pos .PEND2 XOR A LD (jchangecursor),A .PRINTSKIP POP HL POP DE POP BC P
OP AF RET restore regs/ret .CULF LD H,0cur left/stop if
at x0 JP PRINTEND .CULEFT DEC H LD A,H CP &FF JP NZ,PRINTEND
LD H,79 DEC L LD A,L CP &FF JP NZ,PRINTEND LD L,0 JP PRINTEND
LD A,H OR A JR Z,PRINTEND DEC H JP PRINTEND .CUUP LD A,L OR
A JP Z,PRINTEND DEC L JP PRINTEND .CUDOWN INC Lmove cur down/if 25 then r
oll LD A,L CP 25 LD A,(ScrDepth) CP L JP NZ,PRINTEND CALL ROLLUP L
D A,(ScrDepth) DEC A LD L,A LD L,24 JP PRINTEND .SOUNDCHARs
ound char eg chr$(7)-bell CALL &BB5A POP HL POP DE POP BC POP AF R
ET .characterdefs 8 .JGetCharacter NOP .GetCharacter PUSHHL LDE,A LDD
N,charmap2 LDB,8 .GC1LDA,(DE) LD(HL),A INCD INCHL DJNZGC1 POPHL
RET .JBoldBYTE&C9 0 On, &C9 off .Boldrtn PUSHHL LDE,A SET7,
E LDD,boldfint2 LDB,8 .bold1LDA,(DE) LD(HL),A INCD INCHL DJNZbold
1 POPHL RET .JfeintBYTE &C9 .feintrtn PUSHHL LDE,A LDD,boldfint2 LDB
,8 .fint2LDA,(DE) LD(HL),A INCD INCHL DJNZfint2 POPHL RET .JIt
alics BYTE&C9 0 on, &C9 off .Italicrtn PUSHHL Save HL through routine. LDB
,04 First 4 characters moved right .Ital1LDA,(HL) Get byte SRLA Move right LD
(HL),A And resave INCHL Next byte DJNZItal1 POPHL Restore HL RET .JUnderB
YTE&C9 0 on, &c9 off .Underrtn PUSHHL Save HL LDB,7 .Und1INCHL Move up 7
DJNZUnd1 LDA,&FF Forces underline LD(HL),A And saves data. POPHL RET .JIn
verse BYTE&C9 0 on, &c9 off .Inverse PUSHHL Save HL LDB,8 .Inv1LDA,(HL) G
et byte CPL turn it inverse LD(HL),A Resave INCHL next byte DJNZInv1 POPHL
restore HL RET .JSmashBYTE&C9 0 on, &C9 off .Smash PUSHHL Save HL LDB,8
XORA .Sm1LD(HL),A 0 all bytes -- ie, concealed. INCHL
DJNZSm1 POPHL SCF RET .clearscr ------------
--------------- CLEAR THE SCREEN Entry None Exit - exits through PEND2 -----
---------------------- CALL CLSSCREEN JP PEND2ret .CLSscreen
--------------------------- CLEAR THE SCREEN Used Exit HLX,y pos ---------
-------------------- CALL jclearbufclear buffer XOR A CALL CLS XOR A LD (cu
rsoron),A LD (cursorcount),A LD HL,(Y) RET .CLS ------------------------
FILL SCREEN WITH A BYTE Entry none Exit ------------------------ PU
SH AF PUSH BC PUSH HL PUSH DEsave regs LD (&C000),Ald &c000 with byte to cop
y CALL INKOFF LD HL,&C000 LD DE,&C001 LD BC,&3FF0 LDIRcopy byte to whole sc
r LD HL,0 CALL RLSETOFFSETset hardware offset CALL INKON LD HL,0 LD (Y),HLx
,y0 POP DE POP HL POP BC POP AF RETrestore / ret .INKOFF LD A,1 CALL &
BC35 LD (OLDINK),bcSAVE INK COLOUR LD A,0 CALL &BC35GET BACKGROUNG LD A
,1 JP &BC32ink 1,BACK .INKON LD A,1 LD BC,(OLDINK) JP &BC32ink 1,
OLDINK .OLDINKBYTE 26,26 ------------------------------------ .TEXT LD A
,(HL) PUSH AF RES 7,A LD D,CHARMAP2 LD E,A PUSH HL PUSH AF
LD HL,(Y) CALL SCRADDRESS POP AF CALL CHAR LD HL,(Y) INC H LD A,H CP 80
JR NZ,T2 LD H,0INC L T2LD A,L CP 25 JR NZ,T3 LD L,0 T3LD (Y),HL POP HL
INC HL POP AF BIT 7,A RET NZ JR TEXT .CHAR --------------------------
- FILL A CHAR (from paged map) Entry HLscreen address if top of cell DEStar
t of maped char exit B,DE,HL,AF corrupt --------------------------- LD B,8fil
l a cell with a char from paged map LD A,(DE) 1load A with byte from map
LD (HL),ALoad scr with byte LD A,H ADD B LD H,Anext line down INC D
next byte LD A,(DE) 2repeat another 7 times LD (HL),A LD A,H ADD B
LD H,A INC D LD A,(DE) 3 LD (HL),A LD A,H ADD B LD H,A INC D L
D A,(DE) 4 LD (HL),A LD A,H ADD B LD H,A INC D LD A,(DE)
5 LD (HL),A LD A,H ADD B LD H,A INC D LD A,(DE) 6 LD (HL
),A LD A,H ADD B LD H,A INC D LD A,(DE) 7 LD (HL),A LD A,H ADD B
LD H,A INC D LD A,(DE) 8 LD (HL),A RET .AnsiChar ---------
------------------ FILL A CHAR (from 8 bytes) Entry HLscreen address if top
of cell DEStart of 8 bytes exit B,DE,HL,AF corrupt --------------------------
- LD B,8fill a cell with a char from paged map LD A,(DE) 1load A with by
te from map LD (HL),ALoad scr with byte LD A,H ADD B LD H,Anext line down
INC DEnext byte LD A,(DE) 2repeat another 7 times LD (HL),A LD
A,H ADD B LD H,A INC DE LD A,(DE) 3 LD (HL),A LD A,H ADD B LD H
,A INC DE LD A,(DE) 4 LD (HL),A LD A,H ADD B LD H,A INC DE
LD A,(DE) 5 LD (HL),A LD A,H ADD B LD H,A INC DE LD A,(DE
) 6 LD (HL),A LD A,H ADD B LD H,A INC DE LD A,(DE) 7 LD (HL
),A NLD A,H ADD B LD H,A INC DE LD A,(DE) 8 LD (HL),A RET
.CURSOR ---------------------------- XOR CELL AT CURRENT CUR POS Enter (Y) (X
) contain pos Exit --------------------------- PUSH AF PUSH BC PUSH HL
LD HL,(Y)save regs/hx ly CALL SCRADDRESSget scr address LD B,8 LD A,(HL)
1xor byte CPL LD (HL),A LD A,H ADD B LD H,Anext line LD A,(HL)2 CPL LD
(HL),A LD A,H ADD B LD H,A LD A,(HL)3 CPL LD (HL),A LD A,H ADD B LD
H,A LD A,(HL)4 CPL LD (HL),A LD A,H ADD B LD H,A LD A,(HL)5 CPL LD
(HL),A LD A,H ADD B LD H,A LD A,(HL)6 CPL LD (HL),A LD A,H ADD B LD H
,A LD A,(HL)7 CPL LD (HL),A LD A,H ADD B LD H,A LD A,(HL)8 CPL LD (
HL),A POP HL POP BC POP AF RET .CELL2 PUSH BCSame as below
but hlscreen address LD C,A JR CELLX .CELL ------------------------ FILL C
ELL WITH A BYTE ENTRY HX POS,LY POS,Abyte EXIT AF,HL CORRUPT ----------------
-------- PUSH BC LD C,A CALL SCRADDRESSget address cellxLD B
,8 LD (HL),C1LD HL,with byte LD A,H ADD B LD H,Anext line LD (HL),C2 L
D A,H ADD B LD H,A LD (HL),C3 LD A,H ADD B LD H,A LD (HL),C4 LD A,H
ADD B LD H,A LD (HL),C5 LD A,H ADD B LD H,A LD (HL),C6 LD A,H ADD B
LD H,A LD (HL),C7 LD A,H ADD B LD H,A LD (HL),C8 LD A,H ADD B LD H
,A POP BC RET --------------------------------------- GET ADDRESS Entry
- HL Cursor position Exit - HL Address wanted Used - DE ----------------
----------------------- .GetAddress PUSHAF PUSHHL LDA,L Get row in A ADDL d
ouble row number. LDL,A Get low byte into L LDH,0 Get high byte into H
LDDE,TABLE ADD HL,DE LDE,(HL) Get into DE. INCHL LDD,(HL) POPHL LDL,
H Prepare value to add LDH,0 ADDHL,DE Offset now in HL. LD DE,SCREENC
ADDHL,DEadd to base of screenc POPAF RET .SCRADDRESS ENTRY - HX LY
PUSH AF PUSH DE PUSH HL ld h,0 LD A,L ADD L LD L,A LD de,TAB
LE ADD HL,de LD E,(HL) INC HL LD D,(HL) POP HL LD L,H LD H,0 ADD HL,DE
LD de,(RLOFFSET) ADD HL,DE LD A,H AND %00000111 ADD &C0 LD H,A POP DE POP
AF RET TABLE WORD &0000 WORD &0050 WORD &00A0 WORD &00F0 WORD &0140 W
ORD &0190 WORD &01E0 WORD &0230 WORD &0280 WORD &02D0 WORD &0320 WORD &037
0 WORD &03C0 WORD &0410 WORD &0460 WORD &04B0 WORD &0500 WORD &0550 WORD
&05A0 WORD &05F0 WORD &0640 WORD &0690 WORD &06E0 WORD &0730 WORD &0780
------------------------------ .Clearkeys CALL KMREADCHAR JR C,Cle
arkeys RET ----------------------------- .ANSIJPTABLE WORDALLOFF WORDBOLDON
WORDFEINTON WORDITALICON WORDUNDERON WORDINVERSEON WORDSAMEBACKFORE WORDF
OREGROUND WORDBACKGROUND WORDSMASHTHEM .ANSITEXT LD A,(HL) INC HL
OR A RET Z BIT 7,A JR Z,ANTX1 RES 7,A PUSH HL LD L,A LD H,0 LD DE,ANSIJP
TABLE ADD HL,HL ADD HL,DE LD E,(HL)INC HL LD D,(HL) EX HL,DE CALL PULLJP
POP HL JP ANSITEXT .ANTX1 CALL SCREENWRITE JP ANSITEXT ------------------
---------- .YESNO PUSH BC LD B,A CALL KMWAITCHAR RES 5,A CP "Y" JR Z,YNEN
D CP "N" JR Z,yNEND LD A,B .YNENDPOP BC RET ------------------------------
------ DEstart add Blen of str Blen Clen of str .KEYINP
LD A,"" .KEYINP2 LD (DELCHAR),A PUSH HL LD (KEYOLDST),DE LD HL,(Y) LD (KEY
STCUR),HL LD (KEYOLDCUR),HL CALL KEYLINE LD C,0 JP KEYINPUT2 .INPUTLINE
LD A,"" .INPUTLINE2 LD (DELCHAR),A When del pop in or PUSH HL PUSH BC Save
length LD HL,(Y) LD (KEYSTCUR),HL Save screen pos LD H,0 LD L,B HLlen
LD C,0 ADD HL,DE HLend+1 DEC HL HLend .I1LD A,(HL) CP 32 JP NZ,I
2 is it a space DEC HL NO, Cont to find one... INC C DJNZ I1
JP I4 Empty! .I2PUSH BC save len of text PUSH DE save start .I3LD A,(DE) IN
C DE CALL WRITECHAR DJNZ I3 Print string LD (KEYOLDST),DE new start POP DE g
et start .I4LD HL,(Y) LD (KEYOLDCUR),HL Set pos LD B,C get len LD A,C OR A
JP Z,I6 is that it LD A,(DELCHAR) .I5CALL WRITECHAR DJNZ I5
Nope spaces left so print .I6POP BC Nget length LD C,B set max len POP HL
get length LD B,H LD HL,(KEYOLDCUR) Blength Cstr len
LD DE,(KEYOLDST) LD (Y),HL CALL CURSOR set up .Keyinput2 CALL KMW
AITCHAR .I7CP 13 JR Z,KIEND CP &FC JR Z,KIEND Enter/esc CP 24 JP Z,KIDELLI
NE Ctrl X CP &7f Del/Arrow JR Z,KIDEL CP 10 JR Z,KIDEL LD H,A Hchar LD A
,B find length CP C JP Z,KIBEEP tooo far INC C inc len LD A,H LD (D
E),A INC DE poke char CALL WRITECHAR CALL CURSOR print/move JP KEYINPUT2 con
t... .KIENDCALL CURSOR remove cursor PUSH AFsave key LD A,B SU
B C OR A JR Z,I9 if length max LD B,A length .I8LD A," " LD (DE),A INC DE
CALL WRITECHAR DJNZ I8 Print spaces .I9 LD B,C get length POP AF key PO
P HL get RET .KIDELLINE PUSH BC LD DE,(KEYOLDST) LD A," " .KDL LD (D
E),A INC DE DJNZ KDL POP BC LD HL,(KEYSTCUR) LD (Y),HL CALL KEYLINE CALL
CURSOR LD C,0 JP KEYINPUT2 .KIDEL LD A,C CP 0 JR Z,KIBEEP DEC C
DEC DE CALL CURSOR LD HL,(Y) DEC H LD (Y),HL LD A,(DELCHAR) CALL
WRITECHAR LD (Y),HL CALL CURSOR JP KEYINPUT2 .KEYLINE LD HL,(Y) PUSH BC
.KLINELD A,"" CALL WRITECHAR DJNZ KLINE POP BC LD (Y),HL RET KIBEEPLD
A,7 CALL &BB5A JP KEYINPUT2 ------------------------------- .Anykey LD HL
,PRESS CALL ANSITEXT JP KMWAITCHAR -------------------------------- .DEC8C
ALL CURSOR .DEC82 LD A,0 LD (TEMPNUM),A LD C,0 LD A,(X) LD H,A .DEC81CALL
KMWAITCHAR CP &7F JP Z,DEC8DEL CP 13 JP Z,CURSOR CP "0" JP C,DEC81 CP "9
"+1 JP NC,DEC81 SUB "0" LD B,A LD A,C CP 3 JP Z,DEC81 LD A,(TEMPN
UM) ADD A,A LD E,A ADD A,A ADD A,A JR C,DEC81 ADD A,E JR C,DEC81 ADD A,B
JR C,DEC81 LD (TEMPNUM),A LD A,B ADD "0" CALL CURSOR CALL WRITECHAR CALL
CURSOR INC C JP DEC81 .DEC8DEL LD A,H LD (X),A PUSH HL LD HL,DECSP CALL
ANSITEXT POP HL LD A,H LD (X),A JP DEC82 .DECSPBYTE " ",0 .
TEMPNUMWORD 0 .DECXBYTE 0 - - - - - - - - - - - - - - .DEC16CALL CURSOR .DEC
62LD HL,0 LD (TEMPNUM),HL LD C,0 LD A,(X) LD (DECX),A .DEC1CALL KMWAITCHAR
CP &7F JP Z,DEC16DEL CP 13 JP Z,CURSOR CP "0" JP C,DEC1 CP "9"+1 JP NC,D
EC1 SUB "0" LD B,A LD A,C CP 5 JP Z,DEC1 LD HL,(TEMPNUM) ADD HL,H
L LD D,H LD E,L ADD HL,HL ADD HL,HL JR C,DEC1 ADD HL,DE JR C,DEC1 LD E,B
LD D,0 ADD HL,DE JR C,DEC1 LD (TEMPNUM),HL LD A,B ADD "0" CALL CURSOR C
ALL WRITECHAR CALL CURSOR INC C JP DEC1 .DEC16DEL LD A,(DECX) LD (X),A LD
HL,DECSP CALL ANSITEXT LD A,(DECX) LD (X),A JP DEC62 -------------
----------------- Inverseline PUSH BC PUSH DE LD C,8 CALL SCRADDRESS .IL1P
USH HL PUSH BC .IL2LD A,(HL) CPL LD (HL),A CALL NEXTBYTE DJNZ IL2 POP BC
POP HL LD A,H ADD 8 LD H,A DEC C JR NZ,IL1 POP DE POP BC RET .NEXTBY
TE INC L RET NZ INC H LD A,H AND &7 RET NZ LD A,H SUB &8 LD H,A RET
.NEXTLINE LD A,H ADD A,&8 LD H,A AND &38 RET NZ LD A,H SUB &40
LD H,A LD A,L ADD A,&50 LD L,A RET NC INC H LD A,H AND &7 RET NZ LD A,H
SUB &8 LD H,A RET PRINT HL .NUMBER16 LD C,4 LD A,H OR L JR Z,NUMIS
0 LD C,0 LD DE,10000 CALL COUNT LD DE,1000 CALL COUNT LD DE,100 CALL COUN
T LD DE,10 CALL COUNT LD DE,1 .COUNTLD B,0 .NL16XOR A SBC HL,DE JR C,N16
END INC B JR NL16 .N16END ADD HL,DE LD A,B OR A JR NZ,N16E2 L
D A,C CP 1 JR Z,N16E2 LD A," " JP WRITECHAR .N16E2 LD
C,1 LD A,B ADD "0" JP WRITECHAR .NUMIS0 LD A,(X) ADD C LD (
X),A LD A,"0" JP WRITECHAR ---------------------- .NUMBER8 PRINT A
LD C,2 OR A JR Z,NUMIS0 LD C,0 LD D,100 CALL COU LD D,10 CALL COU LD D
,1 .COULD B,0 .NL8 SUB A,D JR C,N8END INC B JR NL8 .N8END ADD A,D LD E,
A LD A,B OR A JR NZ,N8E2 LD A,C CP 1 JR Z,N8E2 LD A,"
" CALL WRITECHAR LD A,E RET .N8E2 LD A,E LD C,1 LD
A,B ADD "0" CALL WRITECHAR LD A,E RET MULTI MULTIPLY HLDE*BC MU
LTIPLYDEBC LD HL,0 LD A,D OR E RET Z .MLPADD HL,BC DEC DE LD A,D OR E
JR NZ,MLP RET DIVIDE DIVIDE B NCHL/DE - HLREMANDER .DIVIDEHLDE
LD BC,0 .DLPSBC HL,DE JR C,DEND INC BC RET Z JR DLP .DENDADD HL,DE RET
.hex PUSH AF RRA RRA RRA RRA
CALL hex2 POP AF .hex2 AND &F ADD &90 DAA
ADC &40 DAA CALL WRITECHAR RET YDEBC LD HL,
0 LD A,D OR E RET Z .MLPADD HL,BC DEC DE LD A,D OR E JR NZ,MLP RET D
IVIDE DIVIDE B1 print "Graphics driver data area" .HOURNUM EQU
TIMELINE+6 .MINNUM EQU TIMELINE+9 .SECNUM EQU TIMELI
NE+12 .COLOURSAVE WORD JHighInt WORD backcolour WORD forecolour WORD JANS
I WORD JPRINT WORD Jgetcharacter .numberposwordnumberbuffer .numberbuffe
rbyte 255 defs 15 .characterno byte 0 .haveloadedbyte 0 .forecolourbyte 0
.backcolourbyte 0 .ansiwasfirstbyte 0 .fontsetbyte 0 .cursorposword 0 .ANS
ISTOREDEFS 25 .RESETANSIBUFDEFS 6 .CYCTIMEOUTBYTE 20 DAA CALL
WRITECHAR RET EQU TIMELINE+12 .COLOURSAVE WORD JHighIn
t WORD backcolour WORD forecolour WORD JANSI WORD JPRINT WORD Jgetcharacter
.numberposwordnumberbuffer .numberbufferbyte 255 defs 15 .characterno
byte 0 .haveloadedbyte 0 .forecolourbyte 0 .backcolourbyte 0 .ansiwasfirst
byte 0 .fontsetbyte 0 .cursorposword 0 .ANSISTORED1 print "File System" .Cat
disc PUSH IX LD HL,(RLOFFSET) CALL &BC05SET OFFSET LD IX,CATWINDOW CALL MBO
RDER LD H,1LD D,78LD L,2LD E,20 CALL &BB66TXT WIN ENABLE LD HL,&101 CALL &BB
75LOCATE LD DE,Amsdos CALL CASCATALOUGE POP IX RET .CatWindow BYTE 0,1,21,
80 --------------------------------- .CATCLEAR PUSH IX LD IX,CATWINDOW CA
LL WINDOWWIPE POP IX RET ---------------------------------- .Catalouge CA
LL Catdisc CALL KMWAITCHAR CALL CATCLEAR LD A,&FF RET ---------------------
------ .DiscWindow LD HL,(RLOFFSET) CALL &BC05SET OFFSET LD H,0LD D,79LD L,2
4LD E,24 JP &BB66TXT WIN ENABLE ---------------------------- .DOS
LD IX,DOSWIN CALL MBORDER CALL MPRINT .DOSST LD HL,46*256+4 LD (Y),HL LD
HL,DRIVEA LD A,(DRIVES) ADD L LD L,A CALL TEXT LD IX,DOSWIN LD
A,(IX+10) LD (MCURY),A CALL MENUCURSOR CP &FC JP Z,DOSEXIT PUSH HL CALL DI
SCWINDOW POP HL JP (HL) .DOSEXIT LD IX,DOSWIN CALL WINDOWWIPE LD IX,FILE
SMENU LD A,&FF RET -------------------- .DRIVE LD A,(DRIVES) CPL AN
D 1 CALL GETST JP NC,DOSST BIT 5,A JP Z,DOSST LD HL,DRIVE
A LD A,(DRIVES) CPL AND 1 LD (DRIVES),A ADD L LD L,A XOR A CALL DOSCALLS
ET TO DRIVE A OR B JP DOSST .GETST RST 3,GETDRSTAT RET .ERASE CALL
OPENFILE CP &FC JP Z,ERASEXX LD A,B LD (ERALEN),A CALL WINDOWWIPE LD IX,E
RAIX LD A,1 LD HL,ERASTR CALL DOSCALL JP DOSST .ERASEXX CALL WINDO
WWIPE JP DOSST ----------------------- .RENAMEBOR BYTE 24,21,4,30 .RENA
ME LD IX,RENAMEBOR CALL MBORDER LD HL,25*256+22 LD (Y),HL LD DE,NAME1 LD
HL,NEWNAME CALL RENAMEINP CP &FC JP Z,RENXX LD A,B LD (NAME1LEN),A LD H
L,25*256+23 LD (Y),HL LD DE,NAME2 LD HL,OLDNAME CALL RENAMEINP CP &FC JP Z
,RENXX LD A,B LD (NAME2LEN),A CALL WINDOWWIPE LD IX,RENIXNAME2 LD A,2 LD
HL,RENSTR CALL DOSCALL JP DOSST .RENAMEINP PUSH DE CALL TEXT POP DE LD
B,16 CALL KEYINP RET .RENXX CALL WINDOWWIPE JP DOSST --------------------
- .DOSCALL PUSH AF CALL KLFINDCOMMAND JR NC,DOSBEEP LD A,C LD (RSXROM),A
LD (RSXCALL),HL POP AF RST &18,RSXCALL RET .DOSBEEP POP AF LD A,7 JP &BB5
A .KLFINDCOMMANDEQU&BCD4 -------------------------------------- PULL DOWN W
INDOW/ASK FILENAME -------------------------------------- .OPENFILE XOR A .O
F3 LD (OPENF NILEF),A Set flag LD IX,OPENFILENAME Print border CALL MBORDE
R LD HL,26*256+23 LD (Y),HL LD HL,FILENAME CALL TEXT Print filenam
e .OF1 LD DE,NAME LD B,16 CALL KEYINP Input CP &FC JR Z,
OF2 Escape LD L,A LD A,C OR A JP Z,OFCAT If no length the
n CAT LD A,L .OF2 LD HL,NAME LD DE,AMSDOS Ret RET .OFCATCALL CATDISC LD
A,&FF JR OF3 Cat/set flag to &FF .OPENFILECLR LD A,(OPENFILEF) OR
A JP NZ,WINDOWPAGE Wipe page LD IX,OPENFILENAME CALL WINDOWWIPE RET .OPE
NFILENAME BYTE 24,22 BYTE 3 BYTE 30 .OPENFILEF BYTE 0 .OPENFILEBORD LD
IX,FILEBORDER CALL MBORDER CALL MPRINTask filename LD H,36
LD L,23 LD (Y),HL LD DE,NAME LD B,16 CALL KEYINP input
LD HL,NAME LD DE,AMSDOS RET et RET .OFCATCALL CATDISC LD A,&FF
JR OF3 Cat/set flag to &FF .OPENFILECLR LD A,(OPENFILEF) OR A 1 pr
int "Sub routines" ------------------------------- View an ascii file -----
--------------------------- .VIEWFILE CALL CASINABANDON CALL DISCWIND
OW CALL OPENFILE Get filename CP &FC JP Z,ViewFileError CALL CASINOP
EN Open in file JP NC,ViewFileError CP &16 JP NZ,ViewFileError .VI
EWF0 CALL CLSSCREEN Clear screen CALL ALLOFF Turn off all ansi .VIEWF1
CALL CASINCHAR Get character JR NC,ENDVIEW PUSH AF Pause for a bit LD BC,2
00 VPBC DEC BC LD A,B OR C JR NZ,VPBC POP AF push af CALL SCREENWR
ITE pop af call output CALL KMREADCHAR Test key JR NC,VIEWF1 No key presse
d then read CALL KMWAITCHAR ..wait untill next key CP &FC JR NZ,VIEWF1 Read
char .ENDVIEW If esc then exit CALL CASINCLOSE Close file JP NC,ViewFileEr
ror CALL ANY2 CALL KMWAITCHAR .ViewFileError CALL WINDOWPAGEprint p
age CALL PRINTDATACURSOR LD A,&FF RET ----------------------------------
PRINT FILE STATS ---------------------------------- .FILESTATS CALL CASINAB
ANDON CALL DISCWINDOW CALL OPENFILEOpen file out CP &FC JP Z,Fsexit3
CALL CASINOPEN JP NC,Fsexit LD (HEADDER),HL Save headder add LD (TYP),A
Save file type PUSH BC PUSH DE Save loc/len LD IX,FileStatWindow CALL MBO
RDER Print LD HL,&102 LD (Y),HL LD HL,TYPE CALL TEXT "Type " LD A,(TY
P) BIT 0,A JR Z,FS1 LD HL,PROT Portected CALL TEXT P .FS1LD A,(TYP) SRL
A AND 3 A contains file type LD DE,FileStatTable LD L,A LD H,0 ADD HL,HL
*2 ADD HL,HL*4 ADD HL,DE LD E,(HL)INC HL LD D,(HL)INC HL LD C,(HL)INC HL
LD B,(HL) LD (FSJP),BC Save jump EX HL,DE CALL TEXT Print "BASIC " or "BI
NARY" etc.. CALL LFF LD HL,DATALOC Data loc CALL TEXT POP DE CALL FSNUM
LD HL,FILELENGTH File length CALL TEXT POP DE CALL FSNUM CALL
LFF LD HL,(FSJP) JP (HL)JUMP!!! .FSNUM LD A,D CALL HEX LD A,E CALL HEX
JP LFF Print in hex and line feed (LF) .BASPRINT .SCRPRINT JP FSEXIT Jus
t so I can expand .BINPRINT LD B,255255 bytes of info LD HL,XMODEMstorae ar
ea .BP1CALL CASINCHAR JP NC,Fsexit LD (HL),A INC HL DJNZ BP1input data LD
HL,XMODEMstart address of data LD C,1416 nums par line .BP3PUSH BC CALL PRINT
HEXLINE CALL LFF POP BCset height DEC C JR NZ,BP3loop JP FSEXITexit AS
CPRINT LD B ,255 AP2CALL CASINCHAR JP NC,Fsexit RES 7,A CALL WRITECHAR LD
A,(Y) CP 20 JR Z,FSEXIT LD A,(X) CP 0 JR NZ,AP4 LD A,1 LD (X),Atab .
AP4LD A,(X) CP 78 JR NZ,AP3 right just LD A,1 LD (X),A LD A,(
Y) INC A CP 20 JR Z,FSEXIT LD (Y),A .AP3 DJNZ AP2print 128 chars from asci
i file JP AP2or to line 20 .FSEXIT CALL LFF CALL ANYKEY Nwait for key .F
SEXIT3 CALL CASINCLOSE CALL WINDOWPAGEEra window and ret CALL PRINTDATACURSOR
LD A,&FF RET .LFF CALL LF LD A,1 LD (X),A RET .LFLD A,(Y) INC A CP 25
JR NZ,LF2 XOR A .LF2LD (Y),A XOR A LD (X),A RETline feed .File
StatTable WORD BASIChl points to "BAISC " WORD BASPRINTthen jp to WORD BINARY
WORD BINPRINT'jp to bin print' WORD SCREEN WORD SCRPRINT WORD ASCII WORD A
SCPRINT .FileStatWindow BYTE 0,1,23,80 -------------------------------
.PRINTHEXLINE PUSH HLsave bc(height) hl(add) LD B,1616 bytes .BP2 LD A," "
CALL WRITECHAR LD A,(HL) CALL HEX INC HL DJNZ BP2print line of 16 bytes LD
A,(X) ADD 5 LD (X),Atab POP HLget adress LD B,16 .BP5LD A,(HL) RES
7,A CP 32 JP NC,BP6 LD A,"." .BP6CALL WRITECHAR INC HL DJNZ BP5print in a
scii RET ---------------------------------- .GETBUFCHAR LD A,(HL) PUS
H AF INC HL LD A,H CP RBUFFEREND2 JR NZ,GBC1 LD H,RBUFFERSTART2 .GBC1 P
OP AF RETinc through buffer ------------------------------- VIEW BUFFER --
----------------------------- .VBUFF CALL CLSSCREEN LD HL,(INPUTHIGH) LD HL,
RBUFFERSTART LD BC,RBUFFERLENGTH/16 .VIB1 PUSH BC LD A,"&" CALL SCREENWRITE
LD A,H CALL HEX LD A,L CALL HEX LD A,6 LD (X),A LD B,16 LD DE,VBUFFER
LINE .VIB2CALL GETBUFCHAR LD (DE),A INC DE DJNZ VIB2 PUSH HL LD HL,VBUFFER
LINE CALL PRINTHEXLINE POP HL CALL WAITFLY LD A,10 CALL SCREENWRITE
LD A,13 CALL SCREENWRITE POP BC CALL KMREADCHARtest key JR NC,VIBSKIPno
key pressed then read CALL KMWAITCHAR..wait untill next key CP &FC JR Z,VIBEX
ITread char .VIBSKIP DEC BC LD A,C OR B JR NZ,VIB1 .VIBEXIT call
any2 CALL KMWAITCHAR CALL WINDOWPAGEret CALL PRINTDATACURSOR LD A,&F
F RET ANY2 LD HL,ANY3 JP ANSITEXT .VBUFFERLINEDEFS 16 ---------------
------------------- SAVE THE BUFFER --------------------------------- .SAVEBU
FFER CALL CASOUTABANDON CALL DISCWINDOW CALL OPENFILEBORD CP &FC JP
Z,SABEXIT CALL CASOUTOPEN JP NC,SABDISC LD HL,(INPUTHIGH) LD BC,RBUFFERLE
NGTH .SABCALL GETBUFCHAR OR A JR Z,SAB2 CALL CASOUTCHAR JP NC,SABDISC .SAB
2 DEC BC LD A,B OR C JR NZ,SAB LD A,&1A CALL CASOUTCHAR CALL CASOUTCLOSE
JP NC,SABDISC .SABEXIT LD IX,FILEBORDER CALL WINDOWWIPEsave as view but wr
tes to drive LD A,&FE RET .SABDISC LD A,7 CALL &BB5A JR SABEXIT
.MCBUSYPRINTEREQU &BD2E .MCSENDPRINTEREQU &BD31 .MCPRINTCHAREQU &BD2B ------
-------------------------- print buffer ------------------------------- .PR
INTBUFFER CALL &BD2E LD A,&FE RET C LD HL,(INPUTHIGH) LD BC,RBUFF
ERLENGTHset up vars .PBUF1CALL MCBUSYPRINTERtest printer JR NC,PBUF2if idle th
en print CALL KMREADCHARtest keys JR NC,PBUF1nope CALL KMWAITCHARwait CP &F
C JR NZ,PBUF1if not escape then cont JR PBUFEXITexit if esc .PBUF2CALL GETBUF
CHARset char BIT 7,Ais it above 128 JR Z,PBUF3no LD A,"."if so bring it down
.PBUF3 OR A CALL NZ,MCSENDPRINTERprint DEC BC LD A,B OR C JR NZ,PBUF
1jp if ok .PBUFEXIT LD A,&FE RETexit ------------------------------ PRINT
PAGE ----------------------------- .PRINTPAGE CALL &BD2E LD A,&FE
RET C LD B,80width of page LD C,25height LD HL,SCREENCstart .PAGE0PUSH BCs
ave height/width .PAGE1LD A,(HL) BIT 7,A JR Z,PAGE9 LD A,"." .PAGE9INC HL
CALL MCPRINTCHAR .PAGE2DJNZ PAGE1print line LD A,13 CALL MCPRINTCHAR LD A,1
0 CALL MCPRINTCHARlf+cr POP BC DEC C LD A,C OR A JR NZ,PAGE0if not line 25
then cont LD A,&FE RETret ----------------------------------- CLIP AN
D SAVE TO DISC ----------------------------------- .CLIPSAVE CALL CASOUTABA
NDON CALL WINDOWWIPE CALL DISCWINDOW CALL CLIP CP "Y" JP NZ,CLIPX1 LD (CLI
PSV),HL LD A,(X) LD (CSX),A CALL OPENFILEBORD CP &FC JP Z,CLIPX1
CALL CASOUTOPEN JP NC,CLIPDISC LD A,(CSX) LD B,A LD D,A OR A
JR Z,CLIPS0 .CLIPS1LD A," " CALL CASOUTCHAR DJNZ CLIPS1 .CLIPS0 LD B
C,(CLIPLEN) LD HL,(CLIPSV) .CLIPS2 LD A,(HL) CALL CASOUTCHAR INC HL INC D
LD A,D CP 80 N JR NZ,CLIPS3 LD A,13 CALL CASOUTCHAR LD A,10 CALL CASOUTC
HARlf+cr LD D,0 .CLIPS3 DEC BC LD A,C OR B JR NZ,CLIPS2if not finished the
n cont LD A,13 CALL CASOUTCHAR LD A,10 CALL CASOUTCHARlf+cr LD A,&1A CALL
CASOUTCHAR .CDECALL CASOUTCLOSE .CLIPX1CALL WINDOWPAGE CALL PRINTDATACURSOR
LD A,&FF RET .CLIPDISC LD A,7 CALL &BB5A JP CDE --------------------------
---- CLIP PAGE ------------------------------ .CLIPPAGE CALL &BD2E LD A,&FE
RET C CALL WINDOWWIPE CALL CLIP CP "Y" JP NZ,CLIPX2 LD
A,(X) LD D,A LD B,A OR A JR Z,CLIP5SK .CLIP5LD A," " CALL MCP
RINTCHAR DJNZ CLIP5 .CLIP5SK LD BC,(CLIPLEN) .CLIP6LD A,(HL) BIT 7,A JR
Z,CLIP9 LD A,"." .CLIP9 CALL MCPRINTCHAR INC HL INC D LD A,D CP 80 JR NZ
,CLIP7 LD A,13 CALL MCPRINTCHAR LD A,10 CALL MCPRINTCHARlf+cr LD D,0 .CLIP
7 DEC BC LD A,C OR B JR NZ,CLIP6if not finished then cont LD A,13 CALL MCP
RINTCHAR LD A,10 CALL MCPRINTCHARlf+cr .CLIPX2CALL WINDOWPAGE CALL PRINTDATA
CURSOR LD A,&FF RET ----------------------------- CLIP -----------------
---------- .CLIP LD HL,0 LD C,1LD B,80 CALL WINDOW CALL MOVECURSOR CP &F
C JP Z,WINDOWPAGE LD A,7 CALL &BB5ASOUND A BEEP LD HL,(Y) LD (CLIPY
),HL PUSH HL POP HL CALL MOVECUR0 CP &FC JP Z,WINDOWPAGE LD HL,(Y) LD DE,
(CLIPY) LD A,E CP L JP Z,SORTX CALL C,CLIPSWAP .CLIP2 LD HL,(Y) P
USH HL LD DE,(CLIPY) LD BC,1 .CLIP3CALL NEXTCHAR CALL CURSOR INC BC
LD A,D CP H JR NZ,CLIP3 LD A,E CP L JR NZ,CLIP3 CALL CURSOR LD (CLIPLEN
),BC LD IX,YESNOBORD CALL MBORDER LD HL,36*256+12 LD (Y),HL LD HL,O
K CALL TEXT CALL YESNO POP HL LD (Y),HL PUSH AF CALL GETADDRESS L
D BC,(CLIPLEN) POP AF RET .SORTX LD A,D CP H JP Z,WINDOWPAGE CA
LL C,CLIPSWAP JP CLIP2 CLIPSWAP LD HL,(CLIPY) LD DE,(Y) LD (CLIPY),DE LD
(Y),HL RET .YESNOBORD BYTE 34,11,3,12 OKSTR "OK (Y/N)" .NEXTCHAR LD
HL,(Y) INC H LD A,H CP 80 JR NZ,NEXTCE INC L LD A,L CP 25 JR NZ
,NEXTCE1 LD L,0 NEXTCE1LD H,0 NEXTCELD (Y),HL RET -------------------------
--- MOVE CURSOR ---------------------------- .MOVECURSOR LD HL,0 .MOVECUR0
LD (Y),HL CALL CURSOR .CURSORKEY CALL KMWAITCHAR CP &FC RET Z CP
&E0 RET Z CP &E1 RET Z CP 8 JR Z,CURSORLEFT CP 9 JR Z,CURSORRIGHT CP 10
JR Z,CURSORDOWN CP 11 JR NZ,CURSORKEY CALL CURSOR DEC L LD A,L CP 255 JR
NZ,MOVECUR0 LD L,0 JR MOVECUR0 .CURSORLEFT CALL CURSOR DEC H LD A
,H CP 255 JR NZ,MOVECUR0 LD H,0 JR MOVECUR0 .CURSORRIGHT CALL CURSOR INC
H LD A,H CP 80 JR NZ,MOVECUR0 LD H,79 JR MOVECUR0 .CURSORDOWN CAL
L CURSOR INC L LD A,L CP 26 JR NZ,MOVECUR0 LD L,24 JR MOVECUR0
KMSETTRANSLATEEQU&BB27 KMSETEXPANDEQU&BB0F KMSETCONTROLEQU&BB33 ---------
------------------ SET UP KEYS Used ALL --------------------------- .SE
TKEYS LD HL,Keys .SETK2LD A,(HL) CP &FF RET Z INC HL LD B,
(HL) INC HL PUSH HL CALL KMSETTRANSLATE POP HL JP SETK2 .MULTHL80
PUSH BC ADD HL,HL 2 ADD HL,HL 4 ADD HL,HL 8 ADD HL,HL 16 LD B,H LD C,L
BC*16 ADD HL,HL 32 ADD HL,HL 64 ADD HL,BC 80 POP BC RE
T ************************************************************************
1 PRINT "Dialing routines" ----------------------------------- Select a bbs a
nd dial it ----------------------------------- .Dial LD IX,DialMainmenu LD (
IX+10),0 JP PULLDOWN .Dialup CALL BBSLISTWINDOW Pull down bbs list .Dia0
XOR A LD IX,BBSLIST Window data .dia3CALL BBSCURSOR Select bbs CP &E0 copy j
p dialnumber CP &FC esc JR NZ,DIA3 .Dialwipe LD IX,BBSLIST Return CALL WIND
OWWIPE LD A,&FF RET Return back to data line - Eg ESC hit .dialnumb
er ld hl,dialprefix ld a,(prefixlen) cp 0 jr z,dialskip ld b,a CALL OUTSTR
output prefix if not 0 len CALL GETPHNUMBER LD DE,40 ADD HL,DE LD B,10 CALL
OUTSTRout number LD A,13 call OUTPUT + cr CALL PURGEBUFClear buffer
.dialskip LD A,(DIALTIMEOUT) CALL WAITMODEMwait for modem etc CP &FF
JR Z,NOANSWERtheres been bo answer/or key pressed/tim Neout CP &FC JR Z,NOA
NSWER .Dialexit CALL CLEARBUF CALL CLSSCREEN Clear page / Exit back eg carrie
r found XOR A RET Exit -------------------------------------------- .NOANS
WER PUSH AF LD A,13 If no answer send out 2 chars (cancel CALL OUTPU
T the modem) then ret to the menu CALL OUTPUT POP AF CP &FC JP NZ,Dia3 Wait
for another key CALL Windowwipe Clear window JP dia0 Select form D.D .RESB
UF DI LD HL,RBufferStart LD (InputLow),HL LD (InputHigh),HL EI RET ----
------------------------------- .BBSListWindow LD IX,BBSLIST CALL MBORDERpull
down window LD HL,DIALDIR LD DE,15*256+3set locates LD C,2020 in a l
ist .blw0LD (Y),DE PUSH DEsave x,y LD B,40name is 40 long .blw1LD A,(HL)
INC HL CALL WRITECHAR DJNZ BLW1print LD A,(X) ADD 2 LD (X),Atab 2 spaces
LD B,10 .blw2LD A,(HL) INC HL CALL WRITECHAR DJNZ BLW2and print number
POP DEget x,y INC E LD (Y),DEinc y and loop DEC C LD A,C OR A JR NZ,BLW0
if not all 20 then cont RETret -------------------------------
.GetPHNumber LD A,(MCURY) LD L,A LD H,0 ADD HL,HL*2 LD E,L LD D,H DE*2 A
DD HL,HL*4 ADD HL,HL*8 ADD HL,HL*16 LD C,L LD B,Hbc*16 ADD HL,HL*32 ADD HL
,BC*48 ADD HL,DE*50 LD DE,DIALDIR ADD HL,DE*50+bace RET
.DIRERROR NOP PUSH IX LD IX,LoaDirErr CALL MBORDER LD HL,35*256+11 LD (Y)
,HL LD HL,LOADIRMSG CALL ANSITEXT CALL KMWAITCHAR POP IX RET - -
- - - - - - - - - - .LOADDIR CALL DISCWINDOW CALL CASINABANDON
LD B,10 LD HL,DIRFILENAME LD DE,AMSDOS LD A,"A" LD (HL),A CALL
CASINOPEN JP C,LOADINDIR LD B,10 LD HL,DIRFILENAME LD DE,AMSDOS
LD A,"B" LD (HL),A CALL CASINOPEN JP NC,DIRERROR .LOADINDIR LD HL,D
IALDIR CALL CASINDIRECT JP NC,DIRERROR CALL CASINCLOSE XOR A LD (MC
URY),A LD (BBSY),A Save directory numbers RET -------------------------------
-- .SAVEDIR CALL CASOUTABANDON CALL DISCWINDOW LD B,8 LD HL,DIRFILE
NAME+2 LD DE,AMSDOS CALL CASOUTOPEN JP NC,SAVEDIRERROR LD HL,DIALDIR LD DE,
1100 LD BC,0 LD A,2 CALL CASOUTDIRECT .SAVEDIRERROR CALL CASOUTCLOSE LD A,
&FE RET -------------------------------- .Erasedir LD BC,&7FE LD HL,DIALDIR
LD DE,DIALDIR+1 LD (HL),32 LDIR LD A,&FE RET --------------------------
------ .ERASENAME CALL WINDOWWIPE CALL BBSLISTWINDOWpull down bbs list
CALL BBSCURSOR CALL GETPHNUMBER LD B,50 ERASLPLD (HL),32 INC HL DJNZ E
RASLP .ERASX1CALL WINDOWWIPE LD A,&FF RET --------------------------
----- .VIEWBBS CALL WINDOWWIPE .VIEWBS2 CALL BBSLISTWINDOWpull down bbs li
st CALL BBSCURSOR CALL WINDOWWIPE LD A,&FF RET --------------------
---------- .ENTERNAME CALL WINDOWWIPE Clear window CALL BBSLISTWINDOW
List stuff CALL BBSCURSOR pop the cursor up CP &FC JP Z,BEXT
Change of mind LD IX,ENTERBBS Another window CALL MBORDER CALL GETPH
NUMBER start of data EX HL,DE DE address of name LD HL,16*256+7 LD
(Y),HL LD HL,BBSNAME LD B,40 CALL NAMEINPUT Ask name CP &FC JR Z,B
EXT ... LD HL,40 ADD HL,DE EX HL,DE LD HL,16*256+8 LD (Y),HL LD HL,BBS
NUMBER LD B,10 CALL NAMEINPUT number .BEXTLD IX,BBSLIST CALL WINDOWWIPE LD
A,&FF RET .NAMEINPUT PUSH DE PUSH HL CALL TEXT POP HL POP DE JP INPUTL
INE ------------------------------------- SELECT A COMMAND IN THE BBS MENU
------------------------------------- .BBSCURSOR XOR A LD (MCURY),A .BBS
CURJP .BS0CALL MPRINTCUR .BS1CALL KMWAITCHARwait for key CP "1" JR C,BS2
CP "6"+1 JP C,BSLOAD .BS2 CP &FC RET Z CP &7F JR Z
,BS5 CP 11 JR Z,BBSUPif 11 then move up CP 10 JR Z,BBSDOWNif 10 then move do
wn CP 13 JR Z,BS5 CP &E0 JR NZ,BS1wait for key .BS5 PUSH BC CALL MPRINTC
UR POP BC LD A,&E0 OR A RET .BSLOAD LD (PAGENUMBER),A CALL LOAD
DIR JP BS1 .BBSUP CALL MPRINTCURremove cursor LD A,(MCURY) DEC Ainc Y
CP &FF JR NZ,BBS1 LD A,(IX+4)if Y0 then Yno of commands-1 DEC A .BBS
1LD (MCURY),A JR BS0 .BBSDOWN LD A,(MCURY)basic Nly the same CALL
MPRINTCUR LD A,(IX+4) LD B,A LD A,(MCURY) INC A CP B JR N
Z,BBS2 XOR A .BBS2LD (MCURY),A JR BS0 --------------------------
-------- .CUSWINecho BYTE 10,5,8,35 .CUSWINfunction BYTE 1
0,5,14,39 ---------------------------------------- CusEchos ld ix,cus
winecho call mborder LD (CUSSP),SP LD HL,12*256+6 LD (Y),HL LD DE,JLOCALE
CHO LD HL,LOCECHO CALL CUSYN LD DE,JREMOTEECHO LD HL,REMECHO CALL CUSYN
LD DE,JLOCALDEL LD HL,LOCDEL CALL CUSYN LD DE,JLOCALLF LD HL,LOCLF CALL
CUSYN LD DE,JREMOTEDEL LD HL,REMDEL CALL CUSYN LD DE,JREMOTELF LD HL,R
EMLF CALL CUSYN ld ix,cuswinecho jp winret .CUSYN PUSH DE CALL TEXT POP D
E CALL CUSGETSTATE CALL SCREENWRITE LD A,8 CALL SCREENWRITE .CUSWCA
LL KMWAITCHAR CP &FC JR Z,CUSEXIT CP 13 JR Z,CUSENT RES 5,A
CP "Y" JR Z,CUSY CP "N" JR NZ,CUSW LD A,&C9 LD (DE),A LD HL,CUSNO CALL
ANSITEXT JP CUSLF .CUSY XOR A LD (DE),A LD HL,CUSYES CALL ANSITEXT
JP CUSLF .CUSENT CALL ANSITEXT .CUSLF LD A,12 LD (X),A LD A,(Y
)INC ALD (Y),A RET .CUSGETSTATE LD A,(DE) CP &C9 JR Z,CGS1 LD A,"Y" LD
HL,CUSYES RET .CGS1LD A,"N" LD HL,CUSNO RET .CUSEXIT LD SP,(CUSS
P) RET - - - - - - - - - - - .CusMacros ld ix,cuswinfunction
call mborder call cmcall ld ix,cuswinfunction jp winret cmcallLD A,0 LD
(DEFNUM),A LD HL,12*256+6 LD (Y),HL LD HL,DEFINETXT CALL ANSITEXT CALL CUS
LF LD DE,EXPANDSTART .DEFLOOP LD (DEFWORD),DE CALL CUSLF LD A,"F" CALL SCR
EENWRITE LD A,(DEFNUM) ADD "0" CALL SCREENWRITE Print Fx LD A," " C
ALL SCREENWRITE Space LD HL,(DEFWORD) get start LD B,25 Len 25 .DEFDJ0LD A,
(HL) CP 0 JR NZ,DEFDJ1 LD (HL),32 .DEFDJ1LD A,(HL) CP 13 JR NZ,DEFDJ2 LD
(HL),"#" .DEFDJ2INC HL DJNZ DEFDJ0 Convert LD DE,(DEFWORD) LD B,25 LD A,"
" LD (DELCHAR),A CALL INPUTLINE2 PUSH AF LD HL,(DEFWORD) LD C,B
LD B,0 ADD HL,BC LD (HL),0 Zero at end LD DE,(DEFWORD) LD B,25
LD H,"#" LD L,13 CALL SWAPASCII POP AF CP &FC JP Z,CUSEXIT Convert
LD A,(DEFNUM) INC A LD (DEFNUM),A Next macro LD L,A LD H,0 ADD
HL,HL*2 LD DE,EXPANDTABLE ADD HL,DESETUP LD E,(HL)INC HLLD D,(HL) LD A,(DEFN
UM) CP 10 JR NZ,DEFLOOP new add, cont RET - - - - - - - - - - - - - -
.CusVerson CALL CASOUTABANDON CALL DISCWINDOW LD HL,12*256+6 LD (Y),HL
LD HL,ANSIFILENAME CALL ANSITEXT LD DE,NEWTERM LD B,16 CALL KEYINP C
P &FC RET Z LD A,C OR A RET Z LD HL,NEWTERM LD DE,AMSDOS CALL CAS
OUTOPENOPENFILE RET NC LD HL,&5000 LD DE,AMSDOS-&5000 LD BC,&5000 LD A,2 C
ALL CASOUTDIRECT CALL CASOUTCLOSE RET -------------------------------
---- .SWAPASCII SWAP H TO L PUSH DE LD B,50 .SWAPA0 LD A,(DE) CP H JR NZ,
SWAPA1 LD A,L LD (DE),A .SWAPA1INC DE DJNZ SWAPA0 POP DE RET ----------
----------------------- .inputprefix LD IX,prefixborder Print border CALL MBO
RDER LD HL,17*256+11 LD (Y),HL LD HL,prefixtxt CALL TEXT ld de,dialpr
efix ld b,15 call INPUTLINE ld a,b ld (prefixlen),a LD IX,prefixborder
jp winret .prefixborder byte 16,10,3,30 .prefixtxtstr "Dial prefix" EF
S 6 .CYCTIMEOUTBYTE 20 DAA CALL WRITECHAR RET
,A .SWAPA1INC DE DJNZ SWAPA0 POP DE RET ---------------------------------
.inputprefix LD IX,prefixborder Print border CALL MBORDER LD HL,17*256+11
LD (Y),HL LD HL,prefixtxt CALL TEXT ld de,dialprefix ld b,15 call INP
UTLINE ld a,b ld (prefixlen),a LD IX,prefixborder jp winret .prefixbo
rder byte 16,10,3,30 .prefixtxt N1 PRINT "Ansi" .RLSETOFFSET PUSH BC LD A
,H AND &7 LD H,A LD (RLOFFSET),HL ld a,&c0 RRCA RRCA AND &30 LD
C,A LD A,H RRA AND &3 OR C LD BC,&BC0C OUT (C),C INC B OUT (C),A DEC B
INC C OUT (C),C INC B LD A,H RRA LD A,L RRA OUT (C),A P
OP BC RET .SETFONTSRA LD(JBold),A Turn the flags off LD(JItalics),A L
D(JUnder),A LD(JInverse),A LD (Jfeint),A LD(JSmash),A RET .RESETANSI
PUSH AF PUSH HL PUSH BC PUSH DE LD A,&C9 CALL SETFONTSRA LD B,6 LD HL,CO
LOURSAVE LD DE,RESETANSIBUF .RAA1 PUSH BC LD C,(HL) INC HL
LD B,(HL) INC HL LD A,(BC) LD (DE),A INC DE POP BC DJNZ RAA1 LD HL,NUMBE
RPOS LD BC,25 LD DE,ANSISTORE LDIR XORA Reset background to black LD(backco
lour),A LDA,7 Reset foreground to white LD(forecolour),A LD A,&C9 LD (JANSI)
,A LDHL,NumberBuffer Numbers buffer position LD(NumberPos),HL XORA LD(Charac
terNo),A Next time it runs, it will be the first character LD(HaveLoaded),A W
e haven't filled this byte! LD (Jprint),A LD(Jgetcharacter),A POP DE POP BC
POP HL POP AF RET .SETANSI PUSH AF PUSH HL PUSH BC PUSH DE XOR A CAL
L SETFONTSRA LD B,6 LD HL,COLOURSAVE LD DE,RESETANSIBUF .RAA2PUSH BC
LD C,(HL) INC HL LD B,(HL) INC HL LD A,(DE) LD (BC),A INC DE POP BC DJ
NZ RAA2 LD DE,NUMBERPOS LD BC,25 LD HL,ANSISTORE LDIR LD A,(FONTSET) LD
C,A OR A LD A,&C9 JR Z,SA10 OR ON LD(Jgetcharacter),A SA1BIT 0,C J
R NZ,SA2 LD(JBold),A SA2BIT 1,C JR NZ,SA3 LD(JItalics),A SA3BIT 2,C JR NZ,
SA4 LD(JUnder),A SA4BIT 3,C JR NZ,SA5 LD(JInverse),A SA5BIT 5,C JR NZ,SA
6 LD (Jfeint),A SA6 BIT 4,C JR NZ,SA7 LD(JSmash),A SA7 POP DE POP BC PO
P HL POP AF RET .JAnsiBYTE&C9 0 on, &C9 off .ansipush hl PU
SHDE PUSHBC PUSHAF LDC,A Move character into C for safe keeping CP27 JPZ,An
siMore If it is Chr 27 then we haven't just been turned on, so don't bother wi
th all the checking. LDA,(CharacterNo) Character number in sequence ORA Is t
his the first character JPZ,AnsiFirst Yes, deal with this strange occurance!
LDA,C Put character back in C to check CP"" Is it a semi colon JPZ,AnsiSemi
CP"0" Is it a number JRC,AnsiNN If 0 then no CP"9"+1 If 9 then no JPC,Ans
iNumber .AnsiNN CP"" Simple trap for simple problem! JPZ,AnsiMore CP"" I
s it a letter JPC,AnsiExit Abandon if not letter something wrong .AnsiFound
LDA,&C9 LD(JAnsi),A Turn itself off now... XORA zero end of sequence marker
LD(JScrnBuf),A LD(Jprint),A LDHL,(NumberPos) Get value of number buffer LDA
,(HaveLoaded) Did we put anything in this byte ORA JRNZ,AF1 LD(HL),255 Mark t
he fact that nothing was put in .AF1INCHL LDA,254 LD(HL),A Mark end of sequen
ce (for unlimited length sequences) *** Disable cursor, because it might well
move! LDA,(CursorOn) ORA Well, what do we have here! CALLNZ,cursor If cursor
on, then remove XORA LD(CursorOn),A And cursor is now off LD(CursorCount),
A Restart count LDA,&C9 LD(JChangeCursor),A Disable flashing temp. LDHL,Num
berBuffer For the routine called. LDA,C Restore number Now work out what hap
pens... CP"A" Check for supported Ansi characters JPZ,CUU Upwards CP"B" JP
Z,CUD Downwards CP"C" JPZ,CUF Forward CP"D" JPZ,CUB Backward CP"H" JPZ,CUP
Locate CP"f" JPZ,HVP Locate CP"J" JPZ,ED Clear screen CP"m" JPZ,SGR Set g
raphics renditon CP"K" JPZ,EL Clear to end of line CP"s" JPZ,SCP Save the cu
rsor position CP"u" JPZ,RCP Restore the cursor position .AnsiExit LDHL,Num
berBuffer Numbers buffer position LD(NumberPos),HL XORA LD(CharacterNo),A Nex
t time it runs, it will be the first character LD(HaveLoaded),A We haven't fi
lled this byte! LD(JChangeCursor),A Cursor allowed back again! .AnsiMore POPA
F POPBC POPDE POPHL RET The various routines needed to handle the filte
red characters .AnsiFirst LDA,255 LD(CharacterNo),A Next character is not f
irst! LDA,C Get character back LD(AnsiWasFirst),A Save first character to chec
k later CP"(" ( and have ch Naracters to follow JPZ,AnsiMore and are legal.
CP"" JPZ,AnsiMore LDA,&C9 LD(JAnsi),A Turn itself off now... XORA and turn
the screen back on LD(JScrnBuf),A LD(Jprint),A JPAnsiExit and don't have an
ything to follow them but are legal. Others are illegal, so abandon anyway
. .AnsiSemi LDHL,(NumberPos) Move the number pointer to the LDA,(HaveLoaded
) Did we put anything in this byte ORA JRNZ,AS1 LD(HL),255 Mark the fact that
nothing was put in .AS1INCHL move to next byte LD(NumberPos),HL XORA LD(Hav
eLoaded),A New byte not filled! JPAnsiMore .AnsiNumber LDHL,(NumberPos) Ge
t address for number LDA,(HaveLoaded) ORA If value is zero JRNZ,AN1 LDA,C Ge
t value into A SUB"0" Remove ASCII offset LD(HL),A Save and Exit LDA,255 LD(
HaveLoaded),A Yes, we have put something in! JPAnsiMore .AN1 LDA,(HL) Store
d value in A TBA in C ADDA 2 * LDD,A Save the 2* for later ADDA 4 * ADDA 8 *
ADDD 10 * ADDC 10 * + new num SUB"0" And remove offset from C value! LD(HL)
,A Save and Exit. JPAnsiMore Note routine will only work up to 100 which sh
ould be okay for this application. -------------------------------- GET NUMB
ER Gets the next number from the list Entry - HL address to get from E
xit - HL next address A value IF a255 then default value If a254 then end
of sequence Used - None -------------------------------- .GetNumber LDA,(H
L) Get number CP254 RETZ Return if end of sequence,ie still point to end IN
CHL Return pointing to next byte RET Else next address and return ***ANSI UP
.CUUCALLGetNumber Number into A LDB,A Save value into B CP255 JRNZ,CUUlp
LDB,1 Default value .CUUlpLDA,(Y) A - Row CPA,B Is it too far JRC,CUU1 SUBB
No, then go back that far. LD(Y),A Row - A JPAnsiExit .CUU1LDA,0 Make the ch
oice, top line. LD(Y),A Row - A JPAnsiExit ***ANSI DOWN .CUDLDA,(AnsiWas
First) CP"" JPNZ,AnsiExit Ignore ESC(B CALLGetNumber LDB,A Save value in b
CP255 JRNZ,CUDlp LDB,1 Default .CUDlpLDA,(Y) A - Row ADDA,B CPscreendepth T
oo far JPC,CUD1 LDA,screendepth-1 Too far then bottom of screen .CUD1LD(Y),A
Row - A JPAnsiExit ***ANSI RIGHT .CUFCALLGetNumber Number into A LDB,A V
alue saved in B CP255 JRNZ,CUFget LDB,1 Default .CUFgetLDA,(Y+1) A - Column
ADDB Add movement. CP80 Too far JRC,CUF2 LDA,79 Yes, right edge .CUF2LD(Y+1
),A Column - A JPAnsiExit ***ANSI LEFT .CUBCALLGetNumber Number into A L
DB,A Save value in B CP255 JRNZ,CUBget LDB,1 Default .CUBgetLDA,(Y+1) A - Co
lumn CPA,B Too far JRC,CUB1a SUBA,B LD(Y+1),A Column -A JPAnsiExit .CUB1aL
DA,0 LD(Y+1),A Column -A JPAnsiExit ***ANSI LOCATE .HVP .CUPCALLGetNumb
er CP255 CALLZ,DefaultLine Default 1 CP254 Sequence End - 1 CALLZ,DefaultLi
ne -- OR A CALL Z,DefaultLine -- CPscreendepth+1 Out of range then don't mo
ve JPNC,AnsiExit LDE,A CALLGetNumber CP255 Default 1 CALLZ,DefaultColumn
CP254 Sequence End - 1 CALLZ,DefaultColumn -- ORA CALLZ,DefaultColumn -- C
P81 Out of range, then don't move JPNC,AnsiExit LDD,A EXHL,DE DECH Translate
from Ansi co-ordinates to hardware DECL co-ordinates LD(Y),HL Set the cursor
position. JPAnsiExit .DefaultColumn .DefaultLine LDA,1 RET ***ANSI CLE
AR SCREEN .EDCALLGetNumber ORA JPZ,ED1 Zero means first option CP254 Also
default JPZ,ED1 CP255 JPZ,ED1 CP1 JPZ,ED2 CP2 JPNZ,AnsiExit ***Option 2
.ED3LDHL,0 LD(Y),HL Home the cursor CALL CLEARBUF CALL CLSscree
n JP ANSIEXIT ***Option 0 .ED1 LDHL,(Y) Get and save cursor position LD
A,H ORL JPZ,ED3 If we are at the top of the screen and clearing to the botto
m then we are clearing all the screen! PUSHHL LDA,screendepth-1 SUBL sc
reendepth - Row LDHL,0 Zero start ORA Do we have any lines to add JRZ,ED1
2 If no bypass that addition! LDB,A Number of lines to count LDDE,80 .ED11
ADDHL,DE DJNZED11 . NED12 EXHL,DE Value into DE POPHL LDA,80 SUBH 80 -
Columns LDL,A Add to value before LDH,0 ADDHL,DE PUSHHL Value saved for l
ater LDHL,(Y) that value again! CALLscraddress So where does it all begin
POPBC Number to blank PUSHBC Save for a moment! CALLScreenBlank Now
do it! LDHL,(Y) Get the cursor position again CALLGetAddress Address in buf
fer POPBC CALLBufferBlank JPAnsiExit Then exit properly ***Option1
.ED2 LDHL,(Y) Get and save cursor position PUSHHL LDA,L LDHL,0 Zero st
art ORA Do we have any lines to add JRZ,ED22 If no bypass that addition!
LDB,A Number of lines LDDE,80 .ED21 ADDHL,DE DJNZED21 .ED22 EXHL,DE Valu
e into DE POPHL LDL,H Add to value before LDH,0 ADDHL,DE PUSHHL Value sav
ed for later LDHL,0 Find the begining! CALLscraddress So where does it all b
egin POPBC Number to blank PUSHBC Save for a while CALLScreenBlank Now do
it! LDHL,0 Find start position CALLGetAddress Address in buffer POPBC C
ALLBufferBlank JPAnsiExit Then exit properly ***ANSI CLEAR LINE .ELCAL
LGetNumber Get value CP0 JPZ,EL1 Zero & Default are the same CP255 JPZ,EL1
CP254 JPZ,EL1 CP1 JPZ,EL2 CP2 JPNZ,AnsiExit Otherwise don't do a thing ***
Option 2 LDHL,(Y) LDH,0 PUSHHL CALLscraddress Start of line position LD
BC,80 80 bytes to clear (whole line) CALLScreenBlank POPHL CALLGetAddress
LDBC,80 CALLBufferBlank JPAnsiExit ***Option 0 .EL1LDHL,(Y) LDA,8
0 Calculate distance to end of line SUBH LDC,A LDB,0 PUSHBC PUSHHL PUSHBC
CALLscraddress Find current position POPBC CALLScreenBlank POPHL CALLGetA
ddress POPBC CALLBufferBlank JPAnsiExit ***Option 1 .EL2LDHL,(Y) L
DC,H BC distance from start of line LDB,0 LDH,0 PUSHBC PUSHHL PUSHBC CALL
scraddress Find start of line POPBC CALLScreenBlank POPHL CALLGetAddress
POPBC CALLBufferBlank JPAnsiExit .ScreenBlank HL address to clear f
rom BC number of bytes to clear Uses/Abuses - Most registers LDD,8 Value
to add between lines .ScreenBlankNext LDE,8 8 bytes down PUSHHL .ScreenBlank
Down XORA Value to load in LD(HL),A Loop downwards CALL ScreenSetHL LD(HL),A
LDA,H Add offset ADDD LDH,A DECE 1 less line to go LDA,E ORA Are there an
y lines left JRNZ,ScreenBlankDown POPHL CALLScreenBlankAcross DECBC 1 less a
cross now! LDA,C ORB JRNZ,ScreenBlankNext RET .ScreenSetHL LD A,(JInve
rse) OR A LD A,255 RET Z XOR A RET .ScreenBlankAcross INCHL HL HL + 1
LDA,H ANDA,%00000111 Mask back into range of screen ADDA,&C0 Add base of scre
en address LDH,A RET .BufferBlank HL address BC length PUSHHL 1 for l
ater! PUSHHL POPDE INCDE DE - HL +1 PUSHBC Save the value a little longer!
LD(HL),32 Blank this area! LDIR POPBC Restore values POPHL LD DE,2048
Move to attributes block ADDHL,DE PUSHHL POPDE INCDE LD A,(FONTSET) AND%1
000 LD(HL),A LDIR RET ----------------------------------------- Totaly di
sable screen buffering and reset ansi/stop cursor flash and remove cursor ---
-------------------------------------- .ANSIOFF CALL RESETANSI CALL SCRBUFOFF
LD A,(cursoron) OR A CALL NZ,cursorswap cursor XOR A LD (cursoron)
,A LD (cursorcount),A LD A,&C9 LD (jchangecursor),A LD (jjchangecurs
or),A RET ---------------------------------------- restore ansi/buffering and
cursor ---------------------------------------- .ANSION CALL RESETANSI CALL
SCRBUFON LD (JJCHANGECURSOR),A RET ----------------------------- Turn off a
nd on screen buffer exit AF corrupt ------------------------------ .SCRBufONs
creen buffer on XOR A JR SCRBOF1 .SCRBufOFFscreen buffer off LD A,&C
9 .SCRBOF1 LD (jscrnenable),A LD (jrollenable),A LD (jclearenable),A
RET --------------------------------------------- SCREEN BUFFER CHARACTER
UPDATE Entry A character ----------------------------------------------- .JS
crnBufBYTE0 N Runtime flag. 0 on &c9 off .JScrnenableBYTE 0 .ScrnBuf P
USHAF Save character LDHL,(Y) Where are we CALLGetAddress Find where to put by
te LD(HL),A and save it there LDA,(fontset) LDDE,2048 Move to attrib block A
DDHL,DE LD(HL),A POPAF Restore character RET Roll buffer down .JBufferr
oll BYTE0 Gets set at runtime self modifying .Jrollenable BYTE0 .Bufferroll
LDBC,Screendepth-1*80 # LDHL,ScreenC+80 FROM LDDE,ScreenC TO LDIR LDBC,Sc
reendepth-1*80 # LDHL,ScreenA+80 FROM LDDE,ScreenA TO LDIR LDHL,screendept
h-1*80+ScreenC LDDE,screendepth-1*80+ScreenC+1 LDBC,79 LD(HL),32 LDIR LDHL,
screendepth-1*80+ScreenA LDDE,screendepth-1*80+ScreenA+1 LDBC,79 LD A,(FONTSE
T) AND%1000 LD(HL),A LD(HL),0 LDIR RET Clear buffer .jclearBuf BYTE
0 Runtime option 0 on,&c9 off .Jclearenable BYTE0 .clearBuf LDBC,2047 Lengt
h of block -1 (start 1 up) LDHL,ScreenC FROM LDDE,ScreenC+1 TO , overlapping
LD(HL),32 Fill first byte LDIR LDBC,2047 Length LDHL,ScreenA FROM LDDE,Scree
nA+1 TO, overlapping LD(HL),0 Fill first byte LDIR RET ***AN
SI SET GRAPHICS RENDITION .SGRCALLGetNumber CP254 254 signifies end of seque
nce JPZ,AnsiExit ORA CALLZ,AllOff CP255 Default means all off CALLZ,AllOff
CP1 CALLZ,BoldOn CP2 CALLZ,feintOn CP3 CALLZ,ItalicOn CP4 CALLZ,UnderOn
CP5 CALLZ,ItalicOn CP6 CALLZ,ItalicOn CP7 CALLZ,InverseOn CP8 CALLZ,Same
backfore CP29 30 to 37 are foreground colours. CALLNC,BackFore JPSGR Code is
re-entrant -------------------------------- RESET GRAPHICS Entry - None
Exit - None Used - None -------------------------------- .AllOff PUSHAF
Save registers XOR A on LD(Jgetcharacter),A LDA,&C9 off LD(JBold),A Turn t
he flags off LD(JItalics),A LD(JUnder),A LD(JInverse),A LD (Jfeint),A LD(JS
mash),A LD(JHighInt),A XORA Reset background to black LD(backcolour),A LDA,7
Reset foreground to white LD(forecolour),A XORA LD(fontset),A Reset the bit
map store POPAF Restore register RET -------------------------------- TU
RN BOLD ON Entry - None Exit - None Used - None ------------------------
-------- .BoldOn PUSHAF Save register XORA 0 means on LD(JBold),A LD(JHighI
nt),A LDA,(forecolour) And update the foreground colour, CP8 (if less than 8)
JRNC,BOn1 ORA so long as it is not 0. JRZ,BOn1 ADD8 LD(forecolour),A LDA,&
C9 If bold is on, then it only affects fore. LD(JSmash),A So we MUST NOT clear
the character. .BOn1 LD A,&C9 LD (jgetcharacter),A LD (jfeint),A LDA,(fonts
et) SET0,A turn ON indicator flag RES5,A LD(fontset),A POPAF Restore registe
r RET -------------------------------- TURN FEINT ON Entry - None
Exit - None Used - None -------------------------------- .feintOn PUSHAF
Save register XORA 0 means on LD(Jfeint),A LD(JHighInt),A LDA,(forecolour) A
nd update the foreground colour, CP8 (if less than 8) JRNC,fen1 ORA so long a
s it is not 0. JRZ,fen1 ADD8 LD(forecolour),A LDA,&C9 If bold is on, then it
only affects fore. LD(JSmash),A So we MUST NOT clear the character. .fen1 LD
A,&C9 LD (jgetcharacter),A LD (jbold),A LDA,(fontset) SET5,A turn ON indica
tor flag RES0,A LD(fontset),A POPAF Restore register RET BoldOff PUSHA
F PUSHBC LDA,&C9 LD(JBold),A LD(JHighInt),A LDA,(forecolour) CP8 JRC,BO1
SUB8 LD(forecolour),A LDC,A LDA,(backcolour) LDB,A LDA,C CALLSmashThem B
O1 LDA,(fontset) RES0,A LD(fontset),A POPBC POPAF RET ---------------
----------------- TURN ITALICS ON (replaces flashing) Entry - None Exit -
None Used - None -------------------------------- .ItalicOn PUSHAF Save AF
XORA LD(JItalics),A 0 means on LDA,(fontset) SET1,A turn ON indicator flag
LD(fontset),A POPAF Restore register RET --------------------------------
TURN UNDERLINE ON Entry - None Exit - None Used - None --------------
------------------ .UnderOn PUSHAF Save register XORA 0 means o Nn LD(JUnde
r),A LDA,(fontset) SET2,A turn ON indicator flag LD(fontset),A POPAF Restore
register RET -------------------------------- TURN INVERSE ON Entry -
None Exit - None Used - None -------------------------------- .InverseOn
PUSHAF Save register XORA 0 means on LD(JInverse),A LDA,(backcolour) Save ba
ck colour PUSHAF LDA,(forecolour) Copy fore colour into back colour LD(backco
lour),A POPAF Retrieve back colour, and copy into LD(forecolour),A fore colou
r LDA,(fontset) SET3,A turn ON indicator flag LD(fontset),A POPAF Restore AF
RET -------------------------------- SET FOREGROUND COLOUR TO BACKGROUN
D Entry - None Exit - None Used - None -------------------------------
- .Samebackfore PUSHAF LDA,(backcolour) Get background colour LD(forecolour)
,A Save into foreground colour XORA LD(JSmash),A Turn Smash! on. LDA,(fontset
) SET4,A turn ON indicator flag LD(fontset),A POPAF RET -----------------
--------------- BACK/FORE GROUND Entry - A 39 for fore 29 for back
Exit - None Used - None -------------------------------- .BackFore CP39
JRNC,BackGround otherwise drop through to foreground colour. --------------
------------------ SET FOREGROUND COLOUR Entry - None Exit - None Used
- None -------------------------------- .foreground PUSHAF PUSHBC SUB30
Bring down to 0 base. ORA If not zero then CALLNZ,JHighInt Add 8 if high inten
sity LD(forecolour),A Save colour LDC,A LDA,(backcolour) get the other one.
LDB,A B background LDA,C A foreground CALLSmashThem Toggle smash POPBC POP
AF RET -------------------------------- SET BACKGROUND COLOUR Entry -
None Exit - None Used - None -------------------------------- .backgroun
d PUSHAF PUSHBC SUB40 Bring down to 0 base. LD(backcolour),A Save colour LD
B,A LDA,(forecolour) get the other one. CALLSmashThem Turn smash on POPBC PO
PAF RET ------------------------------- SMASH ON/OFF Entry - A/B fore
/back Exit - Smash on if same Underline on if 4 Used - AF --------------
----------------- .SmashThem PUSHAF CPA,B are they the same JRZ,STB1 LDA,&C
9 RET LD(JSmash),A turn off smash! LDA,(fontset) RES4,A turn OFF indicator fl
ag. LD(fontset),A POPAF AND7 Mask out high intensity flag. ORA Is A zero JR
NZ,ST1 LD(JInverse),A Inverse ON, if 0 LDA,(fontset) SET3,A turn ON indicator
flag LD(fontset),A RET .ST1 LDA,&C9 Turn inverse off if not 0 LD(JInverse)
,A LDA,(fontset) RES3,A turn OFF indicator flag. LD(fontset),A RET .STB1X
ORA NOP LD(JSmash),A turn smash! on LDA,(fontset) SET4,A turn ON indicator fl
ag. LD(fontset),A POPAF RET ------------------------------- SET HIGH IN
TENSITY Entry - A Colour Exit - A Colour or A High Intensity Colour Us
ed - None ------------------------------- .JHighInt BYTE&C9 0 means on, &C
9 means off .HighInt ADD8 RET ***ANSI SAVE CURSOR POSITION .SCPLDHL,(Y)
(backup) - (current) LD(CursorPos),HL JPAnsiExit ***ANSI RESTORE CURSOR PO
SITION .RCPLDHL,(CursorPos) (current) - (backup) LD(Y),HL JPAnsiExit
RET 1 print "main input routines" the following equates must be
kept up to date. general jump block for inits j300initplusequ gu+0
SetInteruptequ gu+3 OffInteruptequ gu+6 Removecursorequ gu+9 Placecursorequ
gu+12 CLOCKRESequ gu+15 CLOCKPRINTequ gu+18 CLPRINTequ gu+21 CLOCKONequ gu+2
4 CLOCKOFFequ gu+27 window PULLDOWNequ gu+30 DATALINEequ gu+33 PRINTD
ATACURSORequ gu+36 DLCURSORequ gu+39 Windowequ gu+42 MBORDERequ gu+45 MPRI
NTequ gu+48 N MCURSORequ gu+51 MENUCURSORequ gu+54 HOTKEYSequ gu+57 MPRINTC
URequ gu+60 WINDOWWIPEequ gu+63 WINDOWPAGEequ gu+66 ANSI RLSETOFFSETeq
u gu+69 RESETANSIequ gu+72 SETANSIequ gu+75 ScreenBlankequ gu+78 BufferBlank
equ gu+81 ANSIOFFequ gu+84 ANSIONequ gu+87 AllOffequ gu+90 Textsys NU
MBER8equ gu+93 PULLPRINTequ gu+96 WriteCharequ gu+99 ScreenWriteequ gu+102 c
lsequ gu+105 CLSscreenequ gu+108 .TEXTequ gu+111 CHARequ gu+114 AnsiCharequ
gu+117 CURSORequ gu+120 CELL2equ gu+123 GetAddressequ gu+126 SCRADDRESSequ g
u+129 Clearkeysequ gu+132 ANSITEXTequ gu+135 YESNOequ gu+138 KEYINPequ gu+14
1 INPUTLINEequ gu+144 INPUTLINE2equ gu+147 Keyinput2equ gu+150 KEYLINEequ gu
+153 DEC8equ gu+156 DEC16equ gu+159 Inverselineequ gu+162 NEXTBYTEequ gu+165
NEXTLINEequ gu+168 NUMBER16equ gu+171 MULTIPLYDEBCequ gu+174 DIVIDEHLDEequ
gu+177 hexequ gu+180 inverseequ gu+183 setjjchangeequ gu+186 pulljpequ gu+
189 winretequ gu+192 .clearBufequ gu+195 SCRBufONequ gu+198 SCRBufOFFequ gu+
201 .GetCharacterequ gu+204 Waitflyequ gu+207 cellequ gu+210 FWmult16equ gu+
213 FWdivide16equ gu+216 FWMod16equ gu+219 FWComp16equ gu+222 FWTestHLequ gu
+225 anykeyequ gu+228 pause300equ gu+231 ++++++++++++++++++++++++++++++++++++
+++++++++++++++++++ .PROGRAMSTART LD (STARTSTACK),SP call InitProgram call
newstart .NEWSTARTIF TOTAL RESET THEN START HERE! XOR A call set
jjchangeenable cursor LD HL,(DY) LD (Y),HLset cursor .mainloop1 call talkinp
call talkout cp &e0 call z,data2 jp mainloop1 ------------------------
--------------------------- .TALKINP CALL INPUTreceve char ret NCno char the
n read keyboard LD B,CharInTable/&100 LD C,A LD A,(BC) CALL SCREENWRITEpri
nt char jp Echosout ------------------------------------------------ .TALKo
ut CALL &BB1Bread char ret NCif no char then read buffer CP &E0 ret zpull do
wn line if COPY pressed call vt100outVT100 keys add here capture window LD D
,CharOutTable/&100 LD E,A ld a,c or a ret nz the last keys were vt100!
LD A,(DE) CALL OUTPUToutput char jp Echosin -------------------------------
------------------ .Echosin call JLOCALECHO CP 8 call Z,JREMOTEDEL CP 13 j
p Z,JREMOTELFecho ------------------------------------------------ .Echosout
call JREMOTEECHO CP 8 call Z,JLOCALDEL CP 13 jp Z,JLOCALLFecho --
----------------------------------------------- .VT100out if c0 then not vt100
keys LD C,"A"UP CP &F4 jp Z,VT100CUR inc CB - DOWN CP &F5 jp Z,VT100CUR i
nc CC RIGHT CP &F7 jp Z,VT100CUR INC CD LEFT CP &F6 jp Z,VT100CUR ld c,0
ret ----------------------------------------------------- .JLOCALECHO RET CA
LL SCREENWRITE CP 8 JR Z,JLOCALDEL CP 13 JR Z,JLOCALLF RET
.JLOCALDEL RET LD A," " CALL SCREENWRITE LD A,8 JP SCREENWRITE .JLOCA
LLF RET LD A,10 CALL SCREENWRITE LD A,13 RET JREMOTEECHO RET C
ALL OUTPUT CP 8 JR Z,JREMOTEDEL CP 13 JR Z,JREMOTELF RET .JREMOTED
EL RET LD A," " CALL OUTPUT LD A,8 JP OUTPUT .JREMOTELF RET LD A,10 CAL
L OUTPUT LD A,13 RET ----------------------------------------------------
.VT100CUR LD A,27 CALL OUTPUT LD A,"" CALL OUTPUT LD A,C jp OUTPUT send o
ut VT100 codes ------------------------------------------------------ .EXPAN
DKEYS SUB 128 LD L,A LD H,0 ADD HL,HL2 LD DE,EXPANDTABLE ADD HL,DE LD E,(
HL)INC HLLD D,(HL) EX HL,DE .EXKY1LD A,(HL) INC HL OR A ret Z CALL OUTPUTo
utput char CALL EchosOut JP EXKY1 -------------------------------------------
------ .ESCAPE CALL &BB00KM INIT - just crash out!!!! LD A,2 CALL &BC0E
LD SP,(STARTSTACK) JP OFFINTERUPT ----------------------------------------
---------- .DATA2 XOR A LD (COM),Areset dataline LD (PULLSTACK),SPsave s
tack just in case CALL Ansioffreset ansi/remove cursor LD HL,(Y) LD (DY),HLsa
ve x,y CALL DATALINEpull down dataline CALL Ansionset ansi back to normal LD
HL,(DY) LD (Y),HL call PlaceCursorplace the cursor/ret xor a ret ------
------------------------- USE A DATALINE entry HLaddress of info exit used
------------------------------- .DATALINEno Nw automaticly forces pulldown
! CALL PRINTDATALINE LD A,(COM) CALL DLCURSORprint cursor .ENT LD A,(COM)
LD L,A LD H,0 ADD HL,HL ADD HL,HL INC HL INC HLhl points to jp LD DE,MAINS
TART ADD HL,DE LD E,(HL) INC HL LD D,(HL) ixaddress to jump/call PUSH DE
POP IX LD (IX+10),0RESET CURSOR CALL PULLDOWN JP C,DLLEFTRIGHT C
P &FF JR Z,ENT CP &FC JR NZ,ENT If Esc then stay on line .DATAEL
D HL,0 CALL DAEerase dataline LD HL,24 .DAELD B,80 LD C,1 CALL WINDOW RET
.DLLEFTRIGHT CP 9 CALL Z,DLRIGHT If 9 then move right CP 8 CALL Z,DLLEFT
If 8 then move left LD (IX+10),0 JP ENT .DLLEFT LD A,(COM) CALL DLCURSORR
EMOVE CURSOR LD A,(COM) DEC AINC COMAND NUMBER CP &FF JR NZ,ML1 XOR
A .ML1LD (COM),A CALL DLCURSOR XOR A RET .DLRIGHT LD A,(COM)BAS
ICLY THE SAME CALL DLCURSOR LD A,(COM) INC A CP 6 JR NZ,MR1 LD A,5
.MR1LD (COM),A CALL DLCURSOR XOR A RET -------------------------
------ PRINT A DATA LINE ENTRY HLADDRESS OF INFO X Y WIDTH S
TRING NO OF COMMANDS X,WIDTH,JP X,WIDTH,JP --------------------------------
.PRINTDATACURSOR CALL PRINTDATALINE LD A,(COM) JP DLCURSOR .PRINTDATALINE
CALL WAITFLYTime with screen .DL1PUSH BC PUSH DE PUSH HLsave widt
h,x,y LD HL,0 LD DE,TIMELINE .DL2PUSH HL CALL SCRADDRESSget screen address
LD A,(DE) inc de or aCORRUPT jr z,dlpop push de push hl LD C,A B
IT 7,C LD HL,DLBUFhltemp buff for char CALL Z,GETCHARACTER CALL INVERSEinvers
e text EX HL,DE POP HL CALL ANSICHARPrint POP DE POP HL I
NC H JP DL2 .DLPOP POP HL POP HL POP DE POP BC RET -------
----------------------------- Print Cursor on dataline Entry A-entry number U
sed AF Note must first int a line ------------------------------------- .DL
CURSOR PUSH HL PUSH DEsave regs LD L,A LD H,0 ADD HL,HLcurs
or no *2 ADD HL,HL*4 LD DE,MAINSTART ADD HL,DEadd to start to give x,width,jp
LD D,(HL) LD E,0 INC HL LD B,(HL)Bwidth EX HL,DE hl
x,y CALL INVERSELINEjust that!! POP DE POP HL RET .InitProgram .PSBYCP
1 LD A,0 JR NZ,PSIX LD A,(IX+0) .PSIX LD (RS232SELECT),A LD A,&FF RST 3,
SMJP .PSRSX1 CALL SETUPRS232Setup the rs232 according to what type it is
CALL SOUNDRESET LD HL,ENTBLK LD A,1 CALL &BCBFSET TONE ENVELOPE CALL KKE
Y RESET/SET KEYS LD A,2 CALL &BC0ESet to mode 2 call setinit300plus CALL S
etinterupt turn on interupts cursor/sr CALL Scrbufonturn on buffers CALL Clock
Res CALL clsscreenclear screen and buffer CALL resetansiset ansi to normal+sav
e vars in case of call to setansi LD A,&C9 call setjjchangecursor tot
aly disabled LD HL,LOGON CALL ANSITEXT CALL ERASEDIRerase dir
CALLCLEARSB LD A,&C9 LD (DIRERROR),A CALL LOADDIR XOR A
LD (DIRERROR),A LD HL,RBufferStart LD (InputLow),HL LD (InputHigh),HL
CALL CLSSCREEN LD HL,LOGON2 CALL ANSITEXT LD HL,1 LD (DY),HL retsave Curso
r pos in DY inits j30CALL resetansiset ansi to normal+save vars in case
of call to setansi LD A,&C9 call setjjchangecursor t N N
!N!!!!!!!!! "N""""""""" #N######### $N$$$$$$$$$ %N%%%%%%%%% &N&&&&&&&&& 'N
'''''''''