ANSWER/EXT.S
FILE INFORMATION
FILENAME(S): ANSWER/EXT.S
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-30 16:59:39
APPEARS ON: 1 disk(s)
FILE HASH
6effb52d61d7d7728df03e2d624fd4e9ec5e7c7c6a555aa8bdf0a19d84cca51a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | ANSWER/EXT.S | PRG | High Voltage Complete C64 Collection | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 0D 2A A0 61 6E 73 77 65 72 A0 72 6F 75 74 |**.*.answer.rout| 00000030: 69 6E 65 A0 A0 A0 A0 A0 A0 A0 3A A0 76 31 2E 30 |ine.......:.v1.0| 00000040: A0 A0 2A 0D 2A A0 62 79 A0 6C 65 65 A0 74 68 6F |..*.*.by.lee.tho| 00000050: 6D 70 73 6F 6E A0 A0 A0 A0 A0 A0 3A A0 73 72 63 |mpson......:.src| 00000060: 65 A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |e..*.***********| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 0D 2A A0 6D 6F 64 65 6D A0 65 78 |*****.*.modem.ex| 00000090: 74 72 65 6D 69 74 79 A0 72 6F 75 74 69 6E 65 A0 |tremity.routine.| 000000A0: 6C 69 73 74 A0 2A 0D 2A 2D 2D 2D 2D 2D 2D 2D 2D |list.*.*--------| 000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000C0: 2D 2D 2D 2D 2D 2D 2A 0D 2A A0 61 6E 73 77 65 72 |------*.*.answer| 000000D0: 2E 65 78 74 A0 A0 2D 61 6E 73 77 65 72 A0 72 6F |.ext..-answer.ro| 000000E0: 75 74 69 6E 65 A0 A0 2A 0D 2A A0 62 62 73 2F 69 |utine..*.*.bbs/i| 000000F0: 6F 2E 65 78 74 A0 A0 2D 69 6E 70 75 74 2F 6F 75 |o.ext..-input/ou| 00000100: 74 70 75 74 A0 72 74 A0 2A 0D 2A A0 74 72 61 6E |tput.rt.*.*.tran| 00000110: 73 66 2E 65 78 74 A0 A0 2D 74 72 61 6E 73 66 65 |sf.ext..-transfe| 00000120: 72 A0 A0 A0 A0 A0 A0 A0 A0 2A 0D 2A A0 70 75 6E |r........*.*.pun| 00000130: 74 65 72 2E 65 78 74 A0 A0 2D 70 75 6E 74 65 72 |ter.ext..-punter| 00000140: A0 70 72 6F 74 6F 63 6F 6C A0 2A 0D 2A 3D 3D 3D |.protocol.*.*===| 00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 2A 0D 2A A0 69 |===========*.*.i| 00000170: 6E A0 61 64 64 69 74 69 6F 6E 2C A0 74 68 65 72 |n.addition,.ther| 00000180: 65 A0 69 73 A0 61 A0 A0 A0 A0 A0 A0 2A 0D 2A A0 |e.is.a......*.*.| 00000190: 63 6C 6F 63 6B A0 72 6F 75 74 69 6E 65 A0 28 63 |clock.routine.(c| 000001A0: 6C 6F 63 6B 2E 65 78 74 29 A0 A0 A0 A0 2A 0D 2A |lock.ext)....*.*| 000001B0: A0 77 68 69 63 68 A0 63 61 6E A0 62 65 A0 73 65 |.which.can.be.se| 000001C0: 74 A0 62 79 A0 74 68 65 A0 A0 A0 A0 A0 A0 2A 0D |t.by.the......*.| 000001D0: 2A A0 73 79 73 74 65 6D A0 63 6F 6D 6D 61 6E 64 |*.system.command| 000001E0: A0 27 2F 2F 73 65 74 A0 63 6C 6F 63 6B 27 A0 2A |.'//set.clock'.*| 000001F0: 0D 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.*--------------| 00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000210: 2A 0D 2A A0 65 78 74 72 65 6D 69 74 79 A0 6C 6F |*.*.extremity.lo| 00000220: 61 64 69 6E 67 A0 61 64 64 72 65 73 73 65 73 A0 |ading.addresses.| 00000230: A0 2A 0D 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.*.*------------| 00000240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000250: 2D 2D 2A 0D 2A A0 35 31 32 30 30 A0 5B 63 38 30 |--*.*.51200.[c80| 00000260: 30 5D A0 A0 A0 A0 A0 A0 65 78 74 65 6E 73 69 6F |0]......extensio| 00000270: 6E 31 A0 2A 0D 2A A0 35 34 32 37 32 A0 5B 64 34 |n1.*.*.54272.[d4| 00000280: 30 30 5D A0 A0 A0 A0 A0 A0 65 78 74 65 6E 73 69 |00]......extensi| 00000290: 6F 6E 32 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |on2.*.**********| 000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002B0: 2A 2A 2A 2A 2A 2A 0D 2A A0 65 61 63 68 A0 65 78 |******.*.each.ex| 000002C0: 74 65 6E 73 69 6F 6E A0 73 70 61 63 65 A0 68 61 |tension.space.ha| 000002D0: 73 A0 A0 A0 A0 A0 2A 0D 2A A0 31 37 39 32 A0 62 |s.....*.*.1792.b| 000002E0: 79 74 65 73 2E A0 A0 73 6F 6D 65 A0 65 78 74 A0 |ytes...some.ext.| 000002F0: A0 A0 A0 A0 A0 A0 A0 2A 0D 2A A0 6D 6F 64 75 6C |.......*.*.modul| 00000300: 65 73 A0 74 61 6B 65 A0 75 70 A0 62 6F 74 68 A0 |es.take.up.both.| 00000310: 62 75 66 66 65 72 73 A0 2A 0D 2A 2A 2A 2A 2A 2A |buffers.*.******| 00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 A0 A0 A0 |**********.*....| 00000340: A0 A0 A0 A0 A0 A0 A0 65 78 74 31 A0 A0 A0 A0 A0 |.......ext1.....| 00000350: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A |..........*.****| 00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 20 6F |************.. o| 00000380: 72 67 20 35 31 32 30 30 0D 0D 20 6A 6D 70 20 61 |rg 51200.. jmp a| 00000390: 6E 73 77 65 72 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A |nswer..*********| 000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003B0: 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 73 79 73 6D 73 67 |*******.*.sysmsg| 000003C0: 27 73 A0 66 6F 72 A0 61 6E 73 77 65 72 2E 65 78 |'s.for.answer.ex| 000003D0: 74 A0 A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A |t......*.*******| 000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 73 79 73 6D 73 |*********..sysms| 00000400: 67 31 20 74 78 74 20 27 28 73 79 73 6D 73 67 3A |g1 txt '(sysmsg:| 00000410: A0 77 61 69 74 69 6E 67 A0 66 6F 72 A0 63 61 6C |.waiting.for.cal| 00000420: 6C 29 27 0D 73 79 73 6D 73 67 32 20 74 78 74 20 |l)'.sysmsg2 txt | 00000430: 27 28 73 79 73 6D 73 67 3A A0 69 6E 63 6F 6D 69 |'(sysmsg:.incomi| 00000440: 6E 67 A0 63 61 6C 6C 29 27 0D 73 79 73 6D 73 67 |ng.call)'.sysmsg| 00000450: 33 20 74 78 74 20 27 28 73 79 73 6D 73 67 3A A0 |3 txt '(sysmsg:.| 00000460: 73 69 67 6E 61 6C 69 6E 67 A0 63 61 72 72 69 65 |signaling.carrie| 00000470: 72 29 27 0D 73 79 73 6D 73 67 34 20 74 78 74 20 |r)'.sysmsg4 txt | 00000480: 27 28 73 79 73 6D 73 67 3A A0 63 61 72 72 69 65 |'(sysmsg:.carrie| 00000490: 72 A0 61 6E 73 77 65 72 65 64 29 27 0D 73 79 73 |r.answered)'.sys| 000004A0: 6D 73 67 35 20 74 78 74 20 27 28 73 79 73 6D 73 |msg5 txt '(sysms| 000004B0: 67 3A A0 73 79 73 74 65 6D A0 65 72 72 6F 72 29 |g:.system.error)| 000004C0: 27 0D 73 79 73 6D 73 67 36 20 74 78 74 20 27 28 |'.sysmsg6 txt '(| 000004D0: 73 79 73 6D 73 67 3A A0 63 6F 6E 66 69 67 A0 65 |sysmsg:.config.e| 000004E0: 72 72 6F 72 A0 2D 63 68 65 63 6B 29 27 0D 73 79 |rror.-check)'.sy| 000004F0: 73 6D 73 67 37 20 74 78 74 20 27 28 73 79 73 6D |smsg7 txt '(sysm| 00000500: 73 67 3A A0 68 61 79 65 73 A0 6F 6E 6C 69 6E 65 |sg:.hayes.online| 00000510: A0 61 74 A0 33 30 30 A0 62 61 75 64 29 27 0D 73 |.at.300.baud)'.s| 00000520: 79 73 6D 73 67 38 20 74 78 74 20 27 28 73 79 73 |ysmsg8 txt '(sys| 00000530: 6D 73 67 3A A0 68 61 79 65 73 A0 6F 6E 6C 69 6E |msg:.hayes.onlin| 00000540: 65 A0 61 74 A0 31 32 30 30 A0 62 61 75 64 29 27 |e.at.1200.baud)'| 00000550: 0D 73 79 73 6D 73 67 39 20 74 78 74 20 27 28 73 |.sysmsg9 txt '(s| 00000560: 79 73 6D 73 67 3A A0 6F 6E 6C 69 6E 65 A0 61 74 |ysmsg:.online.at| 00000570: A0 33 30 30 A0 62 61 75 64 29 27 0D 0D 2A 2A 2A |.300.baud)'..***| 00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 |*************.*.| 000005A0: 6C 61 62 65 6C 73 A0 66 6F 72 A0 61 6E 73 77 65 |labels.for.answe| 000005B0: 72 2E 65 78 74 A0 A0 A0 A0 A0 A0 A0 A0 2A 0D 2A |r.ext........*.*| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 000005E0: 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000600: 2A 0D 2A A0 6B 65 72 6E 61 6C A0 6C 6F 63 61 74 |*.*.kernal.locat| 00000610: 69 6F 6E 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |ions............| 00000620: A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.*.*************| 00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000640: 2A 2A 2A 0D 63 68 72 6F 75 74 20 65 71 75 20 24 |***.chrout equ $| 00000650: 66 66 64 32 0D 67 65 74 69 6E 20 65 71 75 20 24 |ffd2.getin equ $| 00000660: 66 66 65 34 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ffe4.***********| 00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000680: 2A 2A 2A 2A 2A 0D 2A A0 72 73 32 33 32 A0 72 65 |*****.*.rs232.re| 00000690: 67 69 73 74 65 72 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 |gisters.........| 000006A0: A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....*.*********| 000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 0D 72 73 32 33 32 61 20 65 |*******.rs232a e| 000006D0: 71 75 20 24 64 64 30 31 0D 72 73 32 33 32 62 20 |qu $dd01.rs232b | 000006E0: 65 71 75 20 24 64 64 30 33 0D 6D 6F 64 65 20 65 |equ $dd03.mode e| 000006F0: 71 75 20 24 63 37 34 35 0D 70 75 6E 74 65 72 6C |qu $c745.punterl| 00000700: 6F 20 65 71 75 20 24 63 62 30 30 0D 70 75 6E 74 |o equ $cb00.punt| 00000710: 65 72 68 69 20 65 71 75 20 24 63 62 30 31 0D 2A |erhi equ $cb01.*| 00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00000740: 2A A0 6C 6F 77 65 72 A0 72 73 32 33 32 A0 72 65 |*.lower.rs232.re| 00000750: 67 69 73 74 65 72 73 A0 A0 A0 A0 A0 A0 A0 A0 2A |gisters........*| 00000760: 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000780: 2A 0D 72 73 72 65 67 20 65 71 75 20 24 30 32 39 |*.rsreg equ $029| 00000790: 33 0D 72 73 6C 6F 20 65 71 75 20 24 30 32 39 35 |3.rslo equ $0295| 000007A0: 0D 72 73 68 69 20 65 71 75 20 24 30 32 39 36 0D |.rshi equ $0296.| 000007B0: 72 73 32 33 32 6C 6F 20 65 71 75 20 24 30 32 39 |rs232lo equ $029| 000007C0: 39 0D 72 73 32 33 32 68 69 20 65 71 75 20 24 30 |9.rs232hi equ $0| 000007D0: 32 39 61 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |29a.************| 000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007F0: 2A 2A 2A 2A 0D 2A A0 76 61 72 69 61 62 65 73 A0 |****.*.variabes.| 00000800: 6D 30 2D 6D 35 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |m0-m5...........| 00000810: A0 A0 A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....*.**********| 00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000830: 2A 2A 2A 2A 2A 2A 0D 6D 6F 64 65 6D 20 65 71 75 |******.modem equ| 00000840: 20 24 30 33 33 63 0D 70 61 72 61 6D 31 20 65 71 | $033c.param1 eq| 00000850: 75 20 24 30 33 33 64 0D 70 61 72 61 6D 32 20 65 |u $033d.param2 e| 00000860: 71 75 20 24 30 33 33 65 0D 70 61 72 61 6D 33 20 |qu $033e.param3 | 00000870: 65 71 75 20 24 30 33 33 66 0D 70 61 72 61 6D 34 |equ $033f.param4| 00000880: 20 65 71 75 20 24 30 33 34 30 0D 62 61 75 64 20 | equ $0340.baud | 00000890: 65 71 75 20 24 30 33 34 31 0D 2A 2A 2A 2A 2A 2A |equ $0341.******| 000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 70 72 6F |**********.*.pro| 000008C0: 67 72 61 6D A0 77 6F 72 6B A0 61 72 65 61 73 A0 |gram.work.areas.| 000008D0: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A |..........*.****| 000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 73 74 61 |************.sta| 00000900: 74 75 73 20 65 71 75 20 24 30 33 34 32 0D 6C 65 |tus equ $0342.le| 00000910: 6E 67 74 68 20 65 71 75 20 24 30 33 34 33 0D 74 |ngth equ $0343.t| 00000920: 6D 70 62 61 75 64 20 65 71 75 20 24 30 33 34 34 |mpbaud equ $0344| 00000930: 0D 6C 6F 63 61 6C 20 65 71 75 20 24 30 33 34 35 |.local equ $0345| 00000940: 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000960: 2A 2A 0D 2A A0 70 72 6F 67 72 61 6D A0 27 61 6E |**.*.program.'an| 00000970: 73 77 65 72 2E 65 78 74 27 A0 A0 A0 A0 A0 A0 A0 |swer.ext'.......| 00000980: A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..*.************| 00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009A0: 2A 2A 2A 2A 0D 0D 61 6E 73 77 65 72 20 6C 64 61 |****..answer lda| 000009B0: 20 62 61 75 64 0D 20 73 74 61 20 74 6D 70 62 61 | baud. sta tmpba| 000009C0: 75 64 0D 20 6C 64 61 20 23 30 0D 20 73 74 61 20 |ud. lda #0. sta | 000009D0: 6C 6F 63 61 6C 0D 20 6C 64 61 20 23 31 33 0D 20 |local. lda #13. | 000009E0: 6A 73 72 20 63 68 72 6F 75 74 0D 20 6C 64 61 20 |jsr chrout. lda | 000009F0: 23 31 0D 20 6A 73 72 20 73 79 73 6D 73 67 0D 20 |#1. jsr sysmsg. | 00000A00: 6C 64 61 20 23 30 0D 20 73 74 61 20 73 74 61 74 |lda #0. sta stat| 00000A10: 75 73 0D 20 6C 64 61 20 23 32 34 30 0D 20 73 74 |us. lda #240. st| 00000A20: 61 20 6D 6F 64 65 0D 20 6C 64 61 20 70 61 72 61 |a mode. lda para| 00000A30: 6D 34 0D 20 63 6D 70 20 23 31 36 0D 20 62 6E 65 |m4. cmp #16. bne| 00000A40: 20 72 65 73 65 74 0D 20 6C 64 61 20 23 32 30 38 | reset. lda #208| 00000A50: 0D 20 73 74 61 20 6D 6F 64 65 0D 72 65 73 65 74 |. sta mode.reset| 00000A60: 20 6C 64 61 20 70 61 72 61 6D 31 0D 20 73 74 61 | lda param1. sta| 00000A70: 20 72 73 32 33 32 62 0D 20 6C 64 61 20 70 61 72 | rs232b. lda par| 00000A80: 61 6D 32 0D 20 73 74 61 20 72 73 32 33 32 61 0D |am2. sta rs232a.| 00000A90: 20 6C 64 61 20 6D 6F 64 65 6D 0D 20 63 6D 70 20 | lda modem. cmp | 00000AA0: 23 31 0D 20 62 65 71 20 73 74 61 72 74 0D 20 63 |#1. beq start. c| 00000AB0: 6D 70 20 23 32 0D 20 62 65 71 20 73 74 61 72 74 |mp #2. beq start| 00000AC0: 0D 20 63 6D 70 20 23 33 0D 20 62 65 71 20 73 74 |. cmp #3. beq st| 00000AD0: 61 72 74 0D 20 63 6D 70 20 23 34 0D 20 62 65 71 |art. cmp #4. beq| 00000AE0: 20 73 74 61 72 74 0D 20 6A 6D 70 20 65 72 72 6F | start. jmp erro| 00000AF0: 72 0D 73 74 61 72 74 20 6A 73 72 20 64 65 6C 61 |r.start jsr dela| 00000B00: 79 0D 6C 6F 6F 70 61 20 6A 73 72 20 6B 65 79 62 |y.loopa jsr keyb| 00000B10: 6F 61 72 64 0D 20 6C 64 61 20 73 74 61 74 75 73 |oard. lda status| 00000B20: 0D 20 63 6D 70 20 23 39 0D 20 62 65 71 20 65 78 |. cmp #9. beq ex| 00000B30: 70 72 65 73 73 0D 20 6C 64 61 20 6D 6F 64 65 6D |press. lda modem| 00000B40: 0D 20 63 6D 70 20 23 32 0D 20 62 63 63 20 63 68 |. cmp #2. bcc ch| 00000B50: 65 63 6B 32 0D 63 68 65 63 6B 31 20 6C 64 61 20 |eck2.check1 lda | 00000B60: 70 61 72 61 6D 33 0D 20 73 74 61 20 72 73 32 33 |param3. sta rs23| 00000B70: 32 61 0D 63 68 65 63 6B 32 20 6C 64 61 20 6D 6F |2a.check2 lda mo| 00000B80: 64 65 6D 0D 20 63 6D 70 20 23 33 0D 20 62 63 73 |dem. cmp #3. bcs| 00000B90: 20 63 68 65 63 6B 34 0D 63 68 65 63 6B 33 20 6C | check4.check3 l| 00000BA0: 64 61 20 72 73 32 33 32 61 0D 20 61 6E 64 20 23 |da rs232a. and #| 00000BB0: 38 0D 20 63 6D 70 20 23 30 0D 20 62 6E 65 20 63 |8. cmp #0. bne c| 00000BC0: 68 65 63 6B 34 0D 20 6A 6D 70 20 63 61 6C 6C 69 |heck4. jmp calli| 00000BD0: 6E 0D 65 72 72 20 6A 6D 70 20 65 72 72 6F 72 0D |n.err jmp error.| 00000BE0: 65 78 70 72 65 73 73 20 6A 6D 70 20 65 78 69 74 |express jmp exit| 00000BF0: 0D 63 68 65 63 6B 34 20 6C 64 61 20 6D 6F 64 65 |.check4 lda mode| 00000C00: 6D 0D 20 62 63 63 20 6C 6F 6F 70 61 0D 63 68 65 |m. bcc loopa.che| 00000C10: 63 6B 35 20 6C 64 61 20 72 73 32 33 32 61 0D 20 |ck5 lda rs232a. | 00000C20: 61 6E 64 20 23 31 36 0D 20 63 6D 70 20 70 61 72 |and #16. cmp par| 00000C30: 61 6D 34 0D 20 62 6E 65 20 6C 6F 6F 70 61 0D 20 |am4. bne loopa. | 00000C40: 6A 6D 70 20 63 61 72 72 69 65 72 0D 63 61 6C 6C |jmp carrier.call| 00000C50: 69 6E 20 6C 64 61 20 23 32 0D 20 6A 73 72 20 73 |in lda #2. jsr s| 00000C60: 79 73 6D 73 67 0D 20 6C 64 61 20 70 61 72 61 6D |ysmsg. lda param| 00000C70: 33 0D 20 73 74 61 20 72 73 32 33 32 61 0D 20 6C |3. sta rs232a. l| 00000C80: 64 61 20 6D 6F 64 65 6D 0D 20 63 6D 70 20 23 32 |da modem. cmp #2| 00000C90: 0D 20 62 6E 65 20 73 65 6E 64 0D 68 65 73 69 69 |. bne send.hesii| 00000CA0: 20 6C 64 61 20 23 33 38 0D 20 73 74 61 20 72 73 | lda #38. sta rs| 00000CB0: 32 33 32 62 0D 73 65 6E 64 20 6C 64 61 20 23 33 |232b.send lda #3| 00000CC0: 0D 20 6A 73 72 20 73 79 73 6D 73 67 0D 6C 6F 6F |. jsr sysmsg.loo| 00000CD0: 70 62 20 6A 73 72 20 6B 65 79 62 6F 61 72 64 0D |pb jsr keyboard.| 00000CE0: 20 6C 64 61 20 73 74 61 74 75 73 0D 20 63 6D 70 | lda status. cmp| 00000CF0: 20 23 39 0D 20 62 65 71 20 65 78 70 72 65 73 73 | #9. beq express| 00000D00: 0D 20 6C 64 61 20 72 73 32 33 32 61 0D 20 61 6E |. lda rs232a. an| 00000D10: 64 20 23 31 36 0D 20 63 6D 70 20 70 61 72 61 6D |d #16. cmp param| 00000D20: 34 0D 20 62 65 71 20 63 61 72 72 69 65 72 0D 20 |4. beq carrier. | 00000D30: 69 6E 78 0D 20 63 70 78 20 23 32 35 35 0D 20 62 |inx. cpx #255. b| 00000D40: 6E 65 20 6C 6F 6F 70 62 0D 20 69 6E 79 0D 20 6C |ne loopb. iny. l| 00000D50: 64 78 20 23 30 0D 20 63 70 79 20 23 32 35 35 0D |dx #0. cpy #255.| 00000D60: 20 62 6E 65 20 6C 6F 6F 70 62 0D 20 6C 64 61 20 | bne loopb. lda | 00000D70: 23 30 0D 20 6C 64 78 20 23 30 0D 20 6C 64 79 20 |#0. ldx #0. ldy | 00000D80: 23 30 0D 20 63 6C 63 0D 20 6A 6D 70 20 61 6E 73 |#0. clc. jmp ans| 00000D90: 77 65 72 0D 0D 63 61 72 72 69 65 72 20 6C 64 61 |wer..carrier lda| 00000DA0: 20 23 34 0D 20 6A 73 72 20 73 79 73 6D 73 67 0D | #4. jsr sysmsg.| 00000DB0: 20 6C 64 61 20 62 61 75 64 0D 20 63 6D 70 20 23 | lda baud. cmp #| 00000DC0: 32 0D 20 62 6E 65 20 6F 6E 6C 69 6E 65 0D 20 6C |2. bne online. l| 00000DD0: 64 61 20 72 73 32 33 32 61 0D 20 61 6E 64 20 23 |da rs232a. and #| 00000DE0: 33 32 0D 20 63 6D 70 20 23 30 0D 20 62 65 71 20 |32. cmp #0. beq | 00000DF0: 65 78 69 74 0D 20 6C 64 61 20 23 31 0D 20 73 74 |exit. lda #1. st| 00000E00: 61 20 74 6D 70 62 61 75 64 0D 20 6C 64 61 20 23 |a tmpbaud. lda #| 00000E10: 36 0D 20 73 74 61 20 72 73 72 65 67 0D 20 6C 64 |6. sta rsreg. ld| 00000E20: 61 20 74 6D 70 62 61 75 64 0D 20 63 6D 70 20 23 |a tmpbaud. cmp #| 00000E30: 31 0D 20 62 6E 65 20 63 6F 6D 62 79 74 65 0D 20 |1. bne combyte. | 00000E40: 6C 64 61 20 23 38 0D 20 73 74 61 20 72 73 72 65 |lda #8. sta rsre| 00000E50: 67 0D 20 6C 64 61 20 23 32 0D 20 73 74 61 20 74 |g. lda #2. sta t| 00000E60: 6D 70 62 61 75 64 0D 63 6F 6D 62 79 74 65 20 6C |mpbaud.combyte l| 00000E70: 64 61 20 74 6D 70 62 61 75 64 0D 20 63 6D 70 20 |da tmpbaud. cmp | 00000E80: 23 31 0D 20 62 65 71 20 62 61 75 64 33 30 30 0D |#1. beq baud300.| 00000E90: 20 63 6D 70 20 23 32 0D 20 62 65 71 20 62 61 75 | cmp #2. beq bau| 00000EA0: 64 31 32 30 30 0D 20 6A 6D 70 20 61 6E 73 77 65 |d1200. jmp answe| 00000EB0: 72 0D 0D 6F 6E 6C 69 6E 65 20 6C 64 61 20 23 39 |r..online lda #9| 00000EC0: 0D 20 6A 73 72 20 73 79 73 6D 73 67 0D 64 65 6C |. jsr sysmsg.del| 00000ED0: 61 79 20 6C 64 78 20 23 30 0D 20 6C 64 79 20 23 |ay ldx #0. ldy #| 00000EE0: 30 0D 64 65 6C 79 31 20 69 6E 78 0D 20 63 70 78 |0.dely1 inx. cpx| 00000EF0: 20 23 32 35 35 0D 20 62 6E 65 20 64 65 6C 79 31 | #255. bne dely1| 00000F00: 0D 64 65 6C 79 32 20 69 6E 79 0D 20 6C 64 78 20 |.dely2 iny. ldx | 00000F10: 23 30 0D 20 63 70 79 20 23 32 35 35 0D 20 62 6E |#0. cpy #255. bn| 00000F20: 65 20 64 65 6C 79 31 0D 20 72 74 73 0D 0D 65 72 |e dely1. rts..er| 00000F30: 72 6F 72 20 6C 64 61 20 23 36 0D 20 6A 73 72 20 |ror lda #6. jsr | 00000F40: 73 79 73 6D 73 67 0D 20 6A 6D 70 20 65 78 69 74 |sysmsg. jmp exit| 00000F50: 0D 0D 65 78 69 74 20 6C 64 61 20 23 30 0D 20 6C |..exit lda #0. l| 00000F60: 64 78 20 23 30 0D 20 6C 64 79 20 23 30 0D 20 63 |dx #0. ldy #0. c| 00000F70: 6C 63 0D 20 6C 64 61 20 23 31 33 0D 20 6A 73 72 |lc. lda #13. jsr| 00000F80: 20 63 68 72 6F 75 74 0D 20 6A 73 72 20 63 68 72 | chrout. jsr chr| 00000F90: 6F 75 74 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D |out. jsr chrout.| 00000FA0: 20 72 74 73 0D 0D 62 61 75 64 33 30 30 20 6C 64 | rts..baud300 ld| 00000FB0: 61 20 23 38 31 0D 20 73 74 61 20 70 75 6E 74 65 |a #81. sta punte| 00000FC0: 72 6C 6F 0D 20 6C 64 61 20 23 31 33 0D 20 73 74 |rlo. lda #13. st| 00000FD0: 61 20 70 75 6E 74 65 72 68 69 0D 20 6C 64 61 20 |a punterhi. lda | 00000FE0: 23 38 31 0D 20 73 74 61 20 72 73 32 33 32 6C 6F |#81. sta rs232lo| 00000FF0: 0D 20 6C 64 61 20 23 31 33 0D 20 73 74 61 20 72 |. lda #13. sta r| 00001000: 73 32 33 32 68 69 0D 20 6C 64 61 20 23 36 38 0D |s232hi. lda #68.| 00001010: 20 73 74 61 20 72 73 6C 6F 0D 20 6C 64 61 20 23 | sta rslo. lda #| 00001020: 36 0D 20 73 74 61 20 72 73 68 69 0D 20 6C 64 61 |6. sta rshi. lda| 00001030: 20 23 37 0D 20 6A 73 72 20 73 79 73 6D 73 67 0D | #7. jsr sysmsg.| 00001040: 20 6A 6D 70 20 65 78 69 74 0D 0D 62 61 75 64 31 | jmp exit..baud1| 00001050: 32 30 30 20 6C 64 61 20 23 38 34 0D 20 73 74 61 |200 lda #84. sta| 00001060: 20 70 75 6E 74 65 72 6C 6F 0D 20 6C 64 61 20 23 | punterlo. lda #| 00001070: 33 0D 20 73 74 61 20 70 75 6E 74 65 72 68 69 0D |3. sta punterhi.| 00001080: 20 6C 64 61 20 23 35 35 0D 20 73 74 61 20 72 73 | lda #55. sta rs| 00001090: 32 33 32 6C 6F 0D 20 6C 64 61 20 23 33 0D 20 73 |232lo. lda #3. s| 000010A0: 74 61 20 72 73 32 33 32 68 69 0D 20 6C 64 61 20 |ta rs232hi. lda | 000010B0: 23 37 30 0D 20 73 74 61 20 72 73 6C 6F 0D 20 6C |#70. sta rslo. l| 000010C0: 64 61 20 23 31 0D 20 73 74 61 20 72 73 68 69 0D |da #1. sta rshi.| 000010D0: 20 6C 64 61 20 23 38 0D 20 6A 73 72 20 73 79 73 | lda #8. jsr sys| 000010E0: 6D 73 67 0D 20 6A 6D 70 20 65 78 69 74 0D 0D 2A |msg. jmp exit..*| 000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00001110: 2A A0 73 79 73 74 65 6D A0 6D 65 73 73 61 67 65 |*.system.message| 00001120: A0 72 6F 75 74 69 6E 65 A0 A0 A0 A0 A0 A0 A0 2A |.routine.......*| 00001130: 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00001140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001150: 2A 0D 0D 73 79 73 6D 73 67 20 63 6D 70 20 23 31 |*..sysmsg cmp #1| 00001160: 0D 20 62 65 71 20 6D 73 67 31 0D 20 63 6D 70 20 |. beq msg1. cmp | 00001170: 23 32 0D 20 62 65 71 20 6D 73 67 32 0D 20 63 6D |#2. beq msg2. cm| 00001180: 70 20 23 33 0D 20 62 65 71 20 6D 73 67 33 0D 20 |p #3. beq msg3. | 00001190: 63 6D 70 20 23 34 0D 20 62 65 71 20 6D 73 67 34 |cmp #4. beq msg4| 000011A0: 0D 20 63 6D 70 20 23 35 0D 20 62 65 71 20 6D 73 |. cmp #5. beq ms| 000011B0: 67 35 0D 20 63 6D 70 20 23 36 0D 20 62 65 71 20 |g5. cmp #6. beq | 000011C0: 6D 73 67 36 0D 20 63 6D 70 20 23 37 0D 20 62 65 |msg6. cmp #7. be| 000011D0: 71 20 6D 73 67 37 0D 20 63 6D 70 20 23 38 0D 20 |q msg7. cmp #8. | 000011E0: 62 65 71 20 6D 73 67 38 0D 20 63 6D 70 20 23 39 |beq msg8. cmp #9| 000011F0: 0D 20 62 65 71 20 6D 73 67 39 0D 20 6A 6D 70 20 |. beq msg9. jmp | 00001200: 6D 73 67 38 0D 0D 6D 73 67 31 20 6A 6D 70 20 6D |msg8..msg1 jmp m| 00001210: 65 73 73 61 67 65 31 0D 6D 73 67 32 20 6A 6D 70 |essage1.msg2 jmp| 00001220: 20 6D 65 73 73 61 67 65 32 0D 6D 73 67 33 20 6A | message2.msg3 j| 00001230: 6D 70 20 6D 65 73 73 61 67 65 33 0D 6D 73 67 34 |mp message3.msg4| 00001240: 20 6A 6D 70 20 6D 65 73 73 61 67 65 34 0D 6D 73 | jmp message4.ms| 00001250: 67 35 20 6A 6D 70 20 6D 65 73 73 61 67 65 35 0D |g5 jmp message5.| 00001260: 6D 73 67 36 20 6A 6D 70 20 6D 65 73 73 61 67 65 |msg6 jmp message| 00001270: 36 0D 6D 73 67 37 20 6A 6D 70 20 6D 65 73 73 61 |6.msg7 jmp messa| 00001280: 67 65 37 0D 6D 73 67 38 20 6A 6D 70 20 6D 65 73 |ge7.msg8 jmp mes| 00001290: 73 61 67 65 38 0D 6D 73 67 39 20 6A 6D 70 20 6D |sage8.msg9 jmp m| 000012A0: 65 73 73 61 67 65 39 0D 0D 2A 2A 2A 2A 2A 2A 2A |essage9..*******| 000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 6D 65 73 73 |*********.*.mess| 000012D0: 61 67 65 A0 64 69 73 70 6C 61 79 A0 72 6F 75 74 |age.display.rout| 000012E0: 69 6E 65 73 A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A 2A |ines.....*.*****| 000012F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 6D 65 73 |***********..mes| 00001310: 73 61 67 65 31 20 6C 64 61 20 23 73 79 73 6D 73 |sage1 lda #sysms| 00001320: 67 32 2D 73 79 73 6D 73 67 31 0D 20 73 74 61 20 |g2-sysmsg1. sta | 00001330: 6C 65 6E 67 74 68 0D 20 6C 64 78 20 23 30 0D 20 |length. ldx #0. | 00001340: 6C 64 61 20 23 31 33 0D 20 6A 73 72 20 63 68 72 |lda #13. jsr chr| 00001350: 6F 75 74 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D |out. jsr chrout.| 00001360: 6D 73 67 6C 70 31 20 6C 64 61 20 73 79 73 6D 73 |msglp1 lda sysms| 00001370: 67 31 2C 78 0D 20 69 6E 78 0D 20 6A 73 72 20 63 |g1,x. inx. jsr c| 00001380: 68 72 6F 75 74 0D 20 63 70 78 20 6C 65 6E 67 74 |hrout. cpx lengt| 00001390: 68 0D 20 62 6E 65 20 6D 73 67 6C 70 31 0D 20 6C |h. bne msglp1. l| 000013A0: 64 78 20 23 30 0D 20 72 74 73 0D 0D 6D 65 73 73 |dx #0. rts..mess| 000013B0: 61 67 65 32 20 6C 64 61 20 23 73 79 73 6D 73 67 |age2 lda #sysmsg| 000013C0: 33 2D 73 79 73 6D 73 67 32 0D 20 73 74 61 20 6C |3-sysmsg2. sta l| 000013D0: 65 6E 67 74 68 0D 20 6C 64 78 20 23 30 0D 20 6C |ength. ldx #0. l| 000013E0: 64 61 20 23 31 33 0D 20 6A 73 72 20 63 68 72 6F |da #13. jsr chro| 000013F0: 75 74 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 6D |ut. jsr chrout.m| 00001400: 73 67 6C 70 32 20 6C 64 61 20 73 79 73 6D 73 67 |sglp2 lda sysmsg| 00001410: 32 2C 78 0D 20 69 6E 78 0D 20 6A 73 72 20 63 68 |2,x. inx. jsr ch| 00001420: 72 6F 75 74 0D 20 63 70 78 20 6C 65 6E 67 74 68 |rout. cpx length| 00001430: 0D 20 62 6E 65 20 6D 73 67 6C 70 32 0D 20 6C 64 |. bne msglp2. ld| 00001440: 78 20 23 30 0D 20 72 74 73 0D 0D 6D 65 73 73 61 |x #0. rts..messa| 00001450: 67 65 33 20 6C 64 61 20 23 73 79 73 6D 73 67 34 |ge3 lda #sysmsg4| 00001460: 2D 73 79 73 6D 73 67 33 0D 20 73 74 61 20 6C 65 |-sysmsg3. sta le| 00001470: 6E 67 74 68 0D 20 6C 64 78 20 23 30 0D 20 6C 64 |ngth. ldx #0. ld| 00001480: 61 20 23 31 33 0D 20 6A 73 72 20 63 68 72 6F 75 |a #13. jsr chrou| 00001490: 74 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 6D 73 |t. jsr chrout.ms| 000014A0: 67 6C 70 33 20 6C 64 61 20 73 79 73 6D 73 67 33 |glp3 lda sysmsg3| 000014B0: 2C 78 0D 20 69 6E 78 0D 20 6A 73 72 20 63 68 72 |,x. inx. jsr chr| 000014C0: 6F 75 74 0D 20 63 70 78 20 6C 65 6E 67 74 68 0D |out. cpx length.| 000014D0: 20 62 6E 65 20 6D 73 67 6C 70 33 0D 20 6C 64 78 | bne msglp3. ldx| 000014E0: 20 23 30 0D 20 72 74 73 0D 0D 6D 65 73 73 61 67 | #0. rts..messag| 000014F0: 65 34 20 6C 64 61 20 23 73 79 73 6D 73 67 35 2D |e4 lda #sysmsg5-| 00001500: 73 79 73 6D 73 67 34 0D 20 73 74 61 20 6C 65 6E |sysmsg4. sta len| 00001510: 67 74 68 0D 20 6C 64 78 20 23 30 0D 20 6C 64 61 |gth. ldx #0. lda| 00001520: 20 23 31 33 0D 20 6A 73 72 20 63 68 72 6F 75 74 | #13. jsr chrout| 00001530: 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 6D 73 67 |. jsr chrout.msg| 00001540: 6C 70 34 20 6C 64 61 20 73 79 73 6D 73 67 34 2C |lp4 lda sysmsg4,| 00001550: 78 0D 20 69 6E 78 0D 20 6A 73 72 20 63 68 72 6F |x. inx. jsr chro| 00001560: 75 74 0D 20 63 70 78 20 6C 65 6E 67 74 68 0D 20 |ut. cpx length. | 00001570: 62 6E 65 20 6D 73 67 6C 70 34 0D 20 6C 64 78 20 |bne msglp4. ldx | 00001580: 23 30 0D 20 72 74 73 0D 0D 6D 65 73 73 61 67 65 |#0. rts..message| 00001590: 35 20 6C 64 61 20 23 73 79 73 6D 73 67 36 2D 73 |5 lda #sysmsg6-s| 000015A0: 79 73 6D 73 67 35 0D 20 73 74 61 20 6C 65 6E 67 |ysmsg5. sta leng| 000015B0: 74 68 0D 20 6C 64 78 20 23 30 0D 20 6C 64 61 20 |th. ldx #0. lda | 000015C0: 23 31 33 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D |#13. jsr chrout.| 000015D0: 20 6A 73 72 20 63 68 72 6F 75 74 0D 6D 73 67 6C | jsr chrout.msgl| 000015E0: 70 35 20 6C 64 61 20 73 79 73 6D 73 67 35 2C 78 |p5 lda sysmsg5,x| 000015F0: 0D 20 69 6E 78 0D 20 6A 73 72 20 63 68 72 6F 75 |. inx. jsr chrou| 00001600: 74 0D 20 63 70 78 20 6C 65 6E 67 74 68 0D 20 62 |t. cpx length. b| 00001610: 6E 65 20 6D 73 67 6C 70 35 0D 20 6C 64 78 20 23 |ne msglp5. ldx #| 00001620: 30 0D 20 72 74 73 0D 0D 6D 65 73 73 61 67 65 36 |0. rts..message6| 00001630: 20 6C 64 61 20 23 73 79 73 6D 73 67 37 2D 73 79 | lda #sysmsg7-sy| 00001640: 73 6D 73 67 36 0D 20 73 74 61 20 6C 65 6E 67 74 |smsg6. sta lengt| 00001650: 68 0D 20 6C 64 78 20 23 30 0D 20 6C 64 61 20 23 |h. ldx #0. lda #| 00001660: 31 33 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 20 |13. jsr chrout. | 00001670: 6A 73 72 20 63 68 72 6F 75 74 0D 6D 73 67 6C 70 |jsr chrout.msglp| 00001680: 36 20 6C 64 61 20 73 79 73 6D 73 67 36 2C 78 0D |6 lda sysmsg6,x.| 00001690: 20 69 6E 78 0D 20 6A 73 72 20 63 68 72 6F 75 74 | inx. jsr chrout| 000016A0: 0D 20 63 70 78 20 6C 65 6E 67 74 68 0D 20 62 6E |. cpx length. bn| 000016B0: 65 20 6D 73 67 6C 70 36 0D 20 6C 64 78 20 23 30 |e msglp6. ldx #0| 000016C0: 0D 20 72 74 73 0D 0D 6D 65 73 73 61 67 65 37 20 |. rts..message7 | 000016D0: 6C 64 61 20 23 73 79 73 6D 73 67 38 2D 73 79 73 |lda #sysmsg8-sys| 000016E0: 6D 73 67 37 0D 20 73 74 61 20 6C 65 6E 67 74 68 |msg7. sta length| 000016F0: 0D 20 6C 64 78 20 23 30 0D 20 6C 64 61 20 23 31 |. ldx #0. lda #1| 00001700: 33 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 20 6A |3. jsr chrout. j| 00001710: 73 72 20 63 68 72 6F 75 74 0D 6D 73 67 6C 70 37 |sr chrout.msglp7| 00001720: 20 6C 64 61 20 73 79 73 6D 73 67 37 2C 78 0D 20 | lda sysmsg7,x. | 00001730: 69 6E 78 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D |inx. jsr chrout.| 00001740: 20 63 70 78 20 6C 65 6E 67 74 68 0D 20 62 6E 65 | cpx length. bne| 00001750: 20 6D 73 67 6C 70 37 0D 20 6C 64 78 20 23 30 0D | msglp7. ldx #0.| 00001760: 20 72 74 73 0D 0D 6D 65 73 73 61 67 65 38 20 6C | rts..message8 l| 00001770: 64 61 20 23 73 79 73 6D 73 67 39 2D 73 79 73 6D |da #sysmsg9-sysm| 00001780: 73 67 38 0D 20 73 74 61 20 6C 65 6E 67 74 68 0D |sg8. sta length.| 00001790: 20 6C 64 78 20 23 30 0D 20 6C 64 61 20 23 31 33 | ldx #0. lda #13| 000017A0: 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 20 6A 73 |. jsr chrout. js| 000017B0: 72 20 63 68 72 6F 75 74 0D 6D 73 67 6C 70 38 20 |r chrout.msglp8 | 000017C0: 6C 64 61 20 73 79 73 6D 73 67 38 2C 78 0D 20 69 |lda sysmsg8,x. i| 000017D0: 6E 78 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 20 |nx. jsr chrout. | 000017E0: 63 70 78 20 6C 65 6E 67 74 68 0D 20 62 6E 65 20 |cpx length. bne | 000017F0: 6D 73 67 6C 70 38 0D 20 6C 64 78 20 23 30 0D 20 |msglp8. ldx #0. | 00001800: 72 74 73 0D 0D 6D 65 73 73 61 67 65 39 20 6C 64 |rts..message9 ld| 00001810: 61 20 23 61 6E 73 77 65 72 2D 73 79 73 6D 73 67 |a #answer-sysmsg| 00001820: 39 0D 20 73 74 61 20 6C 65 6E 67 74 68 0D 20 6C |9. sta length. l| 00001830: 64 78 20 23 30 0D 20 6C 64 61 20 23 31 33 0D 20 |dx #0. lda #13. | 00001840: 6A 73 72 20 63 68 72 6F 75 74 0D 20 6A 73 72 20 |jsr chrout. jsr | 00001850: 63 68 72 6F 75 74 0D 6D 73 67 6C 70 39 20 6C 64 |chrout.msglp9 ld| 00001860: 61 20 73 79 73 6D 73 67 39 2C 78 0D 20 69 6E 78 |a sysmsg9,x. inx| 00001870: 0D 20 6A 73 72 20 63 68 72 6F 75 74 0D 20 63 70 |. jsr chrout. cp| 00001880: 78 20 6C 65 6E 67 74 68 0D 20 62 6E 65 20 6D 73 |x length. bne ms| 00001890: 67 6C 70 39 0D 20 6C 64 78 20 23 30 0D 20 72 74 |glp9. ldx #0. rt| 000018A0: 73 0D 0D 6B 65 79 62 6F 61 72 64 20 6A 73 72 20 |s..keyboard jsr | 000018B0: 67 65 74 69 6E 0D 20 63 6D 70 20 23 36 35 0D 20 |getin. cmp #65. | 000018C0: 62 65 71 20 6B 65 79 31 0D 20 63 6D 70 20 23 34 |beq key1. cmp #4| 000018D0: 32 0D 20 62 65 71 20 6B 65 79 32 0D 20 63 6D 70 |2. beq key2. cmp| 000018E0: 20 23 37 36 0D 20 62 65 71 20 6B 65 79 33 0D 20 | #76. beq key3. | 000018F0: 6C 64 61 20 23 30 0D 20 73 74 61 20 73 74 61 74 |lda #0. sta stat| 00001900: 75 73 0D 20 72 74 73 0D 0D 6B 65 79 31 20 6A 6D |us. rts..key1 jm| 00001910: 70 20 61 6E 73 77 65 72 0D 6B 65 79 32 20 6C 64 |p answer.key2 ld| 00001920: 61 20 23 39 0D 20 73 74 61 20 73 74 61 74 75 73 |a #9. sta status| 00001930: 0D 20 72 74 73 0D 0D 6B 65 79 33 20 6C 64 61 20 |. rts..key3 lda | 00001940: 23 31 0D 20 73 74 61 20 6C 6F 63 61 6C 0D 20 6A |#1. sta local. j| 00001950: 6D 70 20 6B 65 79 32 0D 0D 2A 2A 2A 2A 2A 2A 2A |mp key2..*******| 00001960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 63 6F 70 79 |*********.*.copy| 00001980: 72 69 67 68 74 A0 6E 6F 74 69 63 65 A0 A0 A0 A0 |right.notice....| 00001990: A0 A0 A0 A0 A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A 2A |.........*.*****| 000019A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000019B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 69 64 65 |***********..ide| 000019C0: 6E 74 31 20 74 78 74 20 27 61 6E 73 77 65 72 A0 |nt1 txt 'answer.| 000019D0: 70 68 6F 6E 65 A0 65 78 74 65 6E 73 69 6F 6E A0 |phone.extension.| 000019E0: 66 6F 72 A0 27 0D 69 64 65 6E 74 32 20 74 78 74 |for.'.ident2 txt| 000019F0: 20 27 64 65 6C 74 61 62 62 73 2E A0 A0 77 72 69 | 'deltabbs...wri| 00001A00: 74 74 65 6E A0 62 79 A0 27 0D 69 64 65 6E 74 33 |tten.by.'.ident3| 00001A10: 20 74 78 74 20 27 6C 65 65 A0 74 68 6F 6D 70 73 | txt 'lee.thomps| 00001A20: 6F 6E A0 75 73 69 6E 67 3A A0 27 0D 69 64 65 6E |on.using:.'.iden| 00001A30: 74 34 20 74 78 74 20 27 6D 65 72 6C 69 6E 2D 36 |t4 txt 'merlin-6| 00001A40: 34 2E 27 0D 69 64 65 6E 74 35 20 74 78 74 20 27 |4.'.ident5 txt '| 00001A50: 28 63 29 A0 31 39 38 36 A0 62 79 A0 64 65 6C 74 |(c).1986.by.delt| 00001A60: 61 73 6F 66 74 A0 6C 74 64 2E 27 0D |asoft.ltd.'. |
..********************************.* ANS
WER ROUTINE : V1.0 *.* BY LEE THO
MPSON : SRCE *.*******************
*************.* MODEM EXTREMITY ROUTINE
LIST *.*------------------------------*.
* ANSWER.EXT -ANSWER ROUTINE *.* BBS/I
O.EXT -INPUT/OUTPUT RT *.* TRANSF.EXT
-TRANSFER *.* PUNTER.EXT -PUNTER
PROTOCOL *.*===========================
===*.* IN ADDITION, THERE IS A *.*
CLOCK ROUTINE (CLOCK.EXT) *.* WHICH C
AN BE SET BY THE *.* SYSTEM COMMAND
'//SET CLOCK' *.*----------------------
--------*.* EXTREMITY LOADING ADDRESSES
*.*------------------------------*.* 51
200 [C800] EXTENSION1 *.* 54272 [D4
00] EXTENSION2 *.******************
**************.* EACH EXTENSION SPACE HA
S *.* 1792 BYTES. SOME EXT *
.* MODULES TAKE UP BOTH BUFFERS *.******
**************************.* E
XT1 *.********************
************.. ORG 51200.. JMP ANSWER..*
*******************************.* SYSMSG
'S FOR ANSWER.EXT *.***************
*****************..SYSMSG1 TXT '(SYSMSG:
WAITING FOR CALL)'.SYSMSG2 TXT '(SYSMSG
: INCOMING CALL)'.SYSMSG3 TXT '(SYSMSG:
SIGNALING CARRIER)'.SYSMSG4 TXT '(SYSMSG
: CARRIER ANSWERED)'.SYSMSG5 TXT '(SYSMS
G: SYSTEM ERROR)'.SYSMSG6 TXT '(SYSMSG:
CONFIG ERROR -CHECK)'.SYSMSG7 TXT '(SYSM
SG: HAYES ONLINE AT 300 BAUD)'.SYSMSG8 T
XT '(SYSMSG: HAYES ONLINE AT 1200 BAUD)'
.SYSMSG9 TXT '(SYSMSG: ONLINE AT 300 BAU
D)'..********************************.*
LABELS FOR ANSWER.EXT *.*********
***********************..***************
*****************.* KERNAL LOCATIONS
*.*****************************
***.CHROUT EQU $FFD2.GETIN EQU $FFE4.***
*****************************.* RS232 RE
GISTERS *.*****************
***************.RS232A EQU $DD01.RS232B
EQU $DD03.MODE EQU $C745.PUNTERLO EQU $C
B00.PUNTERHI EQU $CB01.*****************
***************.* LOWER RS232 REGISTERS
*.*******************************
*.RSREG EQU $0293.RSLO EQU $0295.RSHI EQ
U $0296.RS232LO EQU $0299.RS232HI EQU $0
29A.********************************.* V
ARIABES M0-M5 *.**********
**********************.MODEM EQU $033C.P
ARAM1 EQU $033D.PARAM2 EQU $033E.PARAM3
EQU $033F.PARAM4 EQU $0340.BAUD EQU $034
1.********************************.* PRO
GRAM WORK AREAS *.************
********************.STATUS EQU $0342.LE
NGTH EQU $0343.TMPBAUD EQU $0344.LOCAL E
QU $0345..******************************
**.* PROGRAM 'ANSWER.EXT' *.****
****************************..ANSWER LDA
BAUD. STA TMPBAUD. LDA #0. STA LOCAL. L
DA #13. JSR CHROUT. LDA #1. JSR SYSMSG.
LDA #0. STA STATUS. LDA #240. STA MODE.
LDA PARAM4. CMP #16. BNE RESET. LDA #208
. STA MODE.RESET LDA PARAM1. STA RS232B.
LDA PARAM2. STA RS232A. LDA MODEM. CMP
#1. BEQ START. CMP #2. BEQ START. CMP #3
. BEQ START. CMP #4. BEQ START. JMP ERRO
R.START JSR DELAY.LOOPA JSR KEYBOARD. LD
A STATUS. CMP #9. BEQ EXPRESS. LDA MODEM
. CMP #2. BCC CHECK2.CHECK1 LDA PARAM3.
STA RS232A.CHECK2 LDA MODEM. CMP #3. BCS
CHECK4.CHECK3 LDA RS232A. AND #8. CMP #
0. BNE CHECK4. JMP CALLIN.ERR JMP ERROR.
EXPRESS JMP EXIT.CHECK4 LDA MODEM. BCC L
OOPA.CHECK5 LDA RS232A. AND #16. CMP PAR
AM4. BNE LOOPA. JMP CARRIER.CALLIN LDA #
2. JSR SYSMSG. LDA PARAM3. STA RS232A. L
DA MODEM. CMP #2. BNE SEND.HESII LDA #38
. STA RS232B.SEND LDA #3. JSR SYSMSG.LOO
PB JSR KEYBOARD. LDA STATUS. CMP #9. BEQ
EXPRESS. LDA RS232A. AND #16. CMP PARAM
4. BEQ CARRIER. INX. CPX #255. BNE LOOPB
. INY. LDX #0. CPY #255. BNE LOOPB. LDA
#0. LDX #0. LDY #0. CLC. JMP ANSWER..CAR
RIER LDA #4. JSR SYSMSG. LDA BAUD. CMP #
2. BNE ONLINE. LDA RS232A. AND #32. CMP
#0. BEQ EXIT. LDA #1. STA TMPBAUD. LDA #
6. STA RSREG. LDA TMPBAUD. CMP #1. BNE C
OMBYTE. LDA #8. STA RSREG. LDA #2. STA T
MPBAUD.COMBYTE LDA TMPBAUD. CMP #1. BEQ
BAUD300. CMP #2. BEQ BAUD1200. JMP ANSWE
R..ONLINE LDA #9. JSR SYSMSG.DELAY LDX #
0. LDY #0.DELY1 INX. CPX #255. BNE DELY1
.DELY2 INY. LDX #0. CPY #255. BNE DELY1.
RTS..ERROR LDA #6. JSR SYSMSG. JMP EXIT
..EXIT LDA #0. LDX #0. LDY #0. CLC. LDA
#13. JSR CHROUT. JSR CHROUT. JSR CHROUT.
RTS..BAUD300 LDA #81. STA PUNTERLO. LDA
#13. STA PUNTERHI. LDA #81. STA RS232LO
. LDA #13. STA RS232HI. LDA #68. STA RSL
O. LDA #6. STA RSHI. LDA #7. JSR SYSMSG.
JMP EXIT..BAUD1200 LDA #84. STA PUNTERL
O. LDA #3. STA PUNTERHI. LDA #55. STA RS
232LO. LDA #3. STA RS232HI. LDA #70. STA
RSLO. LDA #1. STA RSHI. LDA #8. JSR SYS
MSG. JMP EXIT..*************************
*******.* SYSTEM MESSAGE ROUTINE *
.********************************..SYSMS
G CMP #1. BEQ MSG1. CMP #2. BEQ MSG2. CM
P #3. BEQ MSG3. CMP #4. BEQ MSG4. CMP #5
. BEQ MSG5. CMP #6. BEQ MSG6. CMP #7. BE
Q MSG7. CMP #8. BEQ MSG8. CMP #9. BEQ MS
G9. JMP MSG8..MSG1 JMP MESSAGE1.MSG2 JMP
MESSAGE2.MSG3 JMP MESSAGE3.MSG4 JMP MES
SAGE4.MSG5 JMP MESSAGE5.MSG6 JMP MESSAGE
6.MSG7 JMP MESSAGE7.MSG8 JMP MESSAGE8.MS
G9 JMP MESSAGE9..***********************
*********.* MESSAGE DISPLAY ROUTINES
*.********************************..MES
SAGE1 LDA #SYSMSG2-SYSMSG1. STA LENGTH.
LDX #0. LDA #13. JSR CHROUT. JSR CHROUT.
MSGLP1 LDA SYSMSG1,X. INX. JSR CHROUT. C
PX LENGTH. BNE MSGLP1. LDX #0. RTS..MESS
AGE2 LDA #SYSMSG3-SYSMSG2. STA LENGTH. L
DX #0. LDA #13. JSR CHROUT. JSR CHROUT.M
SGLP2 LDA SYSMSG2,X. INX. JSR CHROUT. CP
X LENGTH. BNE MSGLP2. LDX #0. RTS..MESSA
GE3 LDA #SYSMSG4-SYSMSG3. STA LENGTH. LD
X #0. LDA #13. JSR CHROUT. JSR CHROUT.MS
GLP3 LDA SYSMSG3,X. INX. JSR CHROUT. CPX
LENGTH. BNE MSGLP3. LDX #0. RTS..MESSAG
E4 LDA #SYSMSG5-SYSMSG4. STA LENGTH. LDX
#0. LDA #13. JSR CHROUT. JSR CHROUT.MSG
LP4 LDA SYSMSG4,X. INX. JSR CHROUT. CPX
LENGTH. BNE MSGLP4. LDX #0. RTS..MESSAGE
5 LDA #SYSMSG6-SYSMSG5. STA LENGTH. LDX
#0. LDA #13. JSR CHROUT. JSR CHROUT.MSGL
P5 LDA SYSMSG5,X. INX. JSR CHROUT. CPX L
ENGTH. BNE MSGLP5. LDX #0. RTS..MESSAGE6
LDA #SYSMSG7-SYSMSG6. STA LENGTH. LDX #
0. LDA #13. JSR CHROUT. JSR CHROUT.MSGLP
6 LDA SYSMSG6,X. INX. JSR CHROUT. CPX LE
NGTH. BNE MSGLP6. LDX #0. RTS..MESSAGE7
LDA #SYSMSG8-SYSMSG7. STA LENGTH. LDX #0
. LDA #13. JSR CHROUT. JSR CHROUT.MSGLP7
LDA SYSMSG7,X. INX. JSR CHROUT. CPX LEN
GTH. BNE MSGLP7. LDX #0. RTS..MESSAGE8 L
DA #SYSMSG9-SYSMSG8. STA LENGTH. LDX #0.
LDA #13. JSR CHROUT. JSR CHROUT.MSGLP8
LDA SYSMSG8,X. INX. JSR CHROUT. CPX LENG
TH. BNE MSGLP8. LDX #0. RTS..MESSAGE9 LD
A #ANSWER-SYSMSG9. STA LENGTH. LDX #0. L
DA #13. JSR CHROUT. JSR CHROUT.MSGLP9 LD
A SYSMSG9,X. INX. JSR CHROUT. CPX LENGTH
. BNE MSGLP9. LDX #0. RTS..KEYBOARD JSR
GETIN. CMP #65. BEQ KEY1. CMP #42. BEQ K
EY2. CMP #76. BEQ KEY3. LDA #0. STA STAT
US. RTS..KEY1 JMP ANSWER.KEY2 LDA #9. ST
A STATUS. RTS..KEY3 LDA #1. STA LOCAL. J
MP KEY2..*******************************
*.* COPYRIGHT NOTICE *.*****
***************************..IDENT1 TXT
'ANSWER PHONE EXTENSION FOR '.IDENT2 TXT
'DELTABBS. WRITTEN BY '.IDENT3 TXT 'LE
E THOMPSON USING: '.IDENT4 TXT 'MERLIN-6
4.'.IDENT5 TXT '(C) 1986 BY DELTASOFT LT
D.'.
> CLICK IMAGE PREVIEW FOR FULL MODAL