M.1670.A1
FILE INFORMATION
FILENAME(S): M.1670.A1
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 16:57:46
APPEARS ON: 1 disk(s)
FILE HASH
fd521f399718d8e7dd2043b29b8c1eaa8ae5c94715ba41422ce12cd457542ac3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | M.1670.A1 | PRG | High Voltage Complete C64 Collection, Markus Merz | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 E8 03 8F 20 2A 20 20 20 20 20 20 44 |....... * D| 00000010: 41 52 4B 54 45 52 4D 20 27 38 38 00 3A 08 F2 03 |ARKTERM '88.:...| 00000020: 8F 20 2A 20 31 36 37 30 20 4D 4F 44 45 4D 20 46 |. * 1670 MODEM F| 00000030: 49 4C 45 20 53 4F 55 52 43 45 00 42 08 FC 03 8F |ILE SOURCE.B....| 00000040: 20 2A 00 60 08 06 04 9F 31 2C 38 2C 31 35 2C 22 | *.`....1,8,15,"| 00000050: 53 30 3A 44 27 38 38 2E 31 36 37 30 22 3A A0 31 |S0:D'88.1670":.1| 00000060: 00 79 08 10 04 9F 32 2C 38 2C 31 2C 22 30 3A 44 |.y....2,8,1,"0:D| 00000070: 27 38 38 2E 31 36 37 30 22 00 82 08 1A 04 9E 37 |'88.1670"......7| 00000080: 30 30 00 8E 08 24 04 2E 4F 50 54 20 4F 32 00 94 |00...$..OPT O2..| 00000090: 08 2E 04 3B 00 B7 08 38 04 43 48 4B 49 4E 20 20 |...;...8.CHKIN | 000000A0: B2 24 46 46 43 36 20 3B 20 4B 45 52 4E 45 4C 20 |.$FFC6 ; KERNEL | 000000B0: 45 51 55 41 54 45 53 00 C9 08 42 04 43 48 4B 4F |EQUATES...B.CHKO| 000000C0: 55 54 20 B2 24 46 46 43 39 00 DB 08 4C 04 43 48 |UT .$FFC9...L.CH| 000000D0: 52 49 4E 20 20 B2 24 46 46 43 46 00 ED 08 56 04 |RIN .$FFCF...V.| 000000E0: 43 48 52 4F 55 54 20 B2 24 46 46 44 32 00 FD 08 |CHROUT .$FFD2...| 000000F0: 60 04 9C 43 48 4E 20 B2 24 46 46 43 43 00 0D 09 |`..CHN .$FFCC...| 00000100: 6A 04 A1 49 4E 20 20 B2 24 46 46 45 34 00 13 09 |j..IN .$FFE4...| 00000110: 74 04 3B 00 35 09 7E 04 50 54 52 20 20 20 20 B2 |t.;.5.~.PTR .| 00000120: 31 33 38 20 3B 20 54 45 4D 50 B0 41 52 59 20 50 |138 ; TEMP.ARY P| 00000130: 4F B5 45 52 53 00 45 09 88 04 53 54 20 20 20 20 |O.ERS.E...ST | 00000140: 20 B2 31 34 30 00 66 09 92 04 50 52 45 46 49 58 | .140.f...PREFIX| 00000150: 20 B2 39 33 30 20 3B 20 44 49 41 4C 49 4E 47 20 | .930 ; DIALING | 00000160: 50 52 45 46 49 58 00 82 09 9C 04 50 52 45 C3 20 |PREFIX.....PRE. | 00000170: B2 39 32 39 20 3B 20 50 52 45 46 49 58 20 C3 47 |.929 ; PREFIX .G| 00000180: 54 48 00 88 09 A6 04 3B 00 AE 09 B0 04 44 45 54 |TH.....;.....DET| 00000190: 45 43 54 20 B2 39 32 32 20 3B 20 43 41 52 52 49 |ECT .922 ; CARRI| 000001A0: 45 52 20 44 45 54 45 43 54 20 46 4C 41 47 00 CE |ER DETECT FLAG..| 000001B0: 09 BA 04 44 44 45 4C 41 59 20 B2 39 32 37 20 3B |...DDELAY .927 ;| 000001C0: 20 44 49 41 4C 49 4E 47 20 44 45 4C 41 59 00 F0 | DIALING DELAY..| 000001D0: 09 C4 04 57 44 45 4C 41 59 20 B2 39 32 36 20 3B |...WDELAY .926 ;| 000001E0: 20 43 41 52 52 49 45 52 20 92 20 44 45 4C 41 59 | CARRIER . DELAY| 000001F0: 00 0F 0A CE 04 48 44 45 4C 41 59 20 B2 39 32 35 |.....HDELAY .925| 00000200: 20 3B 20 91 AB 48 4F 4F 4B 20 44 45 4C 41 59 00 | ; ..HOOK DELAY.| 00000210: 15 0A D8 04 3B 00 3A 0A E2 04 AC B2 24 34 35 30 |....;.:.....$450| 00000220: 30 20 3B 20 53 54 41 52 54 53 20 48 45 52 45 20 |0 ; STARTS HERE | 00000230: 55 50 20 A4 20 24 34 37 46 46 00 40 0A EC 04 3B |UP . $47FF.@...;| 00000240: 00 5C 0A F6 04 4A 4D 50 20 41 4E 53 57 45 52 20 |.\...JMP ANSWER | 00000250: 3B 20 41 55 A4 AB 41 4E 53 57 45 52 00 76 0A 00 |; AU..ANSWER.v..| 00000260: 05 4A 4D 50 20 44 4F 44 49 41 4C 20 3B 20 41 55 |.JMP DODIAL ; AU| 00000270: A4 AB 44 49 41 4C 00 95 0A 0A 05 4A 4D 50 20 91 |..DIAL.....JMP .| 00000280: 48 4F 4F 4B 20 3B 20 4C 41 42 45 4C 20 53 41 59 |HOOK ; LABEL SAY| 00000290: 53 20 41 4C 4C 00 AF 0A 14 05 4A 4D 50 20 4F 46 |S ALL.....JMP OF| 000002A0: 48 4F 4F 4B 20 3B 20 4F 46 46 20 48 4F 4F 4B 00 |HOOK ; OFF HOOK.| 000002B0: D3 0A 1E 05 4A 4D 50 20 43 41 52 43 48 4B 20 3B |....JMP CARCHK ;| 000002C0: 20 4C 4F 53 54 20 43 41 52 52 49 45 52 20 43 48 | LOST CARRIER CH| 000002D0: 45 43 4B 00 F6 0A 28 05 4A 4D 50 20 43 55 53 A4 |ECK...(.JMP CUS.| 000002E0: 4D 20 3B 20 55 53 45 52 20 96 49 4E 45 44 20 52 |M ; USER .INED R| 000002F0: 4F 55 54 49 4E 45 00 16 0B 32 05 4A 4D 50 20 48 |OUTINE...2.JMP H| 00000300: 41 4E 47 55 50 20 3B 20 48 41 4E 47 55 50 20 52 |ANGUP ; HANGUP R| 00000310: 4F 55 54 49 4E 45 00 1C 0B 3C 05 3B 00 40 0B 46 |OUTINE...<.;.@.F| 00000320: 05 44 4F 44 49 41 4C 20 53 54 58 20 50 54 52 20 |.DODIAL STX PTR | 00000330: 3B 20 58 AD 59 20 50 4F B5 20 A4 20 44 49 41 4C |; X.Y PO. . DIAL| 00000340: 00 63 0B 50 05 53 54 59 20 50 54 52 AA 31 20 3B |.c.P.STY PTR.1 ;| 00000350: 20 53 54 52 49 4E 47 20 28 31 38 20 44 49 47 49 | STRING (18 DIGI| 00000360: 54 53 29 00 81 0B 5A 05 4A 53 52 20 8E 20 3B 20 |TS)...Z.JSR . ; | 00000370: 53 80 20 32 20 B3 43 52 B1 20 A4 20 42 45 47 49 |S. 2 .CR. . BEGI| 00000380: 4E 00 99 0B 64 05 4C 44 41 20 48 44 45 4C 41 59 |N...d.LDA HDELAY| 00000390: 20 3B 20 92 20 53 4F 4D 45 00 A3 0B 6E 05 4A 53 | ; . SOME...n.JS| 000003A0: 52 20 92 00 AE 0B 78 05 4C 44 58 20 23 35 00 BD |R ....x.LDX #5..| 000003B0: 0B 82 05 4A 53 52 20 43 48 4B 4F 55 54 00 C8 0B |...JSR CHKOUT...| 000003C0: 8C 05 4C 44 59 20 23 30 00 E8 0B 96 05 44 4F 44 |..LDY #0.....DOD| 000003D0: 4F 31 20 43 50 59 20 50 52 45 C3 20 3B 20 43 48 |O1 CPY PRE. ; CH| 000003E0: 45 43 4B 20 C3 47 54 48 00 0B 0C A0 05 42 45 51 |ECK .GTH.....BEQ| 000003F0: 20 44 4F 44 4F 32 20 3B 20 42 45 81 45 20 53 80 | DODO2 ; BE.E S.| 00000400: 49 4E 47 20 49 4E 20 43 41 53 45 00 31 0C AA 05 |ING IN CASE.1...| 00000410: 4C 44 41 20 50 52 45 46 49 58 2C 59 20 3B 20 54 |LDA PREFIX,Y ; T| 00000420: 48 45 52 45 20 49 53 20 4E 4F 20 50 52 45 46 49 |HERE IS NO PREFI| 00000430: 58 00 40 0C B4 05 4A 53 52 20 4D 4F 44 4F 55 54 |X.@...JSR MODOUT| 00000440: 00 48 0C BE 05 49 4E 59 00 56 0C C8 05 42 4E 45 |.H...INY.V...BNE| 00000450: 20 44 4F 44 4F 31 00 67 0C D2 05 44 4F 44 4F 32 | DODO1.g...DODO2| 00000460: 20 4C 44 59 20 23 30 00 88 0C DC 05 44 4F 44 4F | LDY #0.....DODO| 00000470: 33 20 4C 44 41 20 28 50 54 52 29 2C 59 20 3B 20 |3 LDA (PTR),Y ; | 00000480: A1 20 53 54 52 49 4E 47 00 A6 0C E6 05 43 4D 50 |. STRING.....CMP| 00000490: 20 23 33 32 20 3B 20 53 4B 49 50 20 41 4C 4C 20 | #32 ; SKIP ALL | 000004A0: 42 4C 41 4E 4B 53 00 B4 0C F0 05 42 45 51 20 44 |BLANKS.....BEQ D| 000004B0: 4F 44 4F 34 00 CC 0C FA 05 AF 20 23 31 32 37 20 |ODO4...... #127 | 000004C0: 3B 20 4D 41 53 4B 20 81 20 C6 49 49 00 DB 0C 04 |; MASK . .II....| 000004D0: 06 4A 53 52 20 4D 4F 44 4F 55 54 00 E9 0C 0E 06 |.JSR MODOUT.....| 000004E0: 44 4F 44 4F 34 20 49 4E 59 00 07 0D 18 06 43 50 |DODO4 INY.....CP| 000004F0: 59 20 23 31 38 20 3B 20 44 4F 20 41 4C 4C 20 31 |Y #18 ; DO ALL 1| 00000500: 38 20 42 59 54 45 53 00 15 0D 22 06 42 4E 45 20 |8 BYTES...".BNE | 00000510: 44 4F 44 4F 33 00 2F 0D 2C 06 4C 44 41 20 23 31 |DODO3./.,.LDA #1| 00000520: 33 20 3B 20 53 80 20 54 48 45 20 B3 43 52 B1 00 |3 ; S. THE .CR..| 00000530: 3E 0D 36 06 4A 53 52 20 4D 4F 44 4F 55 54 00 4B |>.6.JSR MODOUT.K| 00000540: 0D 40 06 4A 53 52 20 9C 43 48 4E 00 6A 0D 4A 06 |.@.JSR .CHN.j.J.| 00000550: 4C 44 41 20 57 44 45 4C 41 59 20 3B 20 AF 20 92 |LDA WDELAY ; . .| 00000560: 20 81 20 43 41 52 52 49 45 52 00 74 0D 54 06 4A | . CARRIER.t.T.J| 00000570: 53 52 20 92 00 8C 0D 5E 06 4C 44 41 20 35 36 35 |SR ....^.LDA 565| 00000580: 37 37 20 3B 20 48 41 56 45 20 91 45 00 96 0D 68 |77 ; HAVE .E...h| 00000590: 06 AF 20 23 31 36 00 AA 0D 72 06 42 45 51 20 44 |.. #16...r.BEQ D| 000005A0: 4F 44 4F 35 20 3B 20 59 45 53 00 C9 0D 7C 06 53 |ODO5 ; YES...|.S| 000005B0: 45 43 20 3B 20 A8 20 41 42 B0 54 45 44 2C 20 53 |EC ; . AB.TED, S| 000005C0: 45 54 20 43 20 46 4C 41 47 00 ED 0D 86 06 4C 44 |ET C FLAG.....LD| 000005D0: 41 20 23 30 20 3B 20 4E 4F 20 43 41 52 52 49 45 |A #0 ; NO CARRIE| 000005E0: 52 2C 20 53 45 54 20 5A 20 46 4C 41 47 00 F5 0D |R, SET Z FLAG...| 000005F0: 90 06 52 54 53 00 10 0E 9A 06 44 4F 44 4F 35 20 |..RTS.....DODO5 | 00000600: 53 45 43 20 3B 20 53 45 54 20 43 20 46 4C 41 47 |SEC ; SET C FLAG| 00000610: 00 33 0E A4 06 4C 44 41 20 23 31 20 3B 20 43 41 |.3...LDA #1 ; CA| 00000620: 52 52 49 45 52 2C 20 43 4C 45 41 52 20 5A 20 46 |RRIER, CLEAR Z F| 00000630: 4C 41 47 00 3B 0E AE 06 52 54 53 00 41 0E B8 06 |LAG.;...RTS.A...| 00000640: 3B 00 4B 0E C2 06 92 20 54 41 58 00 6C 0E CC 06 |;.K.... TAX.l...| 00000650: 57 30 20 4A 53 52 20 9C 54 49 4D 20 3B 20 43 4C |W0 JSR .TIM ; CL| 00000660: 45 41 52 20 54 49 20 43 4C 4F 43 4B 00 89 0E D6 |EAR TI CLOCK....| 00000670: 06 57 31 20 4C 44 41 20 31 34 35 20 3B 20 43 48 |.W1 LDA 145 ; CH| 00000680: 45 43 4B 20 90 20 4B 45 59 00 96 0E E0 06 43 4D |ECK . KEY.....CM| 00000690: 50 20 23 24 37 46 00 B3 0E EA 06 42 45 51 20 57 |P #$7F.....BEQ W| 000006A0: 32 20 3B 20 8B 20 50 52 45 53 53 45 44 2C 20 41 |2 ; . PRESSED, A| 000006B0: 42 B0 54 00 BF 0E F4 06 4C 44 41 20 31 36 32 00 |B.T.....LDA 162.| 000006C0: D6 0E FE 06 43 4D 50 20 23 36 30 20 3B 20 91 45 |....CMP #60 ; .E| 000006D0: 20 53 45 43 91 44 00 E1 0E 08 07 42 43 43 20 57 | SEC.D.....BCC W| 000006E0: 31 00 FD 0E 12 07 44 45 58 20 3B 20 58 20 4E 55 |1.....DEX ; X NU| 000006F0: 4D 42 45 52 20 4F 46 20 54 49 4D 45 53 00 08 0F |MBER OF TIMES...| 00000700: 1C 07 42 45 51 20 57 33 00 13 0F 26 07 42 4E 45 |..BEQ W3...&.BNE| 00000710: 20 57 30 00 1E 0F 30 07 57 32 20 50 4C 41 00 26 | W0...0.W2 PLA.&| 00000720: 0F 3A 07 50 4C 41 00 4B 0F 44 07 43 4C 43 20 3B |.:.PLA.K.D.CLC ;| 00000730: 20 43 4C 45 41 52 20 43 20 46 4C 41 47 20 AB 20 | CLEAR C FLAG . | 00000740: 55 53 45 52 20 41 42 B0 54 45 44 00 56 0F 4E 07 |USER AB.TED.V.N.| 00000750: 57 33 20 52 54 53 00 5C 0F 58 07 3B 00 7C 0F 62 |W3 RTS.\.X.;.|.b| 00000760: 07 91 48 4F 4F 4B 20 4C 44 41 20 23 37 30 20 3B |..HOOK LDA #70 ;| 00000770: 20 92 20 91 45 20 53 45 43 2E 2E 2E 00 89 0F 6C | . .E SEC......l| 00000780: 07 4A 53 52 20 4A 8B 46 59 00 94 0F 76 07 4C 44 |.JSR J.FY...v.LD| 00000790: 58 20 23 35 00 A3 0F 80 07 4A 53 52 20 43 48 4B |X #5.....JSR CHK| 000007A0: 4F 55 54 00 C2 0F 8A 07 4C 44 41 20 23 22 2B 22 |OUT.....LDA #"+"| 000007B0: 20 3B 20 53 80 20 AA AA AA 20 53 45 51 55 45 4E | ; S. ... SEQUEN| 000007C0: 43 45 00 D1 0F 94 07 4A 53 52 20 4D 4F 44 4F 55 |CE.....JSR MODOU| 000007D0: 54 00 E0 0F 9E 07 4A 53 52 20 4D 4F 44 4F 55 54 |T.....JSR MODOUT| 000007E0: 00 EF 0F A8 07 4A 53 52 20 4D 4F 44 4F 55 54 00 |.....JSR MODOUT.| 000007F0: FC 0F B2 07 4A 53 52 20 9C 43 48 4E 00 1A 10 BC |....JSR .CHN....| 00000800: 07 4C 44 41 20 23 37 30 20 3B 20 92 20 91 45 20 |.LDA #70 ; . .E | 00000810: 4D B0 45 20 53 45 43 2E 2E 2E 00 27 10 C6 07 4A |M.E SEC....'...J| 00000820: 4D 50 20 4A 8B 46 59 00 2D 10 D0 07 3B 00 4D 10 |MP J.FY.-...;.M.| 00000830: DA 07 4F 46 48 4F 4F 4B 20 4A 53 52 20 53 4D 41 |..OFHOOK JSR SMA| 00000840: 52 54 20 3B 20 4F 46 46 AB 48 4F 4F 4B 00 5A 10 |RT ; OFF.HOOK.Z.| 00000850: E4 07 2E C6 20 22 41 54 44 22 00 68 10 EE 07 2E |.... "ATD".h....| 00000860: 42 59 54 20 31 33 2C 30 00 70 10 F8 07 52 54 53 |BYT 13,0.p...RTS| 00000870: 00 76 10 02 08 3B 00 99 10 0C 08 53 4D 41 52 54 |.v...;.....SMART| 00000880: 20 4C 44 41 20 35 36 35 37 37 20 3B 20 53 80 20 | LDA 56577 ; S. | 00000890: 41 54 20 43 4F 4D 4D AF 53 00 A3 10 16 08 AF 20 |AT COMM.S...... | 000008A0: 23 31 36 00 AF 10 20 08 42 4E 45 20 53 4D 31 00 |#16... .BNE SM1.| 000008B0: D0 10 2A 08 4A 53 52 20 91 48 4F 4F 4B 20 3B 20 |..*.JSR .HOOK ; | 000008C0: 48 41 4E 47 20 55 50 20 55 4E 54 49 4C 20 4E 4F |HANG UP UNTIL NO| 000008D0: 00 E8 10 34 08 4A 4D 50 20 53 4D 41 52 54 20 3B |...4.JMP SMART ;| 000008E0: 20 43 41 52 52 49 45 52 00 0C 11 3E 08 53 4D 31 | CARRIER...>.SM1| 000008F0: 20 50 4C 41 20 3B 20 A1 20 53 54 52 49 4E 47 20 | PLA ; . STRING | 00000900: 41 44 44 52 45 53 53 20 46 52 4F 4D 00 23 11 48 |ADDRESS FROM.#.H| 00000910: 08 53 54 41 20 53 54 20 3B 20 8E 20 41 44 44 52 |.STA ST ; . ADDR| 00000920: 45 53 53 00 2B 11 52 08 50 4C 41 00 38 11 5C 08 |ESS.+.R.PLA.8.\.| 00000930: 53 54 41 20 53 54 AA 31 00 43 11 66 08 4C 44 58 |STA ST.1.C.f.LDX| 00000940: 20 23 35 00 52 11 70 08 4A 53 52 20 43 48 4B 4F | #5.R.p.JSR CHKO| 00000950: 55 54 00 6D 11 7A 08 4C 44 41 20 23 34 30 20 3B |UT.m.z.LDA #40 ;| 00000960: 20 92 20 B1 2E 35 20 53 45 43 2E 2E 2E 00 7A 11 | . ..5 SEC....z.| 00000970: 84 08 4A 53 52 20 4A 8B 46 59 00 89 11 8E 08 53 |..JSR J.FY.....S| 00000980: 4D 32 20 49 4E 43 20 53 54 00 95 11 98 08 42 4E |M2 INC ST.....BN| 00000990: 45 20 53 4D 33 00 A2 11 A2 08 49 4E 43 20 53 54 |E SM3.....INC ST| 000009A0: AA 31 00 B1 11 AC 08 53 4D 33 20 4C 44 59 20 23 |.1.....SM3 LDY #| 000009B0: 30 00 CB 11 B6 08 4C 44 41 20 28 53 54 29 2C 59 |0.....LDA (ST),Y| 000009C0: 20 3B 20 53 80 20 43 4F 4D 4D AF 00 D7 11 C0 08 | ; S. COMM......| 000009D0: 42 45 51 20 53 4D 34 00 E6 11 CA 08 4A 53 52 20 |BEQ SM4.....JSR | 000009E0: 4D 4F 44 4F 55 54 00 F2 11 D4 08 4A 4D 50 20 53 |MODOUT.....JMP S| 000009F0: 4D 32 00 03 12 DE 08 53 4D 34 20 4A 53 52 20 9C |M2.....SM4 JSR .| 00000A00: 43 48 4E 00 1C 12 E8 08 4C 44 41 20 23 34 30 20 |CHN.....LDA #40 | 00000A10: 3B 20 92 20 53 4F 4D 45 20 4D B0 45 00 29 12 F2 |; . SOME M.E.)..| 00000A20: 08 4A 53 52 20 4A 8B 46 59 00 49 12 FC 08 4C 44 |.JSR J.FY.I...LD| 00000A30: 41 20 53 54 AA 31 20 3B 20 50 55 53 48 20 A2 20 |A ST.1 ; PUSH . | 00000A40: 8E 20 41 44 44 52 45 53 53 00 51 12 06 09 50 48 |. ADDRESS.Q...PH| 00000A50: 41 00 5C 12 10 09 4C 44 41 20 53 54 00 64 12 1A |A.\...LDA ST.d..| 00000A60: 09 50 48 41 00 6C 12 24 09 52 54 53 00 72 12 2E |.PHA.l.$.RTS.r..| 00000A70: 09 3B 00 88 12 38 09 4D 4F 44 4F 55 54 20 4A 53 |.;...8.MODOUT JS| 00000A80: 52 20 43 48 52 4F 55 54 00 A8 12 42 09 4D 4F 44 |R CHROUT...B.MOD| 00000A90: 4F 31 20 4C 44 58 20 36 36 39 20 3B 20 92 20 81 |O1 LDX 669 ; . .| 00000AA0: 20 52 53 32 33 32 20 A4 00 C8 12 4C 09 43 50 58 | RS232 ....L.CPX| 00000AB0: 20 36 37 30 20 3B 20 CB 20 49 44 4C 45 20 42 45 | 670 ; . IDLE BE| 00000AC0: 81 45 20 53 80 49 4E 47 00 DE 12 56 09 42 4E 45 |.E S.ING...V.BNE| 00000AD0: 20 4D 4F 44 4F 31 20 3B 20 41 47 41 49 4E 00 E6 | MODO1 ; AGAIN..| 00000AE0: 12 60 09 52 54 53 00 EC 12 6A 09 3B 00 F9 12 74 |.`.RTS...j.;...t| 00000AF0: 09 8E 20 4C 44 58 20 23 35 00 08 13 7E 09 4A 53 |.. LDX #5...~.JS| 00000B00: 52 20 43 48 4B 4F 55 54 00 14 13 88 09 4C 44 41 |R CHKOUT.....LDA| 00000B10: 20 23 31 33 00 23 13 92 09 4A 53 52 20 4D 4F 44 | #13.#...JSR MOD| 00000B20: 4F 55 54 00 32 13 9C 09 4A 53 52 20 4D 4F 44 4F |OUT.2...JSR MODO| 00000B30: 55 54 00 3F 13 A6 09 4A 4D 50 20 9C 43 48 4E 00 |UT.?...JMP .CHN.| 00000B40: 45 13 B0 09 3B 00 67 13 BA 09 43 55 53 A4 4D 20 |E...;.g...CUS.M | 00000B50: 52 54 53 20 3B 20 4E 91 45 20 4E 45 45 44 45 44 |RTS ; N.E NEEDED| 00000B60: 20 81 20 31 36 37 30 00 6D 13 C4 09 3B 00 91 13 | . 1670.m...;...| 00000B70: CE 09 43 41 52 43 48 4B 20 42 49 54 20 44 45 54 |..CARCHK BIT DET| 00000B80: 45 43 54 20 3B 20 8B 20 44 45 54 45 43 54 20 49 |ECT ; . DETECT I| 00000B90: 53 00 B2 13 D8 09 42 50 4C 20 43 41 52 31 20 3B |S.....BPL CAR1 ;| 00000BA0: 20 30 20 A7 20 49 47 4E B0 45 20 43 41 52 52 49 | 0 . IGN.E CARRI| 00000BB0: 45 52 00 C0 13 E2 09 4C 44 41 20 24 44 44 30 31 |ER.....LDA $DD01| 00000BC0: 00 CA 13 EC 09 AF 20 23 31 36 00 D7 13 F6 09 42 |...... #16.....B| 00000BD0: 45 51 20 43 41 52 31 00 F1 13 00 0A 43 4C 43 20 |EQ CAR1.....CLC | 00000BE0: 3B 20 44 52 4F 50 50 45 44 20 43 41 52 52 49 45 |; DROPPED CARRIE| 00000BF0: 52 00 0B 14 0A 0A 52 54 53 20 3B 20 53 4F 20 43 |R.....RTS ; SO C| 00000C00: 4C 45 41 52 20 43 20 46 4C 41 47 00 18 14 14 0A |LEAR C FLAG.....| 00000C10: 43 41 52 31 20 53 45 43 00 20 14 1E 0A 52 54 53 |CAR1 SEC. ...RTS| 00000C20: 00 26 14 28 0A 3B 00 36 14 32 0A 9C 54 49 4D 20 |.&.(.;.6.2..TIM | 00000C30: 4C 44 41 20 23 30 00 42 14 3C 0A 53 54 41 20 31 |LDA #0.B.<.STA 1| 00000C40: 36 30 00 4E 14 46 0A 53 54 41 20 31 36 31 00 5A |60.N.F.STA 161.Z| 00000C50: 14 50 0A 53 54 41 20 31 36 32 00 62 14 5A 0A 52 |.P.STA 162.b.Z.R| 00000C60: 54 53 00 68 14 64 0A 3B 00 85 14 6E 0A 4A 8B 46 |TS.h.d.;...n.J.F| 00000C70: 59 20 54 41 58 20 3B 20 92 20 53 4F 4D 45 20 4A |Y TAX ; . SOME J| 00000C80: 8B 46 49 45 53 00 92 14 78 0A 4A 53 52 20 9C 54 |.FIES...x.JSR .T| 00000C90: 49 4D 00 A2 14 82 0A 4A 8B 31 20 43 50 58 20 31 |IM.....J.1 CPX 1| 00000CA0: 36 32 00 AE 14 8C 0A 42 43 53 20 4A 8B 31 00 B6 |62.....BCS J.1..| 00000CB0: 14 96 0A 52 54 53 00 BC 14 A0 0A 3B 00 DF 14 AA |...RTS.....;....| 00000CC0: 0A 41 4E 53 57 45 52 20 4A 53 52 20 52 45 53 45 |.ANSWER JSR RESE| 00000CD0: 54 20 3B 20 52 45 53 45 54 20 4D 4F 44 45 4D 00 |T ; RESET MODEM.| 00000CE0: FE 14 B4 0A 41 4E 53 30 20 4A 53 52 20 53 4D 41 |....ANS0 JSR SMA| 00000CF0: 52 54 20 3B 20 53 80 20 41 54 20 41 43 4B 00 0A |RT ; S. AT ACK..| 00000D00: 15 BE 0A 2E C6 20 22 41 54 22 00 18 15 C8 0A 2E |..... "AT"......| 00000D10: 42 59 54 20 31 33 2C 30 00 23 15 D2 0A 4C 44 58 |BYT 13,0.#...LDX| 00000D20: 20 23 35 00 31 15 DC 0A 4A 53 52 20 43 48 4B 49 | #5.1...JSR CHKI| 00000D30: 4E 00 3D 15 E6 0A 4A 53 52 20 A1 49 4E 00 45 15 |N.=...JSR .IN.E.| 00000D40: F0 0A 50 48 41 00 52 15 FA 0A 4A 53 52 20 9C 43 |..PHA.R...JSR .C| 00000D50: 48 4E 00 5A 15 04 0B 50 4C 41 00 65 15 0E 0B AF |HN.Z...PLA.e....| 00000D60: 20 23 31 32 37 00 85 15 18 0B 43 4D 50 20 23 22 | #127.....CMP #"| 00000D70: 30 22 20 3B 20 92 20 81 20 4F 4B 41 59 20 52 45 |0" ; . . OKAY RE| 00000D80: 53 50 91 53 45 00 92 15 22 0B 42 4E 45 20 41 4E |SP.SE...".BNE AN| 00000D90: 53 30 00 A2 15 2C 0B 41 4E 53 31 20 4C 44 58 20 |S0...,.ANS1 LDX | 00000DA0: 23 35 00 B0 15 36 0B 4A 53 52 20 43 48 4B 49 4E |#5...6.JSR CHKIN| 00000DB0: 00 CC 15 40 0B 4A 53 52 20 A1 49 4E 20 3B 20 92 |...@.JSR .IN ; .| 00000DC0: 20 81 20 4E 55 4D 45 52 49 43 41 4C 00 DE 15 4A | . NUMERICAL...J| 00000DD0: 0B 50 48 41 20 3B 20 52 45 53 50 91 53 45 00 EB |.PHA ; RESP.SE..| 00000DE0: 15 54 0B 4A 53 52 20 9C 43 48 4E 00 F3 15 5E 0B |.T.JSR .CHN...^.| 00000DF0: 50 4C 41 00 0E 16 68 0B AF 20 23 31 32 37 20 3B |PLA...h.. #127 ;| 00000E00: 20 44 49 53 43 41 52 44 20 42 49 54 20 37 00 26 | DISCARD BIT 7.&| 00000E10: 16 72 0B 43 4D 50 20 23 22 31 22 20 3B 20 33 30 |.r.CMP #"1" ; 30| 00000E20: 30 20 42 41 55 44 00 39 16 7C 0B 42 45 51 20 41 |0 BAUD.9.|.BEQ A| 00000E30: 4E 53 32 20 3B 20 59 45 53 00 52 16 86 0B 43 4D |NS2 ; YES.R...CM| 00000E40: 50 20 23 22 35 22 20 3B 20 31 32 30 30 20 42 41 |P #"5" ; 1200 BA| 00000E50: 55 44 00 65 16 90 0B 42 45 51 20 41 4E 53 33 20 |UD.e...BEQ ANS3 | 00000E60: 3B 20 59 45 53 00 87 16 9A 0B 4A 53 52 20 A1 49 |; YES.....JSR .I| 00000E70: 4E 20 3B 20 A1 20 4B 45 59 20 46 52 4F 4D 20 4B |N ; . KEY FROM K| 00000E80: 45 59 42 4F 41 52 44 00 92 16 A4 0B 43 4D 50 20 |EYBOARD.....CMP | 00000E90: 23 30 00 9F 16 AE 0B 42 45 51 20 41 4E 53 31 00 |#0.....BEQ ANS1.| 00000EA0: A7 16 B8 0B 43 4C 43 00 AF 16 C2 0B 52 54 53 00 |....CLC.....RTS.| 00000EB0: C2 16 CC 0B 41 4E 53 32 20 4C 44 58 20 23 B3 33 |....ANS2 LDX #.3| 00000EC0: 30 30 00 D0 16 D6 0B 4C 44 59 20 23 B1 33 30 30 |00.....LDY #.300| 00000ED0: 00 DD 16 E0 0B 42 4E 45 20 41 4E 53 34 00 F1 16 |.....BNE ANS4...| 00000EE0: EA 0B 41 4E 53 33 20 4C 44 58 20 23 B3 31 32 30 |..ANS3 LDX #.120| 00000EF0: 30 00 00 17 F4 0B 4C 44 59 20 23 B1 31 32 30 30 |0.....LDY #.1200| 00000F00: 00 0D 17 FE 0B 41 4E 53 34 20 53 45 43 00 15 17 |.....ANS4 SEC...| 00000F10: 08 0C 52 54 53 00 1B 17 12 0C 3B 00 2E 17 1C 0C |..RTS.....;.....| 00000F20: 52 45 53 45 54 20 4C 44 41 20 24 32 39 42 00 3B |RESET LDA $29B.;| 00000F30: 17 26 0C 53 54 41 20 24 32 39 43 00 49 17 30 0C |.&.STA $29C.I.0.| 00000F40: 4A 53 52 20 53 4D 41 52 54 00 56 17 3A 0C 2E C6 |JSR SMART.V.:...| 00000F50: 20 22 41 54 5A 22 00 64 17 44 0C 2E 42 59 54 20 | "ATZ".d.D..BYT | 00000F60: 31 33 2C 30 00 70 17 4E 0C 4C 44 41 20 23 37 35 |13,0.p.N.LDA #75| 00000F70: 00 7D 17 58 0C 4A 53 52 20 4A 8B 46 59 00 8A 17 |.}.X.JSR J.FY...| 00000F80: 62 0C 4C 44 41 20 24 32 39 42 00 97 17 6C 0C 53 |b.LDA $29B...l.S| 00000F90: 54 41 20 24 32 39 43 00 A5 17 76 0C 4A 53 52 20 |TA $29C...v.JSR | 00000FA0: 53 4D 41 52 54 00 BA 17 80 0C 2E C6 20 22 41 54 |SMART....... "AT| 00000FB0: 20 56 30 20 4D 30 20 58 31 22 00 C8 17 8A 0C 2E | V0 M0 X1"......| 00000FC0: 42 59 54 20 31 33 2C 30 00 D4 17 94 0C 4C 44 41 |BYT 13,0.....LDA| 00000FD0: 20 23 37 35 00 E1 17 9E 0C 4A 4D 50 20 4A 8B 46 | #75.....JMP J.F| 00000FE0: 59 00 E7 17 A8 0C 3B 00 0A 18 B2 0C 48 41 4E 47 |Y.....;.....HANG| 00000FF0: 55 50 20 4A 53 52 20 91 48 4F 4F 4B 20 3B 20 53 |UP JSR .HOOK ; S| 00001000: 80 20 AA AA AA 20 53 45 51 2E 00 2A 18 BC 0C 4A |. ... SEQ..*...J| 00001010: 53 52 20 53 4D 41 52 54 20 3B 20 53 80 20 43 4F |SR SMART ; S. CO| 00001020: 4D 4D AF 20 53 54 52 49 4E 47 00 37 18 C6 0C 2E |MM. STRING.7....| 00001030: C6 20 22 41 54 44 22 00 45 18 D0 0C 2E 42 59 54 |. "ATD".E....BYT| 00001040: 20 31 33 2C 30 00 53 18 DA 0C 4C 44 41 20 24 44 | 13,0.S...LDA $D| 00001050: 44 30 31 00 6D 18 E4 0C AF 20 23 31 36 20 3B 20 |D01.m.... #16 ; | 00001060: 43 48 45 43 4B 20 43 41 52 52 49 45 52 00 93 18 |CHECK CARRIER...| 00001070: EE 0C 42 45 51 20 48 41 4E 47 55 50 20 3B 20 53 |..BEQ HANGUP ; S| 00001080: 54 49 4C 4C 20 54 48 45 52 45 2C 20 54 52 59 20 |TILL THERE, TRY | 00001090: 4D B0 45 00 A0 18 F8 0C 4C 44 41 20 24 32 39 42 |M.E.....LDA $29B| 000010A0: 00 AD 18 02 0D 53 54 41 20 24 32 39 43 00 B5 18 |.....STA $29C...| 000010B0: 0C 0D 52 54 53 00 00 00 |..RTS... |
....... * DARKTERM '88.:.... * 1670 MODEM FILE SOURCE.B.... *.`....1,8,15," S0:D'88.1670": 1.Y....2,8,1,"0:D'88.1670 "......700...$..OPT O2.....;...8.CHKIN .$FFC6 ; KERNEL EQUATES.I.B.CHKOUT .$FFC 9...L.CHRIN .$FFCF...V.CHROUT .$FFD2... `..CHN .$FFCC...J..IN .$FFE4...T.;.5.~. PTR .138 ; TEMP.ARY PO.ERS.E...ST .140.F...PREFIX .930 ; DIALING PREFIX.. ...PREC .929 ; PREFIX CGTH.....;.....DET ECT .922 ; CARRIER DETECT FLAG.N...DDELA Y .927 ; DIALING DELAY...D.WDELAY .926 ; CARRIER . DELAY...N.HDELAY .925 ; ..HOO K DELAY...X.;.:.....$4500 ; STARTS HERE UP . $47FF.@...;.\...JMP ANSWER ; AU..AN SWER.V...JMP DODIAL ; AU..DIAL.....JMP . HOOK ; LABEL SAYS ALL.....JMP OFHOOK ; O FF HOOK.S...JMP CARCHK ; LOST CARRIER CH ECK...(.JMP CUS.M ; USER .INED ROUTINE.. .2.JMP HANGUP ; HANGUP ROUTINE...<.;.@.F .DODIAL STX PTR ; X.Y PO. . DIAL.C.P.STY PTR.1 ; STRING (18 DIGITS)...Z.JSR . ; S. 2 .CR. . BEGIN...D.LDA HDELAY ; . SOM E...N.JSR ....X.LDX #5.....JSR CHKOUT.H. ..LDY #0.....DODO1 CPY PREC ; CHECK CGTH ... .BEQ DODO2 ; BE.E S.ING IN CASE.1... LDA PREFIX,Y ; THERE IS NO PREFIX.@...JS R MODOUT.H...INY.V.H.BNE DODO1.G.R.DODO2 LDY #0.....DODO3 LDA (PTR),Y ; . STRING .....CMP #32 ; SKIP ALL BLANKS.....BEQ D ODO4.L.... #127 ; MASK . FII.....JSR MOD OUT.....DODO4 INY.....CPY #18 ; DO ALL 1 8 BYTES...".BNE DODO3./.,.LDA #13 ; S. T HE .CR..>.6.JSR MODOUT.K.@.JSR .CHN.J.J. LDA WDELAY ; . . . CARRIER.T.T.JSR ....^ .LDA 56577 ; HAVE .E...H.. #16...R.BEQ D ODO5 ; YES.I.|.SEC ; . AB.TED, SET C FLA G.....LDA #0 ; NO CARRIER, SET Z FLAG... ..RTS.....DODO5 SEC ; SET C FLAG.3...LDA #1 ; CARRIER, CLEAR Z FLAG.;...RTS.A... ;.K.B.. TAX.L.L.W0 JSR .TIM ; CLEAR TI C LOCK...V.W1 LDA 145 ; CHECK . KEY.....CM P #$7F.....BEQ W2 ; . PRESSED, AB.T..... LDA 162.V...CMP #60 ; .E SEC.D.....BCC W 1.....DEX ; X NUMBER OF TIMES.....BEQ W3 ...&.BNE W0...0.W2 PLA.&.:.PLA.K.D.CLC ; CLEAR C FLAG . USER AB.TED.V.N.W3 RTS.\ .X.;.|.B..HOOK LDA #70 ; . .E SEC......L .JSR J.FY...V.LDX #5.....JSR CHKOUT.B... LDA #"+" ; S. ... SEQUENCE.Q...JSR MODOU T.....JSR MODOUT.....JSR MODOUT.....JSR .CHN.....LDA #70 ; . .E M.E SEC....'.F.J MP J.FY.-.P.;.M.Z.OFHOOK JSR SMART ; OFF .HOOK.Z....F "ATD".H....BYT 13,0.P...RTS .V...;.....SMART LDA 56577 ; S. AT COMM. S...... #16... .BNE SM1.P.*.JSR .HOOK ; HANG UP UNTIL NO...4.JMP SMART ; CARRIER ...>.SM1 PLA ; . STRING ADDRESS FROM.#.H .STA ST ; . ADDRESS.+.R.PLA.8.\.STA ST.1 .C.F.LDX #5.R.P.JSR CHKOUT.M.Z.LDA #40 ; . ..5 SEC....Z...JSR J.FY.....SM2 INC S T.....BNE SM3.....INC ST.1.....SM3 LDY # 0.K...LDA (ST),Y ; S. COMM..W...BEQ SM4. ..J.JSR MODOUT...T.JMP SM2.....SM4 JSR . CHN.....LDA #40 ; . SOME M.E.)...JSR J.F Y.I...LDA ST.1 ; PUSH . . ADDRESS.Q...PH A.\...LDA ST.D...PHA.L.$.RTS.R...;...8.M ODOUT JSR CHROUT...B.MODO1 LDX 669 ; . . RS232 ..H.L.CPX 670 ; K IDLE BE.E S.ING ...V.BNE MODO1 ; AGAIN...`.RTS...J.;...T .. LDX #5...~.JSR CHKOUT.....LDA #13.#.. .JSR MODOUT.2...JSR MODOUT.?...JMP .CHN. E...;.G...CUS.M RTS ; N.E NEEDED . 1670. M.D.;...N.CARCHK BIT DETECT ; . DETECT I S...X.BPL CAR1 ; 0 . IGN.E CARRIER.....L DA $DD01.J.... #16.W...BEQ CAR1.....CLC ; DROPPED CARRIER.....RTS ; SO CLEAR C F LAG.....CAR1 SEC. ...RTS.&.(.;.6.2..TIM LDA #0.B.<.STA 160.N.F.STA 161.Z.P.STA 1 62.B.Z.RTS.H.D.;...N.J.FY TAX ; . SOME J .FIES...X.JSR .TIM.....J.1 CPX 162.....B CS J.1.....RTS... .;.....ANSWER JSR RESE T ; RESET MODEM.....ANS0 JSR SMART ; S. AT ACK......F "AT"...H..BYT 13,0.#.R.LDX #5.1...JSR CHKIN.=...JSR .IN.E...PHA.R. ..JSR .CHN.Z...PLA.E.... #127.....CMP #" 0" ; . . OKAY RESP.SE...".BNE ANS0...,.A NS1 LDX #5...6.JSR CHKIN.L.@.JSR .IN ; . . NUMERICAL...J.PHA ; RESP.SE...T.JSR . CHN...^.PLA...H.. #127 ; DISCARD BIT 7.& .R.CMP #"1" ; 300 BAUD.9.|.BEQ ANS2 ; YE S.R...CMP #"5" ; 1200 BAUD.E...BEQ ANS3 ; YES.....JSR .IN ; . KEY FROM KEYBOARD. ....CMP #0.....BEQ ANS1.....CLC...B.RTS. B.L.ANS2 LDX #.300.P.V.LDY #.300.....BNE ANS4.....ANS3 LDX #.1200.....LDY #.1200 .....ANS4 SEC.....RTS.....;.....RESET LD A $29B.;.&.STA $29C.I.0.JSR SMART.V.:..F "ATZ".D.D..BYT 13,0.P.N.LDA #75.}.X.JSR J.FY...B.LDA $29B...L.STA $29C...V.JSR SMART......F "AT V0 M0 X1".H....BYT 13,0 .T...LDA #75.....JMP J.FY.....;.....HANG UP JSR .HOOK ; S. ... SEQ..*...JSR SMART ; S. COMM. STRING.7.F..F "ATD".E.P..BYT 13,0.S.Z.LDA $DD01.M.... #16 ; CHECK CA RRIER.....BEQ HANGUP ; STILL THERE, TRY M.E. ...LDA $29B.....STA $29C.....RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL