DT4.1650.PAL
FILE INFORMATION
FILENAME(S): DT4.1650.PAL
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 16:59:41
APPEARS ON: 1 disk(s)
FILE HASH
f4e34d185e66147b28da1e09761b85c920c3e425fe4b2ce880bdc02bf24ba8a4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTIL160 | DT4.1650.PAL | PRG | High Voltage Complete C64 Collection | 21 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 E8 03 8F 20 2A 20 44 41 52 4B 54 45 |..&.... * DARKTE| 00000010: 52 4D 20 34 2E 30 20 28 43 29 20 31 39 38 36 20 |RM 4.0 (C) 1986 | 00000020: 44 2E 53 2E 53 2E 00 47 08 F2 03 8F 20 2A 20 31 |D.S.S..G.... * 1| 00000030: 36 35 30 20 4D 4F 44 45 4D 20 4D 4F 44 55 4C 45 |650 MODEM MODULE| 00000040: 20 53 4F 55 52 43 45 00 4F 08 FC 03 8F 20 2A 00 | SOURCE.O.... *.| 00000050: 6E 08 06 04 9F 32 2C 38 2C 31 2C 22 40 30 3A 44 |n....2,8,1,"@0:D| 00000060: 54 34 2E 4D 4F 44 45 4D 20 31 36 35 30 22 00 77 |T4.MODEM 1650".w| 00000070: 08 10 04 9E 37 30 30 00 83 08 1A 04 2E 4F 50 54 |....700......OPT| 00000080: 20 4F 32 00 89 08 24 04 3B 00 AC 08 2E 04 43 48 | O2...$.;.....CH| 00000090: 4B 49 4E 20 20 B2 24 46 46 43 36 20 3B 20 4B 45 |KIN .$FFC6 ; KE| 000000A0: 52 4E 41 4C 20 45 51 55 41 54 45 53 00 BE 08 38 |RNAL EQUATES...8| 000000B0: 04 43 48 4B 4F 55 54 20 B2 24 46 46 43 39 00 D0 |.CHKOUT .$FFC9..| 000000C0: 08 42 04 43 48 52 49 4E 20 20 B2 24 46 46 43 46 |.B.CHRIN .$FFCF| 000000D0: 00 E2 08 4C 04 43 48 52 4F 55 54 20 B2 24 46 46 |...L.CHROUT .$FF| 000000E0: 44 32 00 F2 08 56 04 9C 43 48 4E 20 B2 24 46 46 |D2...V..CHN .$FF| 000000F0: 43 43 00 00 09 60 04 A0 20 20 B2 24 46 46 43 33 |CC...`.. .$FFC3| 00000100: 00 0F 09 6A 04 9F 20 20 20 B2 24 46 46 43 30 00 |...j.. .$FFC0.| 00000110: 21 09 74 04 53 45 54 4C 46 53 20 B2 24 46 46 42 |!.t.SETLFS .$FFB| 00000120: 41 00 33 09 7E 04 53 45 54 4E 41 4D 20 B2 24 46 |A.3.~.SETNAM .$F| 00000130: 46 42 44 00 43 09 88 04 A1 49 4E 20 20 B2 24 46 |FBD.C....IN .$F| 00000140: 46 45 34 00 52 09 92 04 87 53 54 20 B2 24 46 46 |FE4.R....ST .$FF| 00000150: 42 37 00 64 09 9C 04 50 4C 4F 54 20 20 20 B2 24 |B7.d...PLOT .$| 00000160: 46 46 46 30 00 6A 09 A6 04 3B 00 8E 09 B0 04 54 |FFF0.j...;.....T| 00000170: 45 58 54 20 B2 31 38 20 3B 20 57 45 27 4C 4C 20 |EXT .18 ; WE'LL | 00000180: 55 53 45 20 54 48 49 53 20 81 20 50 54 52 00 94 |USE THIS . PTR..| 00000190: 09 BA 04 3B 00 B4 09 C4 04 44 44 45 4C 41 59 20 |...;.....DDELAY | 000001A0: B2 38 37 38 20 3B 20 53 45 54 55 50 20 45 51 55 |.878 ; SETUP EQU| 000001B0: 41 54 45 53 00 C4 09 CE 04 43 44 45 4C 41 59 20 |ATES.....CDELAY | 000001C0: B2 38 38 30 00 D4 09 D8 04 48 44 45 4C 41 59 20 |.880.....HDELAY | 000001D0: B2 38 38 31 00 DA 09 E2 04 3B 00 FE 09 EC 04 4D |.881.....;.....M| 000001E0: 49 4C 4C 49 20 20 B2 24 30 39 30 43 20 3B 20 41 |ILLI .$090C ; A| 000001F0: 43 43 45 53 53 20 52 4F 55 54 49 4E 45 53 00 0D |CCESS ROUTINES..| 00000200: 0A F6 04 54 49 92 20 B2 24 30 39 30 46 00 13 0A |...TI. .$090F...| 00000210: 00 05 3B 00 2C 0A 0A 05 AC B2 24 34 36 30 30 20 |..;.,.....$4600 | 00000220: 3B 20 53 54 41 52 54 20 48 45 52 45 00 3C 0A 14 |; START HERE.<..| 00000230: 05 4A 4D 50 20 41 55 A4 44 49 41 4C 00 4C 0A 1E |.JMP AU.DIAL.L..| 00000240: 05 4A 4D 50 20 41 41 4E 53 57 45 52 00 5A 0A 28 |.JMP AANSWER.Z.(| 00000250: 05 4A 4D 50 20 91 4C 49 4E 45 00 76 0A 32 05 4F |.JMP .LINE.v.2.O| 00000260: 46 46 4C 49 4E 45 20 4C 44 41 20 23 30 20 3B 20 |FFLINE LDA #0 ; | 00000270: 91 AB 48 4F 4F 4B 00 84 0A 3C 05 53 54 41 20 35 |..HOOK...<.STA 5| 00000280: 36 35 37 37 00 90 0A 46 05 4C 44 41 20 23 33 32 |6577...F.LDA #32| 00000290: 00 9E 0A 50 05 53 54 41 20 35 36 35 37 39 00 A6 |...P.STA 56579..| 000002A0: 0A 5A 05 52 54 53 00 C3 0A 64 05 91 4C 49 4E 45 |.Z.RTS...d..LINE| 000002B0: 20 4C 44 41 20 23 33 32 20 3B 20 4F 46 46 AB 48 | LDA #32 ; OFF.H| 000002C0: 4F 4F 4B 00 D1 0A 6E 05 53 54 41 20 35 36 35 37 |OOK...n.STA 5657| 000002D0: 37 00 D9 0A 78 05 52 54 53 00 FA 0A 82 05 41 55 |7...x.RTS.....AU| 000002E0: A4 44 49 41 4C 20 53 54 58 20 54 45 58 54 20 3B |.DIAL STX TEXT ;| 000002F0: 20 94 20 41 44 44 52 45 53 53 00 1F 0B 8C 05 53 | . ADDRESS.....S| 00000300: 54 59 20 54 45 58 54 AA 31 20 3B 20 4F 46 20 44 |TY TEXT.1 ; OF D| 00000310: 49 41 4C 20 54 45 58 54 20 53 54 52 49 4E 47 00 |IAL TEXT STRING.| 00000320: 39 0B 96 05 4A 53 52 20 4F 46 46 4C 49 4E 45 20 |9...JSR OFFLINE | 00000330: 3B 20 48 41 4E 47 20 55 50 00 5A 0B A0 05 4C 44 |; HANG UP.Z...LD| 00000340: 41 20 48 44 45 4C 41 59 20 3B 20 92 20 48 44 45 |A HDELAY ; . HDE| 00000350: 4C 41 59 20 53 45 43 91 44 53 00 64 0B AA 05 4A |LAY SEC.DS.d...J| 00000360: 53 52 20 92 00 7D 0B B4 05 4A 53 52 20 91 4C 49 |SR ..}...JSR .LI| 00000370: 4E 45 20 3B 20 4F 46 46 AB 48 4F 4F 4B 00 94 0B |NE ; OFF.HOOK...| 00000380: BE 05 4C 44 41 20 23 32 20 3B 20 92 20 41 20 32 |..LDA #2 ; . A 2| 00000390: 20 53 45 43 00 9E 0B C8 05 4A 53 52 20 92 00 B9 | SEC.....JSR ...| 000003A0: 0B D2 05 4C 44 59 20 23 30 20 3B 20 49 4E 44 45 |...LDY #0 ; INDE| 000003B0: 58 20 A4 20 53 54 41 52 54 00 C5 0B DC 05 53 54 |X . START.....ST| 000003C0: 59 20 50 4F B5 00 E0 0B E6 05 41 55 A4 31 20 4C |Y PO......AU.1 L| 000003D0: 44 59 20 50 4F B5 20 3B 20 A1 20 49 4E 44 45 58 |DY PO. ; . INDEX| 000003E0: 00 FF 0B F0 05 4C 44 41 20 28 54 45 58 54 29 2C |.....LDA (TEXT),| 000003F0: 59 20 3B 20 AF 20 43 48 41 52 41 43 54 45 52 00 |Y ; . CHARACTER.| 00000400: 1D 0C FA 05 43 4D 50 20 23 22 30 22 20 3B 20 43 |....CMP #"0" ; C| 00000410: 48 45 43 4B 20 81 20 4E 55 4D 42 45 52 00 2C 0C |HECK . NUMBER.,.| 00000420: 04 06 42 43 43 20 82 20 3B 20 4E 4F 00 39 0C 0E |..BCC . ; NO.9..| 00000430: 06 43 4D 50 20 23 22 3A 22 00 48 0C 18 06 42 43 |.CMP #":".H...BC| 00000440: 53 20 82 20 3B 20 4E 4F 00 68 0C 22 06 53 45 43 |S . ; NO.h.".SEC| 00000450: 20 20 20 20 20 20 3B 20 4C 45 53 53 20 34 38 20 | ; LESS 48 | 00000460: A4 20 A1 20 23 20 4F 46 00 7E 0C 2C 06 53 42 43 |. . # OF.~.,.SBC| 00000470: 20 23 34 38 20 20 3B 20 50 55 4C 53 45 53 00 8B | #48 ; PULSES..| 00000480: 0C 36 06 42 4E 45 20 41 55 A4 32 00 B1 0C 40 06 |.6.BNE AU.2...@.| 00000490: 4C 44 41 20 23 31 30 20 20 3B 20 30 2C 20 53 4F |LDA #10 ; 0, SO| 000004A0: 20 4D 55 53 54 20 4D 41 4B 45 20 31 30 20 50 4C | MUST MAKE 10 PL| 000004B0: 53 00 CB 0C 4A 06 41 55 A4 32 20 53 54 41 20 50 |S...J.AU.2 STA P| 000004C0: 55 4C 53 45 20 3B 20 94 20 49 54 00 E4 0C 54 06 |ULSE ; . IT...T.| 000004D0: 4C 44 41 20 23 30 20 3B 20 50 55 4C 53 45 20 43 |LDA #0 ; PULSE C| 000004E0: 4F 55 4E 54 00 F2 0C 5E 06 53 54 41 20 43 4F 55 |OUNT...^.STA COU| 000004F0: 4E 54 00 14 0D 68 06 41 55 A4 33 20 4A 53 52 20 |NT...h.AU.3 JSR | 00000500: CB 4F 46 20 3B 20 50 55 4C 53 45 20 4F 46 46 20 |.OF ; PULSE OFF | 00000510: 4C 49 4E 45 00 2D 0D 72 06 4C 44 58 20 44 44 45 |LINE.-.r.LDX DDE| 00000520: 4C 41 59 20 3B 20 92 20 44 45 4C 41 59 00 3E 0D |LAY ; . DELAY.>.| 00000530: 7C 06 4C 44 59 20 44 44 45 4C 41 59 AA 31 00 57 ||.LDY DDELAY.1.W| 00000540: 0D 86 06 4A 53 52 20 4D 49 4C 4C 49 20 3B 20 92 |...JSR MILLI ; .| 00000550: 20 49 54 20 4F 55 54 00 74 0D 90 06 4A 53 52 20 | IT OUT.t...JSR | 00000560: 91 4C 49 4E 45 20 3B 20 50 55 4C 53 45 20 91 20 |.LINE ; PULSE . | 00000570: 4C 49 4E 45 00 8D 0D 9A 06 4C 44 58 20 44 44 45 |LINE.....LDX DDE| 00000580: 4C 41 59 20 3B 20 92 20 41 47 41 49 4E 00 9E 0D |LAY ; . AGAIN...| 00000590: A4 06 4C 44 59 20 44 44 45 4C 41 59 AA 31 00 AC |..LDY DDELAY.1..| 000005A0: 0D AE 06 4A 53 52 20 4D 49 4C 4C 49 00 C4 0D B8 |...JSR MILLI....| 000005B0: 06 49 4E 43 20 43 4F 55 4E 54 20 3B 20 82 20 50 |.INC COUNT ; . P| 000005C0: 55 4C 53 45 00 D2 0D C2 06 4C 44 41 20 43 4F 55 |ULSE.....LDA COU| 000005D0: 4E 54 00 EA 0D CC 06 43 4D 50 20 50 55 4C 53 45 |NT.....CMP PULSE| 000005E0: 20 3B 20 44 91 45 20 59 45 54 00 FC 0D D6 06 42 | ; D.E YET.....B| 000005F0: 4E 45 20 41 55 A4 33 20 3B 20 4E 4F 00 1A 0E E0 |NE AU.3 ; NO....| 00000600: 06 4C 44 41 20 23 34 30 20 3B 20 92 20 32 AD 33 |.LDA #40 ; . 2.3| 00000610: 20 53 45 43 20 81 20 82 20 23 00 26 0E EA 06 4A | SEC . . #.&...J| 00000620: 53 52 20 54 49 92 00 43 0E F4 06 4A 53 52 20 41 |SR TI..C...JSR A| 00000630: 42 B0 54 20 3B 20 43 48 45 43 4B 20 81 20 90 20 |B.T ; CHECK . . | 00000640: 4B 45 59 00 57 0E FE 06 82 20 49 4E 43 20 50 4F |KEY.W.... INC PO| 00000650: B5 20 3B 20 82 20 23 00 63 0E 08 07 4C 44 41 20 |. ; . #.c...LDA | 00000660: 50 4F B5 00 82 0E 12 07 43 4D 50 20 23 31 38 20 |PO......CMP #18 | 00000670: 3B 20 44 91 45 20 41 4C 4C 20 31 38 20 43 48 41 |; D.E ALL 18 CHA| 00000680: 52 53 00 9C 0E 1C 07 42 4E 45 20 41 55 A4 31 20 |RS.....BNE AU.1 | 00000690: 3B 20 4E 4F 2C 20 CB 20 42 41 43 4B 00 BD 0E 26 |; NO, . BACK...&| 000006A0: 07 4C 44 41 20 43 44 45 4C 41 59 20 3B 20 92 20 |.LDA CDELAY ; . | 000006B0: 4F 55 54 20 54 48 45 20 44 45 4C 41 59 00 C7 0E |OUT THE DELAY...| 000006C0: 30 07 4A 53 52 20 92 00 E6 0E 3A 07 4C 44 41 20 |0.JSR ....:.LDA | 000006D0: 35 36 35 37 37 20 3B 20 48 41 56 45 20 41 20 43 |56577 ; HAVE A C| 000006E0: 41 52 52 49 45 52 00 F0 0E 44 07 AF 20 23 31 36 |ARRIER...D.. #16| 000006F0: 00 0E 0F 4E 07 42 45 51 20 41 55 A4 34 20 3B 20 |...N.BEQ AU.4 ; | 00000700: 59 45 53 2C 20 53 49 47 4E 41 4C 20 49 54 00 2F |YES, SIGNAL IT./| 00000710: 0F 58 07 53 45 43 20 3B 20 4E 4F 2C 20 53 45 54 |.X.SEC ; NO, SET| 00000720: 20 5A 45 52 4F 20 46 4C 41 47 20 54 52 55 45 00 | ZERO FLAG TRUE.| 00000730: 51 0F 62 07 4C 44 41 20 23 30 20 3B 20 AF 20 53 |Q.b.LDA #0 ; . S| 00000740: 45 54 20 43 41 52 52 59 20 28 A8 20 41 42 B0 54 |ET CARRY (. AB.T| 00000750: 29 00 59 0F 6C 07 52 54 53 00 7A 0F 76 07 41 55 |).Y.l.RTS.z.v.AU| 00000760: A4 34 20 53 45 43 20 3B 20 48 41 56 45 20 43 41 |.4 SEC ; HAVE CA| 00000770: 52 52 49 45 52 2C 20 53 45 54 00 92 0F 80 07 4C |RRIER, SET.....L| 00000780: 44 41 20 23 31 20 3B 20 5A 45 52 4F 20 46 41 4C |DA #1 ; ZERO FAL| 00000790: 53 45 00 A1 0F 8A 07 52 54 53 20 3B 20 45 58 49 |SE.....RTS ; EXI| 000007A0: 54 00 C0 0F 94 07 41 42 B0 54 20 4C 44 41 20 31 |T.....AB.T LDA 1| 000007B0: 34 35 20 3B 20 43 48 45 43 4B 20 90 20 4B 45 59 |45 ; CHECK . KEY| 000007C0: 00 CD 0F 9E 07 43 4D 50 20 23 24 37 46 00 E7 0F |.....CMP #$7F...| 000007D0: A8 07 42 4E 45 20 41 42 4F 31 20 3B 20 4E 4F 2C |..BNE ABO1 ; NO,| 000007E0: 20 CB 20 42 41 43 4B 00 05 10 B2 07 41 42 4F 30 | . BACK.....ABO0| 000007F0: 20 50 4C 41 20 3B 20 50 55 4C 4C 20 8E 20 41 44 | PLA ; PULL . AD| 00000800: 44 52 45 53 53 00 0D 10 BC 07 50 4C 41 00 27 10 |DRESS.....PLA.'.| 00000810: C6 07 43 4C 43 20 3B 20 43 4C 45 41 52 20 54 48 |..CLC ; CLEAR TH| 00000820: 45 20 43 41 52 52 59 00 44 10 D0 07 41 42 4F 31 |E CARRY.D...ABO1| 00000830: 20 52 54 53 20 3B 20 AF 20 45 58 49 54 20 A4 20 | RTS ; . EXIT . | 00000840: 54 45 52 4D 00 60 10 DA 07 92 20 54 41 58 20 3B |TERM.`.... TAX ;| 00000850: 20 31 20 53 45 43 91 44 20 43 4F 55 4E 54 45 52 | 1 SEC.D COUNTER| 00000860: 00 6E 10 E4 07 57 30 20 4C 44 41 20 23 30 00 7A |.n...W0 LDA #0.z| 00000870: 10 EE 07 53 54 41 20 31 36 30 00 86 10 F8 07 53 |...STA 160.....S| 00000880: 54 41 20 31 36 31 00 92 10 02 08 53 54 41 20 31 |TA 161.....STA 1| 00000890: 36 32 00 B0 10 0C 08 57 31 20 4C 44 41 20 31 34 |62.....W1 LDA 14| 000008A0: 35 20 3B 20 43 48 45 43 4B 20 81 20 41 42 B0 54 |5 ; CHECK . AB.T| 000008B0: 00 CC 10 16 08 43 4D 50 20 23 24 37 46 20 3B 20 |.....CMP #$7F ; | 000008C0: 44 55 52 49 4E 47 20 54 48 45 20 92 00 D9 10 20 |DURING THE .... | 000008D0: 08 42 45 51 20 41 42 4F 30 00 E5 10 2A 08 4C 44 |.BEQ ABO0...*.LD| 000008E0: 41 20 31 36 32 00 F1 10 34 08 43 4D 50 20 23 36 |A 162...4.CMP #6| 000008F0: 30 00 FC 10 3E 08 42 43 43 20 57 31 00 04 11 48 |0...>.BCC W1...H| 00000900: 08 44 45 58 00 0F 11 52 08 42 4D 49 20 57 32 00 |.DEX...R.BMI W2.| 00000910: 1A 11 5C 08 42 4E 45 20 57 30 00 25 11 66 08 57 |..\.BNE W0.%.f.W| 00000920: 32 20 52 54 53 00 34 11 70 08 50 4F B5 20 2E 42 |2 RTS.4.p.PO. .B| 00000930: 59 54 20 30 00 45 11 7A 08 43 4F 55 4E 54 20 2E |YT 0.E.z.COUNT .| 00000940: 42 59 54 20 30 00 56 11 84 08 50 55 4C 53 45 20 |BYT 0.V...PULSE | 00000950: 2E 42 59 54 20 30 00 77 11 8E 08 41 41 4E 53 57 |.BYT 0.w...AANSW| 00000960: 45 52 20 4A 53 52 20 4F 46 46 4C 49 4E 45 20 3B |ER JSR OFFLINE ;| 00000970: 20 91 AB 48 4F 4F 4B 00 98 11 98 08 41 4E 31 20 | ..HOOK.....AN1 | 00000980: 4C 44 41 20 35 36 35 37 37 20 3B 20 43 48 45 43 |LDA 56577 ; CHEC| 00000990: 4B 20 81 20 52 49 4E 47 00 AA 11 A2 08 AF 20 23 |K . RING...... #| 000009A0: 38 20 3B 20 44 45 54 45 43 54 00 CA 11 AC 08 42 |8 ; DETECT.....B| 000009B0: 45 51 20 41 4E 32 20 3B 20 57 45 20 48 41 56 45 |EQ AN2 ; WE HAVE| 000009C0: 20 52 2E 44 2E 2C 20 CB 20 91 00 E4 11 B6 08 4C | R.D., . ......L| 000009D0: 44 41 20 31 34 35 20 3B 20 43 48 45 43 4B 20 90 |DA 145 ; CHECK .| 000009E0: 20 4B 45 59 00 F1 11 C0 08 43 4D 50 20 23 24 37 | KEY.....CMP #$7| 000009F0: 46 00 0A 12 CA 08 42 4E 45 20 41 4E 31 20 3B 20 |F.....BNE AN1 ; | 00000A00: 4E 91 45 2C 20 92 20 4D B0 45 00 27 12 D4 08 41 |N.E, . M.E.'...A| 00000A10: 4E 30 20 4A 53 52 20 91 4C 49 4E 45 20 3B 20 4F |N0 JSR .LINE ; O| 00000A20: 46 46 AB 48 4F 4F 4B 00 38 12 DE 08 43 4C 43 20 |FF.HOOK.8...CLC | 00000A30: 3B 20 AF 20 41 42 B0 54 00 40 12 E8 08 52 54 53 |; . AB.T.@...RTS| 00000A40: 00 63 12 F2 08 41 4E 32 20 4C 44 41 20 23 30 20 |.c...AN2 LDA #0 | 00000A50: 3B 20 53 45 54 20 55 50 20 81 20 33 30 20 53 45 |; SET UP . 30 SE| 00000A60: 43 91 44 00 82 12 FC 08 53 54 41 20 31 36 30 20 |C.D.....STA 160 | 00000A70: 3B 20 43 41 52 52 49 45 52 20 44 45 54 45 43 54 |; CARRIER DETECT| 00000A80: 20 92 00 8E 12 06 09 53 54 41 20 31 36 31 00 9A | ......STA 161..| 00000A90: 12 10 09 53 54 41 20 31 36 32 00 B3 12 1A 09 4A |...STA 162.....J| 00000AA0: 53 52 20 91 4C 49 4E 45 20 3B 20 4F 46 46 AB 48 |SR .LINE ; OFF.H| 00000AB0: 4F 4F 4B 00 D1 12 24 09 41 4E 33 20 4C 44 41 20 |OOK...$.AN3 LDA | 00000AC0: 31 34 35 20 3B 20 43 48 45 43 4B 20 90 20 4B 45 |145 ; CHECK . KE| 00000AD0: 59 00 DE 12 2E 09 43 4D 50 20 23 24 37 46 00 EA |Y.....CMP #$7F..| 00000AE0: 12 38 09 42 45 51 20 41 4E 30 00 0B 13 42 09 4C |.8.BEQ AN0...B.L| 00000AF0: 44 41 20 35 36 35 37 37 20 3B 20 43 48 45 43 4B |DA 56577 ; CHECK| 00000B00: 20 81 20 44 43 44 20 4C 49 4E 45 00 15 13 4C 09 | . DCD LINE...L.| 00000B10: AF 20 23 31 36 00 36 13 56 09 42 45 51 20 41 4E |. #16.6.V.BEQ AN| 00000B20: 34 20 3B 20 CB 54 20 43 41 52 52 49 45 52 2C 20 |4 ; .T CARRIER, | 00000B30: 53 49 47 4E 41 4C 00 42 13 60 09 4C 44 41 20 31 |SIGNAL.B.`.LDA 1| 00000B40: 36 30 00 5A 13 6A 09 43 4D 50 20 23 38 20 3B 20 |60.Z.j.CMP #8 ; | 00000B50: 33 30 20 53 45 43 20 59 45 54 00 6E 13 74 09 42 |30 SEC YET.n.t.B| 00000B60: 43 43 20 41 4E 33 20 3B 20 4E 4F 2C 20 92 00 8B |CC AN3 ; NO, ...| 00000B70: 13 7E 09 42 43 53 20 41 41 4E 53 57 45 52 20 3B |.~.BCS AANSWER ;| 00000B80: 20 59 45 53 2C 20 52 45 53 45 54 00 AD 13 88 09 | YES, RESET.....| 00000B90: 41 4E 34 20 53 45 43 20 3B 20 53 45 54 20 43 41 |AN4 SEC ; SET CA| 00000BA0: 52 52 59 20 81 20 43 41 52 52 49 45 52 00 C7 13 |RRY . CARRIER...| 00000BB0: 92 09 52 54 53 20 3B 20 50 52 45 53 45 4E 54 2C |..RTS ; PRESENT,| 00000BC0: 20 AF 20 45 58 49 54 00 E5 13 9C 09 CB 4F 46 20 | . EXIT......OF | 00000BD0: 4C 44 41 20 23 30 20 3B 20 50 55 4C 53 45 20 91 |LDA #0 ; PULSE .| 00000BE0: AB 48 4F 4F 4B 00 F3 13 A6 09 53 54 41 20 35 36 |.HOOK.....STA 56| 00000BF0: 35 37 37 00 FB 13 B0 09 52 54 53 00 00 00 |577.....RTS... |
..&.... * DARKTERM 4.0 (C) 1986 D.S.S..G .... * 1650 MODEM MODULE SOURCE.O.... *. N....2,8,1,"@0:DT4.MODEM 1650".W....700. .....OPT O2...$.;.....CHKIN .$FFC6 ; KE RNAL EQUATES...8.CHKOUT .$FFC9.P.B.CHRIN .$FFCF...L.CHROUT .$FFD2...V..CHN .$FF CC...`. .$FFC3...J.. .$FFC0.!.T.SETL FS .$FFBA.3.~.SETNAM .$FFBD.C....IN .$F FE4.R....ST .$FFB7.D...PLOT .$FFF0.J.. .;.....TEXT .18 ; WE'LL USE THIS . PTR.. ...;...D.DDELAY .878 ; SETUP EQUATES.D.N .CDELAY .880.T.X.HDELAY .881.Z...;.....M ILLI .$090C ; ACCESS ROUTINES.....TI. . $090F.....;.,.....$4600 ; START HERE.<.. .JMP AU.DIAL.L...JMP AANSWER.Z.(.JMP .LI NE.V.2.OFFLINE LDA #0 ; ..HOOK...<.STA 5 6577...F.LDA #32...P.STA 56579...Z.RTS.C .D..LINE LDA #32 ; OFF.HOOK.Q.N.STA 5657 7.Y.X.RTS.....AU.DIAL STX TEXT ; . ADDRE SS.....STY TEXT.1 ; OF DIAL TEXT STRING. 9...JSR OFFLINE ; HANG UP.Z. .LDA HDELAY ; . HDELAY SEC.DS.D...JSR ..}...JSR .LI NE ; OFF.HOOK.....LDA #2 ; . A 2 SEC...H .JSR ....R.LDY #0 ; INDEX . START.E...ST Y PO......AU.1 LDY PO. ; . INDEX.....LDA (TEXT),Y ; . CHARACTER.....CMP #"0" ; C HECK . NUMBER.,...BCC . ; NO.9...CMP #": ".H...BCS . ; NO.H.".SEC ; LESS 48 . . # OF.~.,.SBC #48 ; PULSES...6.BNE A U.2...@.LDA #10 ; 0, SO MUST MAKE 10 PL S.K.J.AU.2 STA PULSE ; . IT...T.LDA #0 ; PULSE COUNT...^.STA COUNT...H.AU.3 JSR KOF ; PULSE OFF LINE.-.R.LDX DDELAY ; . DELAY.>.|.LDY DDELAY.1.W...JSR MILLI ; . IT OUT.T...JSR .LINE ; PULSE . LINE.... .LDX DDELAY ; . AGAIN.....LDY DDELAY.1.. ...JSR MILLI.D...INC COUNT ; . PULSE.R.B .LDA COUNT...L.CMP PULSE ; D.E YET...V.B NE AU.3 ; NO.....LDA #40 ; . 2.3 SEC . . #.&...JSR TI..C...JSR AB.T ; CHECK . . KEY.W.... INC PO. ; . #.C...LDA PO...... CMP #18 ; D.E ALL 18 CHARS.....BNE AU.1 ; NO, K BACK...&.LDA CDELAY ; . OUT THE DELAY.G.0.JSR ....:.LDA 56577 ; HAVE A C ARRIER...D.. #16...N.BEQ AU.4 ; YES, SIG NAL IT./.X.SEC ; NO, SET ZERO FLAG TRUE. Q.B.LDA #0 ; . SET CARRY (. AB.T).Y.L.RT S.Z.V.AU.4 SEC ; HAVE CARRIER, SET.....L DA #1 ; ZERO FALSE.....RTS ; EXIT.....AB .T LDA 145 ; CHECK . KEY.M...CMP #$7F... ..BNE ABO1 ; NO, K BACK.....ABO0 PLA ; P ULL . ADDRESS.....PLA.'.F.CLC ; CLEAR TH E CARRY.D.P.ABO1 RTS ; . EXIT . TERM.`.Z .. TAX ; 1 SEC.D COUNTER.N...W0 LDA #0.Z ...STA 160.....STA 161.....STA 162.....W 1 LDA 145 ; CHECK . AB.T.L...CMP #$7F ; DURING THE ..Y. .BEQ ABO0...*.LDA 162... 4.CMP #60...>.BCC W1...H.DEX...R.BMI W2. ..\.BNE W0.%.F.W2 RTS.4.P.PO. .BYT 0.E.Z .COUNT .BYT 0.V...PULSE .BYT 0.W...AANSW ER JSR OFFLINE ; ..HOOK.....AN1 LDA 5657 7 ; CHECK . RING...... #8 ; DETECT.J...B EQ AN2 ; WE HAVE R.D., K ......LDA 145 ; CHECK . KEY.....CMP #$7F...J.BNE AN1 ; N.E, . M.E.'.T.AN0 JSR .LINE ; OFF.HOOK. 8...CLC ; . AB.T.@...RTS.C...AN2 LDA #0 ; SET UP . 30 SEC.D.....STA 160 ; CARRIE R DETECT ......STA 161.....STA 162.....J SR .LINE ; OFF.HOOK.Q.$.AN3 LDA 145 ; CH ECK . KEY.....CMP #$7F...8.BEQ AN0...B.L DA 56577 ; CHECK . DCD LINE...L.. #16.6. V.BEQ AN4 ; KT CARRIER, SIGNAL.B.`.LDA 1 60.Z.J.CMP #8 ; 30 SEC YET.N.T.BCC AN3 ; NO, ....~.BCS AANSWER ; YES, RESET..... AN4 SEC ; SET CARRY . CARRIER.G...RTS ; PRESENT, . EXIT.....KOF LDA #0 ; PULSE . .HOOK.....STA 56577.....RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL