DT4.1670.PAL
FILE INFORMATION
FILENAME(S): DT4.1670.PAL
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 16:59:41
APPEARS ON: 1 disk(s)
FILE HASH
8d0c6701e0576a752ee9e25b950585f54f4252154c72248f544102812a2a674e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTIL160 | DT4.1670.PAL | PRG | High Voltage Complete C64 Collection | 22 | 8 | 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 37 30 20 4D 4F 44 45 4D 20 4D 4F 44 55 4C 45 |670 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 37 30 22 00 77 |T4.MODEM 1670".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 AF |USE THIS . PTR..| 00000190: 09 BA 04 53 54 20 B2 31 32 30 20 3B 20 55 53 45 |...ST .120 ; USE| 000001A0: 20 A4 50 20 4F 46 20 85 20 42 55 46 46 45 52 00 | .P OF . BUFFER.| 000001B0: B5 09 C4 04 3B 00 D5 09 CE 04 44 44 45 4C 41 59 |....;.....DDELAY| 000001C0: 20 B2 38 37 38 20 3B 20 53 45 54 55 50 20 45 51 | .878 ; SETUP EQ| 000001D0: 55 41 54 45 53 00 E5 09 D8 04 43 44 45 4C 41 59 |UATES.....CDELAY| 000001E0: 20 B2 38 38 30 00 F5 09 E2 04 48 44 45 4C 41 59 | .880.....HDELAY| 000001F0: 20 B2 38 38 31 00 FB 09 EC 04 3B 00 1F 0A F6 04 | .881.....;.....| 00000200: 4D 49 4C 4C 49 20 20 B2 24 30 39 30 43 20 3B 20 |MILLI .$090C ; | 00000210: 41 43 43 45 53 53 20 52 4F 55 54 49 4E 45 53 00 |ACCESS ROUTINES.| 00000220: 2E 0A 00 05 54 49 92 20 B2 24 30 39 30 46 00 34 |....TI. .$090F.4| 00000230: 0A 0A 05 3B 00 4D 0A 14 05 AC B2 24 34 36 30 30 |...;.M.....$4600| 00000240: 20 3B 20 53 54 41 52 54 20 48 45 52 45 00 5D 0A | ; START HERE.].| 00000250: 1E 05 4A 4D 50 20 41 55 A4 44 49 41 4C 00 6D 0A |..JMP AU.DIAL.m.| 00000260: 28 05 4A 4D 50 20 41 41 4E 53 57 45 52 00 85 0A |(.JMP AANSWER...| 00000270: 32 05 4A 4D 50 20 91 4C 49 4E 45 20 3B 20 50 49 |2.JMP .LINE ; PI| 00000280: 43 4B 20 55 50 00 9F 0A 3C 05 4A 4D 50 20 4F 46 |CK UP...<.JMP OF| 00000290: 46 4C 49 4E 45 20 3B 20 48 41 4E 47 20 55 50 00 |FLINE ; HANG UP.| 000002A0: A5 0A 46 05 3B 00 C4 0A 50 05 3B 20 AC 20 A8 45 |..F.;...P.; . .E| 000002B0: 20 50 55 4C 53 45 20 44 49 41 4C 20 44 45 4C 41 | PULSE DIAL DELA| 000002C0: 59 20 4F 46 00 E7 0A 5A 05 3B 20 AC 20 4F 46 20 |Y OF...Z.; . OF | 000002D0: 5A 45 52 4F 20 A4 4E 45 20 44 49 41 4C 53 2C 20 |ZERO .NE DIALS, | 000002E0: 4E 91 AB 5A 45 52 4F 00 FF 0A 64 05 3B 20 AC 20 |N..ZERO...d.; . | 000002F0: 57 49 4C 4C 20 50 55 4C 53 45 20 44 49 41 4C 00 |WILL PULSE DIAL.| 00000300: 05 0B 6E 05 3B 00 26 0B 78 05 41 55 A4 44 49 41 |..n.;.&.x.AU.DIA| 00000310: 4C 20 53 54 58 20 54 45 58 54 20 3B 20 94 20 41 |L STX TEXT ; . A| 00000320: 44 44 52 45 53 53 00 4B 0B 82 05 53 54 59 20 54 |DDRESS.K...STY T| 00000330: 45 58 54 AA 31 20 3B 20 4F 46 20 44 49 41 4C 20 |EXT.1 ; OF DIAL | 00000340: 54 45 58 54 20 53 54 52 49 4E 47 00 64 0B 8C 05 |TEXT STRING.d...| 00000350: 4A 53 52 20 8E 20 3B 20 53 80 20 43 4F 55 50 4C |JSR . ; S. COUPL| 00000360: 45 20 8E 53 00 85 0B 96 05 4C 44 41 20 48 44 45 |E .S.....LDA HDE| 00000370: 4C 41 59 20 3B 20 92 20 48 44 45 4C 41 59 20 53 |LAY ; . HDELAY S| 00000380: 45 43 91 44 53 00 8F 0B A0 05 4A 53 52 20 92 00 |EC.DS.....JSR ..| 00000390: 9A 0B AA 05 4C 44 58 20 23 35 00 B7 0B B4 05 4A |....LDX #5.....J| 000003A0: 53 52 20 43 48 4B 4F 55 54 20 3B 20 A1 20 87 59 |SR CHKOUT ; . .Y| 000003B0: 20 A4 20 44 49 41 4C 00 D2 0B BE 05 4C 44 41 20 | . DIAL.....LDA | 000003C0: 23 22 41 22 20 3B 20 53 80 20 41 54 20 46 49 52 |#"A" ; S. AT FIR| 000003D0: 53 54 00 E1 0B C8 05 4A 53 52 20 43 48 52 4F 55 |ST.....JSR CHROU| 000003E0: 54 00 EE 0B D2 05 4A 53 52 20 48 4F 4C 44 00 FB |T.....JSR HOLD..| 000003F0: 0B DC 05 4C 44 41 20 23 22 54 22 00 0A 0C E6 05 |...LDA #"T".....| 00000400: 4A 53 52 20 43 48 52 4F 55 54 00 17 0C F0 05 4A |JSR CHROUT.....J| 00000410: 53 52 20 48 4F 4C 44 00 24 0C FA 05 4C 44 41 20 |SR HOLD.$...LDA | 00000420: 23 22 44 22 00 33 0C 04 06 4A 53 52 20 43 48 52 |#"D".3...JSR CHR| 00000430: 4F 55 54 00 40 0C 0E 06 4A 53 52 20 48 4F 4C 44 |OUT.@...JSR HOLD| 00000440: 00 63 0C 18 06 4C 44 41 20 44 44 45 4C 41 59 20 |.c...LDA DDELAY | 00000450: 3B 20 43 48 45 43 4B 20 50 55 4C 53 45 20 B0 20 |; CHECK PULSE . | 00000460: A4 4E 45 00 71 0C 22 06 42 4E 45 20 50 44 49 41 |.NE.q.".BNE PDIA| 00000470: 4C 00 84 0C 2C 06 4C 44 41 20 23 22 54 22 20 3B |L...,.LDA #"T" ;| 00000480: 20 A4 4E 45 00 91 0C 36 06 2E 42 59 54 20 24 32 | .NE...6..BYT $2| 00000490: 43 00 AC 0C 40 06 50 44 49 41 4C 20 4C 44 41 20 |C...@.PDIAL LDA | 000004A0: 23 22 50 22 20 3B 20 50 55 4C 53 45 00 BB 0C 4A |#"P" ; PULSE...J| 000004B0: 06 4A 53 52 20 43 48 52 4F 55 54 00 C8 0C 54 06 |.JSR CHROUT...T.| 000004C0: 4A 53 52 20 48 4F 4C 44 00 E3 0C 5E 06 4C 44 59 |JSR HOLD...^.LDY| 000004D0: 20 23 30 20 3B 20 49 4E 44 45 58 20 A4 20 53 54 | #0 ; INDEX . ST| 000004E0: 41 52 54 00 04 0D 68 06 41 55 A4 31 20 4C 44 41 |ART...h.AU.1 LDA| 000004F0: 20 28 54 45 58 54 29 2C 59 20 3B 20 A1 20 53 54 | (TEXT),Y ; . ST| 00000500: 52 49 4E 47 00 1E 0D 72 06 43 4D 50 20 23 33 32 |RING...r.CMP #32| 00000510: 20 3B 20 53 4B 49 50 20 53 50 41 43 45 53 00 28 | ; SKIP SPACES.(| 00000520: 0D 7C 06 42 45 51 20 82 00 47 0D 86 06 AF 20 23 |.|.BEQ ..G.... #| 00000530: 31 32 37 20 3B 20 4D 41 53 4B 20 81 20 C6 49 49 |127 ; MASK . .II| 00000540: 20 55 50 43 41 53 45 00 65 0D 90 06 4A 53 52 20 | UPCASE.e...JSR | 00000550: 43 48 52 4F 55 54 20 3B 20 53 80 20 43 48 41 52 |CHROUT ; S. CHAR| 00000560: 41 43 54 45 52 00 78 0D 9A 06 4A 53 52 20 48 4F |ACTER.x...JSR HO| 00000570: 4C 44 20 3B 20 AF 20 92 00 82 0D A4 06 82 20 49 |LD ; . ....... I| 00000580: 4E 59 00 A1 0D AE 06 43 50 59 20 23 31 38 20 3B |NY.....CPY #18 ;| 00000590: 20 44 91 45 20 41 4C 4C 20 31 38 20 43 48 41 52 | D.E ALL 18 CHAR| 000005A0: 53 00 BB 0D B8 06 42 4E 45 20 41 55 A4 31 20 3B |S.....BNE AU.1 ;| 000005B0: 20 4E 4F 2C 20 CB 20 42 41 43 4B 00 CE 0D C2 06 | NO, . BACK.....| 000005C0: 4C 44 41 20 23 31 33 20 3B 20 53 80 20 8E 00 DD |LDA #13 ; S. ...| 000005D0: 0D CC 06 4A 53 52 20 43 48 52 4F 55 54 00 EA 0D |...JSR CHROUT...| 000005E0: D6 06 4A 53 52 20 48 4F 4C 44 00 F7 0D E0 06 4A |..JSR HOLD.....J| 000005F0: 53 52 20 9C 43 48 4E 00 18 0E EA 06 4C 44 41 20 |SR .CHN.....LDA | 00000600: 43 44 45 4C 41 59 20 3B 20 92 20 4F 55 54 20 54 |CDELAY ; . OUT T| 00000610: 48 45 20 44 45 4C 41 59 00 22 0E F4 06 4A 53 52 |HE DELAY."...JSR| 00000620: 20 92 00 3B 0E FE 06 4A 53 52 20 8E 20 3B 20 53 | ..;...JSR . ; S| 00000630: 80 20 43 4F 55 50 4C 45 20 8E 53 00 5A 0E 08 07 |. COUPLE .S.Z...| 00000640: 4C 44 41 20 35 36 35 37 37 20 3B 20 48 41 56 45 |LDA 56577 ; HAVE| 00000650: 20 41 20 43 41 52 52 49 45 52 00 64 0E 12 07 AF | A CARRIER.d....| 00000660: 20 23 31 36 00 82 0E 1C 07 42 45 51 20 41 55 A4 | #16.....BEQ AU.| 00000670: 34 20 3B 20 59 45 53 2C 20 53 49 47 4E 41 4C 20 |4 ; YES, SIGNAL | 00000680: 49 54 00 A3 0E 26 07 53 45 43 20 3B 20 4E 4F 2C |IT...&.SEC ; NO,| 00000690: 20 53 45 54 20 5A 45 52 4F 20 46 4C 41 47 20 54 | SET ZERO FLAG T| 000006A0: 52 55 45 00 C5 0E 30 07 4C 44 41 20 23 30 20 3B |RUE...0.LDA #0 ;| 000006B0: 20 AF 20 53 45 54 20 43 41 52 52 59 20 28 A8 20 | . SET CARRY (. | 000006C0: 41 42 B0 54 29 00 CD 0E 3A 07 52 54 53 00 EE 0E |AB.T)...:.RTS...| 000006D0: 44 07 41 55 A4 34 20 53 45 43 20 3B 20 48 41 56 |D.AU.4 SEC ; HAV| 000006E0: 45 20 43 41 52 52 49 45 52 2C 20 53 45 54 00 06 |E CARRIER, SET..| 000006F0: 0F 4E 07 4C 44 41 20 23 31 20 3B 20 5A 45 52 4F |.N.LDA #1 ; ZERO| 00000700: 20 46 41 4C 53 45 00 15 0F 58 07 52 54 53 20 3B | FALSE...X.RTS ;| 00000710: 20 45 58 49 54 00 34 0F 62 07 41 42 B0 54 20 4C | EXIT.4.b.AB.T L| 00000720: 44 41 20 31 34 35 20 3B 20 43 48 45 43 4B 20 90 |DA 145 ; CHECK .| 00000730: 20 4B 45 59 00 41 0F 6C 07 43 4D 50 20 23 24 37 | KEY.A.l.CMP #$7| 00000740: 46 00 5B 0F 76 07 42 4E 45 20 41 42 4F 31 20 3B |F.[.v.BNE ABO1 ;| 00000750: 20 4E 4F 2C 20 CB 20 42 41 43 4B 00 79 0F 80 07 | NO, . BACK.y...| 00000760: 41 42 4F 30 20 50 4C 41 20 3B 20 50 55 4C 4C 20 |ABO0 PLA ; PULL | 00000770: 8E 20 41 44 44 52 45 53 53 00 81 0F 8A 07 50 4C |. ADDRESS.....PL| 00000780: 41 00 9B 0F 94 07 43 4C 43 20 3B 20 43 4C 45 41 |A.....CLC ; CLEA| 00000790: 52 20 54 48 45 20 43 41 52 52 59 00 B8 0F 9E 07 |R THE CARRY.....| 000007A0: 41 42 4F 31 20 52 54 53 20 3B 20 AF 20 45 58 49 |ABO1 RTS ; . EXI| 000007B0: 54 20 A4 20 54 45 52 4D 00 D4 0F A8 07 92 20 54 |T . TERM...... T| 000007C0: 41 58 20 3B 20 31 20 53 45 43 91 44 20 43 4F 55 |AX ; 1 SEC.D COU| 000007D0: 4E 54 45 52 00 E2 0F B2 07 57 30 20 4C 44 41 20 |NTER.....W0 LDA | 000007E0: 23 30 00 EE 0F BC 07 53 54 41 20 31 36 30 00 FA |#0.....STA 160..| 000007F0: 0F C6 07 53 54 41 20 31 36 31 00 06 10 D0 07 53 |...STA 161.....S| 00000800: 54 41 20 31 36 32 00 24 10 DA 07 57 31 20 4C 44 |TA 162.$...W1 LD| 00000810: 41 20 31 34 35 20 3B 20 43 48 45 43 4B 20 81 20 |A 145 ; CHECK . | 00000820: 41 42 B0 54 00 40 10 E4 07 43 4D 50 20 23 24 37 |AB.T.@...CMP #$7| 00000830: 46 20 3B 20 44 55 52 49 4E 47 20 54 48 45 20 92 |F ; DURING THE .| 00000840: 00 4D 10 EE 07 42 45 51 20 41 42 4F 30 00 59 10 |.M...BEQ ABO0.Y.| 00000850: F8 07 4C 44 41 20 31 36 32 00 65 10 02 08 43 4D |..LDA 162.e...CM| 00000860: 50 20 23 36 30 00 70 10 0C 08 42 43 43 20 57 31 |P #60.p...BCC W1| 00000870: 00 78 10 16 08 44 45 58 00 83 10 20 08 42 4D 49 |.x...DEX... .BMI| 00000880: 20 57 32 00 8E 10 2A 08 42 4E 45 20 57 30 00 99 | W2...*.BNE W0..| 00000890: 10 34 08 57 32 20 52 54 53 00 BA 10 3E 08 4F 46 |.4.W2 RTS...>.OF| 000008A0: 46 4C 49 4E 45 20 4C 44 41 20 23 37 30 20 3B 20 |FLINE LDA #70 ; | 000008B0: 92 20 B1 31 20 53 45 43 91 44 00 C6 10 48 08 4A |. .1 SEC.D...H.J| 000008C0: 53 52 20 54 49 92 00 D1 10 52 08 4C 44 58 20 23 |SR TI....R.LDX #| 000008D0: 35 00 F4 10 5C 08 4A 53 52 20 43 48 4B 4F 55 54 |5...\.JSR CHKOUT| 000008E0: 20 3B 20 53 80 20 22 2B 2B 2B 22 20 53 45 51 55 | ; S. "+++" SEQU| 000008F0: 45 4E 43 45 00 01 11 66 08 4C 44 41 20 23 22 2B |ENCE...f.LDA #"+| 00000900: 22 00 10 11 70 08 4A 53 52 20 43 48 52 4F 55 54 |"...p.JSR CHROUT| 00000910: 00 1F 11 7A 08 4A 53 52 20 43 48 52 4F 55 54 00 |...z.JSR CHROUT.| 00000920: 38 11 84 08 4A 53 52 20 43 48 52 4F 55 54 20 3B |8...JSR CHROUT ;| 00000930: 20 33 20 54 49 4D 45 53 00 45 11 8E 08 4A 53 52 | 3 TIMES.E...JSR| 00000940: 20 9C 43 48 4E 00 62 11 98 08 4C 44 41 20 23 37 | .CHN.b...LDA #7| 00000950: 30 20 3B 20 92 20 41 A8 48 45 52 20 B1 31 20 53 |0 ; . A.HER .1 S| 00000960: 45 43 00 77 11 A2 08 4A 4D 50 20 54 49 92 20 3B |EC.w...JMP TI. ;| 00000970: 20 AF 20 45 58 49 54 00 7D 11 AC 08 3B 00 9B 11 | . EXIT.}...;...| 00000980: B6 08 3B 20 AC 20 91 20 4C 49 4E 45 20 AB 20 53 |..; . . LINE . S| 00000990: 80 20 41 54 41 20 43 4F 4D 4D AF 00 A1 11 C0 08 |. ATA COMM......| 000009A0: 3B 00 B5 11 CA 08 91 4C 49 4E 45 20 4A 53 52 20 |;......LINE JSR | 000009B0: 53 4D 41 52 54 00 CA 11 D4 08 2E C6 20 22 41 54 |SMART....... "AT| 000009C0: 41 22 20 3B 20 44 4F 20 49 54 00 D8 11 DE 08 2E |A" ; DO IT......| 000009D0: 42 59 54 20 31 33 2C 30 00 E7 11 E8 08 52 54 53 |BYT 13,0.....RTS| 000009E0: 20 3B 20 45 58 49 54 00 ED 11 F2 08 3B 00 04 12 | ; EXIT.....;...| 000009F0: FC 08 3B 20 AC 20 41 4E 53 57 45 52 20 52 4F 55 |..; . ANSWER ROU| 00000A00: 54 49 4E 45 00 25 12 06 09 3B 20 28 4D 41 4B 45 |TINE.%...; (MAKE| 00000A10: 20 53 55 52 45 20 50 48 91 45 20 49 53 20 91 AB | SURE PH.E IS ..| 00000A20: 48 4F 4F 4B 29 00 2B 12 10 09 3B 00 41 12 1A 09 |HOOK).+...;.A...| 00000A30: 41 41 4E 53 57 45 52 20 4A 53 52 20 53 4D 41 52 |AANSWER JSR SMAR| 00000A40: 54 00 5F 12 24 09 2E C6 20 22 41 54 20 53 30 3D |T._.$... "AT S0=| 00000A50: 31 22 20 3B 20 52 49 4E 47 53 20 A4 20 91 45 00 |1" ; RINGS . .E.| 00000A60: 6D 12 2E 09 2E 42 59 54 20 31 33 2C 30 00 8E 12 |m....BYT 13,0...| 00000A70: 38 09 41 4E 53 31 20 4C 44 41 20 35 36 35 37 37 |8.ANS1 LDA 56577| 00000A80: 20 3B 20 57 45 27 4C 4C 20 43 48 45 43 4B 00 A6 | ; WE'LL CHECK..| 00000A90: 12 42 09 AF 20 23 31 36 20 3B 20 43 41 52 52 49 |.B.. #16 ; CARRI| 00000AA0: 45 52 20 42 49 54 00 B3 12 4C 09 42 45 51 20 41 |ER BIT...L.BEQ A| 00000AB0: 4E 53 32 00 CD 12 56 09 4C 44 41 20 31 34 35 20 |NS2...V.LDA 145 | 00000AC0: 3B 20 43 48 45 43 4B 20 90 20 4B 45 59 00 DA 12 |; CHECK . KEY...| 00000AD0: 60 09 43 4D 50 20 23 24 37 46 00 EC 12 6A 09 42 |`.CMP #$7F...j.B| 00000AE0: 4E 45 20 41 4E 53 31 20 3B 20 4E 4F 00 F4 12 74 |NE ANS1 ; NO...t| 00000AF0: 09 43 4C 43 00 03 13 7E 09 52 54 53 20 3B 20 41 |.CLC...~.RTS ; A| 00000B00: 42 B0 54 00 23 13 88 09 41 4E 53 32 20 53 45 43 |B.T.#...ANS2 SEC| 00000B10: 20 3B 20 43 41 52 52 49 45 52 20 44 45 54 45 43 | ; CARRIER DETEC| 00000B20: 54 45 44 00 2B 13 92 09 52 54 53 00 31 13 9C 09 |TED.+...RTS.1...| 00000B30: 3B 00 48 13 A6 09 3B 20 AC 20 53 80 20 53 4D 41 |;.H...; . S. SMA| 00000B40: 52 54 20 43 4F 4D 4D AF 00 4E 13 B0 09 3B 00 62 |RT COMM..N...;.b| 00000B50: 13 BA 09 53 4D 41 52 54 20 4C 44 41 20 35 36 35 |...SMART LDA 565| 00000B60: 37 37 00 83 13 C4 09 AF 20 23 31 36 20 3B 20 4D |77...... #16 ; M| 00000B70: 41 4B 45 20 53 55 52 45 20 4E 4F 20 43 41 52 52 |AKE SURE NO CARR| 00000B80: 49 45 52 00 8F 13 CE 09 42 4E 45 20 53 4D 31 00 |IER.....BNE SM1.| 00000B90: A9 13 D8 09 4A 53 52 20 4F 46 46 4C 49 4E 45 20 |....JSR OFFLINE | 00000BA0: 3B 20 48 41 4E 47 20 55 50 00 C2 13 E2 09 4A 4D |; HANG UP.....JM| 00000BB0: 50 20 53 4D 41 52 54 20 3B 20 AF 20 CB 20 42 41 |P SMART ; . . BA| 00000BC0: 43 4B 00 CE 13 EC 09 53 4D 31 20 50 4C 41 00 E8 |CK.....SM1 PLA..| 00000BD0: 13 F6 09 53 54 41 20 53 54 20 3B 20 94 20 53 54 |...STA ST ; . ST| 00000BE0: 41 52 54 20 41 44 44 52 00 F0 13 00 0A 50 4C 41 |ART ADDR.....PLA| 00000BF0: 00 FD 13 0A 0A 53 54 41 20 53 54 AA 31 00 08 14 |.....STA ST.1...| 00000C00: 14 0A 4C 44 58 20 23 35 00 17 14 1E 0A 4A 53 52 |..LDX #5.....JSR| 00000C10: 20 43 48 4B 4F 55 54 00 2E 14 28 0A 4C 44 41 20 | CHKOUT...(.LDA | 00000C20: 23 34 30 20 3B 20 92 20 2E 35 20 53 45 43 00 3A |#40 ; . .5 SEC.:| 00000C30: 14 32 0A 4A 53 52 20 54 49 92 00 49 14 3C 0A 53 |.2.JSR TI..I.<.S| 00000C40: 4D 32 20 49 4E 43 20 53 54 00 55 14 46 0A 42 4E |M2 INC ST.U.F.BN| 00000C50: 45 20 53 4D 33 00 62 14 50 0A 49 4E 43 20 53 54 |E SM3.b.P.INC ST| 00000C60: AA 31 00 71 14 5A 0A 53 4D 33 20 4C 44 59 20 23 |.1.q.Z.SM3 LDY #| 00000C70: 30 00 8B 14 64 0A 4A 53 52 20 48 4F 4C 44 20 3B |0...d.JSR HOLD ;| 00000C80: 20 49 44 4C 45 20 52 53 32 33 32 00 9A 14 6E 0A | IDLE RS232...n.| 00000C90: 4C 44 41 20 28 53 54 29 2C 59 00 A6 14 78 0A 42 |LDA (ST),Y...x.B| 00000CA0: 45 51 20 53 4D 34 00 B5 14 82 0A 4A 53 52 20 43 |EQ SM4.....JSR C| 00000CB0: 48 52 4F 55 54 00 C9 14 8C 0A 4A 4D 50 20 53 4D |HROUT.....JMP SM| 00000CC0: 32 20 3B 20 9A 49 4E 55 45 00 DA 14 96 0A 53 4D |2 ; .INUE.....SM| 00000CD0: 34 20 4A 53 52 20 9C 43 48 4E 00 F7 14 A0 0A 4C |4 JSR .CHN.....L| 00000CE0: 44 41 20 23 34 30 20 3B 20 92 20 2E 35 20 53 45 |DA #40 ; . .5 SE| 00000CF0: 43 20 41 47 41 49 4E 00 03 15 AA 0A 4A 53 52 20 |C AGAIN.....JSR | 00000D00: 54 49 92 00 10 15 B4 0A 4C 44 41 20 53 54 AA 31 |TI......LDA ST.1| 00000D10: 00 18 15 BE 0A 50 48 41 00 23 15 C8 0A 4C 44 41 |.....PHA.#...LDA| 00000D20: 20 53 54 00 2B 15 D2 0A 50 48 41 00 3C 15 DC 0A | ST.+...PHA.<...| 00000D30: 52 54 53 20 3B 20 AF 20 45 58 49 54 00 42 15 E6 |RTS ; . EXIT.B..| 00000D40: 0A 3B 00 66 15 F0 0A 3B 20 AC 20 49 44 4C 45 20 |.;.f...; . IDLE | 00000D50: 52 53 AB 32 33 32 20 54 52 41 4E 53 4D 49 54 20 |RS.232 TRANSMIT | 00000D60: 42 55 46 46 45 52 00 6C 15 FA 0A 3B 00 7E 15 04 |BUFFER.l...;.~..| 00000D70: 0B 48 4F 4C 44 20 4C 44 41 20 24 32 41 31 00 86 |.HOLD LDA $2A1..| 00000D80: 15 0E 0B 4C 53 52 00 93 15 18 0B 42 43 53 20 48 |...LSR.....BCS H| 00000D90: 4F 4C 44 00 9B 15 22 0B 52 54 53 00 A1 15 2C 0B |OLD...".RTS...,.| 00000DA0: 3B 00 AE 15 36 0B 8E 20 4C 44 58 20 23 35 00 BD |;...6.. LDX #5..| 00000DB0: 15 40 0B 4A 53 52 20 43 48 4B 4F 55 54 00 C9 15 |.@.JSR CHKOUT...| 00000DC0: 4A 0B 4C 44 41 20 23 31 33 00 D8 15 54 0B 4A 53 |J.LDA #13...T.JS| 00000DD0: 52 20 43 48 52 4F 55 54 00 E5 15 5E 0B 4A 53 52 |R CHROUT...^.JSR| 00000DE0: 20 48 4F 4C 44 00 F1 15 68 0B 4C 44 41 20 23 31 | HOLD...h.LDA #1| 00000DF0: 33 00 00 16 72 0B 4A 53 52 20 43 48 52 4F 55 54 |3...r.JSR CHROUT| 00000E00: 00 0D 16 7C 0B 4A 53 52 20 48 4F 4C 44 00 1A 16 |...|.JSR HOLD...| 00000E10: 86 0B 4A 4D 50 20 9C 43 48 4E 00 00 00 |..JMP .CHN... |
..&.... * DARKTERM 4.0 (C) 1986 D.S.S..G .... * 1670 MODEM MODULE SOURCE.O.... *. N....2,8,1,"@0:DT4.MODEM 1670".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.. ...ST .120 ; USE .P OF . BUFFER...D.;.U. N.DDELAY .878 ; SETUP EQUATES...X.CDELAY .880.....HDELAY .881.....;.....MILLI . $090C ; ACCESS ROUTINES.....TI. .$090F.4 ...;.M.....$4600 ; START HERE.]...JMP AU .DIAL.M.(.JMP AANSWER...2.JMP .LINE ; PI CK UP...<.JMP OFFLINE ; HANG UP...F.;.D. P.; . .E PULSE DIAL DELAY OF...Z.; . OF ZERO .NE DIALS, N..ZERO...D.; . WILL PUL SE DIAL...N.;.&.X.AU.DIAL STX TEXT ; . A DDRESS.K...STY TEXT.1 ; OF DIAL TEXT STR ING.D...JSR . ; S. COUPLE .S.....LDA HDE LAY ; . HDELAY SEC.DS... .JSR ......LDX #5.....JSR CHKOUT ; . .Y . DIAL.R...LDA #"A" ; S. AT FIRST...H.JSR CHROUT...R.JS R HOLD.....LDA #"T".....JSR CHROUT.....J SR HOLD.$...LDA #"D".3...JSR CHROUT.@... JSR HOLD.C...LDA DDELAY ; CHECK PULSE . .NE.Q.".BNE PDIAL...,.LDA #"T" ; .NE...6 ..BYT $2C...@.PDIAL LDA #"P" ; PULSE...J .JSR CHROUT.H.T.JSR HOLD...^.LDY #0 ; IN DEX . START...H.AU.1 LDA (TEXT),Y ; . ST RING...R.CMP #32 ; SKIP SPACES.(.|.BEQ . .G.... #127 ; MASK . FII UPCASE.E...JSR CHROUT ; S. CHARACTER.X...JSR HOLD ; . . ...... INY.....CPY #18 ; D.E ALL 18 CHAR S.....BNE AU.1 ; NO, K BACK.N.B.LDA #13 ; S. ....L.JSR CHROUT...V.JSR HOLD.....J SR .CHN.....LDA CDELAY ; . OUT THE DELAY ."...JSR ..;...JSR . ; S. COUPLE .S.Z... LDA 56577 ; HAVE A CARRIER.D.... #16.... .BEQ AU.4 ; YES, SIGNAL IT...&.SEC ; NO, SET ZERO FLAG TRUE.E.0.LDA #0 ; . SET C ARRY (. AB.T).M.:.RTS...D.AU.4 SEC ; HAV E CARRIER, SET...N.LDA #1 ; ZERO FALSE.. .X.RTS ; EXIT.4.B.AB.T LDA 145 ; CHECK . KEY.A.L.CMP #$7F.[.V.BNE ABO1 ; NO, K B ACK.Y...ABO0 PLA ; PULL . ADDRESS.....PL A.....CLC ; CLEAR THE CARRY.....ABO1 RTS ; . EXIT . TERM.T.... TAX ; 1 SEC.D COU NTER.....W0 LDA #0.....STA 160...F.STA 1 61...P.STA 162.$.Z.W1 LDA 145 ; CHECK . AB.T.@...CMP #$7F ; DURING THE ..M...BEQ ABO0.Y...LDA 162.E...CMP #60.P...BCC W1 .X...DEX... .BMI W2...*.BNE W0...4.W2 RT S...>.OFFLINE LDA #70 ; . .1 SEC.D.F.H.J SR TI..Q.R.LDX #5...\.JSR CHKOUT ; S. "+ ++" SEQUENCE...F.LDA #"+"...P.JSR CHROUT ...Z.JSR CHROUT.8...JSR CHROUT ; 3 TIMES .E...JSR .CHN.B...LDA #70 ; . A.HER .1 S EC.W...JMP TI. ; . EXIT.}...;.....; . . LINE . S. ATA COMM......;...J..LINE JSR SMART.J.T..F "ATA" ; DO IT.X....BYT 13,0 .....RTS ; EXIT.....;.....; . ANSWER ROU TINE.%...; (MAKE SURE PH.E IS ..HOOK).+. ..;.A...AANSWER JSR SMART._.$..F "AT S0= 1" ; RINGS . .E.M....BYT 13,0...8.ANS1 L DA 56577 ; WE'LL CHECK...B.. #16 ; CARRI ER BIT...L.BEQ ANS2.M.V.LDA 145 ; CHECK . KEY.Z.`.CMP #$7F...J.BNE ANS1 ; NO...T .CLC...~.RTS ; AB.T.#...ANS2 SEC ; CARRI ER DETECTED.+...RTS.1...;.H...; . S. SMA RT COMM..N...;.B...SMART LDA 56577...D.. #16 ; MAKE SURE NO CARRIER...N.BNE SM1. ..X.JSR OFFLINE ; HANG UP.B...JMP SMART ; . K BACK.N...SM1 PLA.....STA ST ; . ST ART ADDR.....PLA.....STA ST.1.....LDX #5 .....JSR CHKOUT...(.LDA #40 ; . .5 SEC.: .2.JSR TI..I.<.SM2 INC ST.U.F.BNE SM3.B. P.INC ST.1.Q.Z.SM3 LDY #0...D.JSR HOLD ; IDLE RS232...N.LDA (ST),Y...X.BEQ SM4.. ...JSR CHROUT.I...JMP SM2 ; .INUE.Z...SM 4 JSR .CHN... .LDA #40 ; . .5 SEC AGAIN. ....JSR TI......LDA ST.1.....PHA.#.H.LDA ST.+.R.PHA.<...RTS ; . EXIT.B...;.F...; . IDLE RS.232 TRANSMIT BUFFER.L...;.~.. .HOLD LDA $2A1.....LSR.....BCS HOLD...". RTS...,.;...6.. LDX #5...@.JSR CHKOUT.I. J.LDA #13.X.T.JSR CHROUT...^.JSR HOLD... H.LDA #13...R.JSR CHROUT...|.JSR HOLD... ..JMP .CHN...
> CLICK IMAGE PREVIEW FOR FULL MODAL