M.1650.A1
FILE INFORMATION
FILENAME(S): M.1650.A1
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 16:57:46
APPEARS ON: 1 disk(s)
FILE HASH
7310885f8bebbe2c10f664e1f65f9d1b9d3b4d1a41f05e082371c91754d250bf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | M.1650.A1 | PRG | High Voltage Complete C64 Collection, Markus Merz | 4 | 9 | 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 35 30 20 4D 4F 44 45 4D 20 46 |. * 1650 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 39 2C 31 35 2C 22 | *.`....1,9,15,"| 00000050: 53 30 3A 44 27 38 38 2E 31 36 35 30 22 3A A0 31 |S0:D'88.1650":.1| 00000060: 00 79 08 10 04 9F 32 2C 39 2C 31 2C 22 30 3A 44 |.y....2,9,1,"0:D| 00000070: 27 38 38 2E 31 36 35 30 22 00 82 08 1A 04 9E 37 |'88.1650"......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 41 4C 20 |.$FFC6 ; KERNAL | 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 30 09 7E 04 50 54 52 20 20 20 20 B2 |t.;.0.~.PTR .| 00000120: 31 34 30 20 3B 20 54 45 4D 50 20 50 4F B5 45 52 |140 ; TEMP PO.ER| 00000130: 00 36 09 88 04 3B 00 5C 09 92 04 44 45 54 45 43 |.6...;.\...DETEC| 00000140: 54 20 B2 39 32 32 20 3B 20 43 41 52 52 49 45 52 |T .922 ; CARRIER| 00000150: 20 44 45 54 45 43 54 20 46 4C 41 47 00 7C 09 9C | DETECT FLAG.|..| 00000160: 04 44 44 45 4C 41 59 20 B2 39 32 37 20 3B 20 44 |.DDELAY .927 ; D| 00000170: 49 41 4C 49 4E 47 20 44 45 4C 41 59 00 9E 09 A6 |IALING DELAY....| 00000180: 04 57 44 45 4C 41 59 20 B2 39 32 36 20 3B 20 43 |.WDELAY .926 ; C| 00000190: 41 52 52 49 45 52 20 92 20 44 45 4C 41 59 00 BD |ARRIER . DELAY..| 000001A0: 09 B0 04 48 44 45 4C 41 59 20 B2 39 32 35 20 3B |...HDELAY .925 ;| 000001B0: 20 48 41 4E 47 55 50 20 44 45 4C 41 59 00 C3 09 | HANGUP DELAY...| 000001C0: BA 04 3B 00 E8 09 C4 04 4D 49 4C 4C 49 20 20 B2 |..;.....MILLI .| 000001D0: 24 38 38 30 AA 32 34 20 3B 20 55 53 45 20 54 45 |$880.24 ; USE TE| 000001E0: 52 4D 49 4E 41 4C 27 53 00 EE 09 CE 04 3B 00 13 |RMINAL'S.....;..| 000001F0: 0A D8 04 AC B2 24 34 35 30 30 20 3B 20 53 54 41 |.....$4500 ; STA| 00000200: 52 54 53 20 48 45 52 45 20 55 50 20 A4 20 24 34 |RTS HERE UP . $4| 00000210: 37 46 46 00 19 0A E2 04 3B 00 35 0A EC 04 4A 4D |7FF.....;.5...JM| 00000220: 50 20 41 4E 53 57 45 52 20 3B 20 41 55 A4 AB 41 |P ANSWER ; AU..A| 00000230: 4E 53 57 45 52 00 4F 0A F6 04 4A 4D 50 20 44 4F |NSWER.O...JMP DO| 00000240: 44 49 41 4C 20 3B 20 41 55 A4 AB 44 49 41 4C 00 |DIAL ; AU..DIAL.| 00000250: 6E 0A 00 05 4A 4D 50 20 91 48 4F 4F 4B 20 3B 20 |n...JMP .HOOK ; | 00000260: 4C 41 42 45 4C 20 53 41 59 53 20 41 4C 4C 00 88 |LABEL SAYS ALL..| 00000270: 0A 0A 05 4A 4D 50 20 4F 46 48 4F 4F 4B 20 3B 20 |...JMP OFHOOK ; | 00000280: 4F 46 46 20 48 4F 4F 4B 00 AC 0A 14 05 4A 4D 50 |OFF HOOK.....JMP| 00000290: 20 43 41 52 43 48 4B 20 3B 20 4C 4F 53 54 20 43 | CARCHK ; LOST C| 000002A0: 41 52 52 49 45 52 20 43 48 45 43 4B 00 CF 0A 1E |ARRIER CHECK....| 000002B0: 05 4A 4D 50 20 43 55 53 A4 4D 20 3B 20 55 53 45 |.JMP CUS.M ; USE| 000002C0: 52 20 96 49 4E 45 44 20 52 4F 55 54 49 4E 45 00 |R .INED ROUTINE.| 000002D0: EF 0A 28 05 4A 4D 50 20 48 41 4E 47 55 50 20 3B |..(.JMP HANGUP ;| 000002E0: 20 48 41 4E 47 55 50 20 52 4F 55 54 49 4E 45 00 | HANGUP ROUTINE.| 000002F0: F5 0A 32 05 3B 00 0F 0B 3C 05 91 48 4F 4F 4B 20 |..2.;...<..HOOK | 00000300: 4C 44 41 20 23 30 20 3B 20 91 AB 48 4F 4F 4B 00 |LDA #0 ; ..HOOK.| 00000310: 1D 0B 46 05 53 54 41 20 24 44 44 30 31 00 2A 0B |..F.STA $DD01.*.| 00000320: 50 05 4C 44 41 20 23 24 32 30 00 4A 0B 5A 05 53 |P.LDA #$20.J.Z.S| 00000330: 54 41 20 24 44 44 30 33 20 3B 20 50 49 4E 20 4A |TA $DD03 ; PIN J| 00000340: 20 41 53 20 4F 55 54 50 55 54 00 52 0B 64 05 52 | AS OUTPUT.R.d.R| 00000350: 54 53 00 58 0B 6E 05 3B 00 77 0B 78 05 4F 46 48 |TS.X.n.;.w.x.OFH| 00000360: 4F 4F 4B 20 4C 44 41 20 23 24 32 30 20 3B 20 4F |OOK LDA #$20 ; O| 00000370: 46 46 AB 48 4F 4F 4B 00 90 0B 82 05 53 54 41 20 |FF.HOOK.....STA | 00000380: 24 44 44 30 31 20 3B 20 50 49 4E 20 4A 20 48 49 |$DD01 ; PIN J HI| 00000390: 00 98 0B 8C 05 52 54 53 00 9E 0B 96 05 3B 00 BD |.....RTS.....;..| 000003A0: 0B A0 05 44 4F 44 49 41 4C 20 53 54 58 20 50 54 |...DODIAL STX PT| 000003B0: 52 20 3B 20 94 20 41 44 44 52 45 53 53 00 E0 0B |R ; . ADDRESS...| 000003C0: AA 05 53 54 59 20 50 54 52 AA 31 20 3B 20 4F 46 |..STY PTR.1 ; OF| 000003D0: 20 44 49 41 4C 20 50 54 52 20 53 54 52 49 4E 47 | DIAL PTR STRING| 000003E0: 00 F8 0B B4 05 4A 53 52 20 91 48 4F 4F 4B 20 3B |.....JSR .HOOK ;| 000003F0: 20 48 41 4E 47 20 55 50 00 19 0C BE 05 4C 44 41 | HANG UP.....LDA| 00000400: 20 48 44 45 4C 41 59 20 3B 20 92 20 48 44 45 4C | HDELAY ; . HDEL| 00000410: 41 59 20 53 45 43 91 44 53 00 23 0C C8 05 4A 53 |AY SEC.DS.#...JS| 00000420: 52 20 92 00 3D 0C D2 05 4A 53 52 20 4F 46 48 4F |R ..=...JSR OFHO| 00000430: 4F 4B 20 3B 20 4F 46 46 AB 48 4F 4F 4B 00 55 0C |OK ; OFF.HOOK.U.| 00000440: DC 05 4C 44 41 20 23 32 20 3B 20 92 20 32 20 53 |..LDA #2 ; . 2 S| 00000450: 45 43 91 44 53 00 5F 0C E6 05 4A 53 52 20 92 00 |EC.DS._...JSR ..| 00000460: 7A 0C F0 05 4C 44 59 20 23 30 20 3B 20 49 4E 44 |z...LDY #0 ; IND| 00000470: 45 58 20 A4 20 53 54 41 52 54 00 86 0C FA 05 53 |EX . START.....S| 00000480: 54 59 20 50 4F B5 00 A1 0C 04 06 41 55 A4 31 20 |TY PO......AU.1 | 00000490: 4C 44 59 20 50 4F B5 20 3B 20 A1 20 49 4E 44 45 |LDY PO. ; . INDE| 000004A0: 58 00 BF 0C 0E 06 4C 44 41 20 28 50 54 52 29 2C |X.....LDA (PTR),| 000004B0: 59 20 3B 20 AF 20 43 48 41 52 41 43 54 45 52 00 |Y ; . CHARACTER.| 000004C0: DD 0C 18 06 43 4D 50 20 23 22 30 22 20 3B 20 43 |....CMP #"0" ; C| 000004D0: 48 45 43 4B 20 81 20 4E 55 4D 42 45 52 00 EC 0C |HECK . NUMBER...| 000004E0: 22 06 42 43 43 20 82 20 3B 20 4E 4F 00 F9 0C 2C |".BCC . ; NO...,| 000004F0: 06 43 4D 50 20 23 22 3A 22 00 08 0D 36 06 42 43 |.CMP #":"...6.BC| 00000500: 53 20 82 20 3B 20 4E 4F 00 28 0D 40 06 53 45 43 |S . ; NO.(.@.SEC| 00000510: 20 20 20 20 20 20 3B 20 4C 45 53 53 20 34 38 20 | ; LESS 48 | 00000520: A4 20 A1 20 23 20 4F 46 00 3E 0D 4A 06 53 42 43 |. . # OF.>.J.SBC| 00000530: 20 23 34 38 20 20 3B 20 50 55 4C 53 45 53 00 4B | #48 ; PULSES.K| 00000540: 0D 54 06 42 4E 45 20 41 55 A4 32 00 6F 0D 5E 06 |.T.BNE AU.2.o.^.| 00000550: 4C 44 41 20 23 31 30 20 20 3B 20 30 2C 20 53 4F |LDA #10 ; 0, SO| 00000560: 20 4D 41 4B 45 20 31 30 20 50 55 4C 53 45 53 00 | MAKE 10 PULSES.| 00000570: 89 0D 68 06 41 55 A4 32 20 53 54 41 20 50 55 4C |..h.AU.2 STA PUL| 00000580: 53 45 20 3B 20 94 20 49 54 00 A2 0D 72 06 4C 44 |SE ; . IT...r.LD| 00000590: 41 20 23 30 20 3B 20 50 55 4C 53 45 20 43 4F 55 |A #0 ; PULSE COU| 000005A0: 4E 54 00 B0 0D 7C 06 53 54 41 20 43 4F 55 4E 54 |NT...|.STA COUNT| 000005B0: 00 D2 0D 86 06 41 55 A4 33 20 4A 53 52 20 CB 4F |.....AU.3 JSR .O| 000005C0: 46 20 3B 20 50 55 4C 53 45 20 4F 46 46 20 4C 49 |F ; PULSE OFF LI| 000005D0: 4E 45 00 EB 0D 90 06 4C 44 58 20 44 44 45 4C 41 |NE.....LDX DDELA| 000005E0: 59 20 3B 20 92 20 44 45 4C 41 59 00 FC 0D 9A 06 |Y ; . DELAY.....| 000005F0: 4C 44 59 20 44 44 45 4C 41 59 AA 31 00 15 0E A4 |LDY DDELAY.1....| 00000600: 06 4A 53 52 20 4D 49 4C 4C 49 20 3B 20 92 20 49 |.JSR MILLI ; . I| 00000610: 54 20 4F 55 54 00 33 0E AE 06 4A 53 52 20 4F 46 |T OUT.3...JSR OF| 00000620: 48 4F 4F 4B 20 3B 20 50 55 4C 53 45 20 91 20 4C |HOOK ; PULSE . L| 00000630: 49 4E 45 00 4C 0E B8 06 4C 44 58 20 44 44 45 4C |INE.L...LDX DDEL| 00000640: 41 59 20 3B 20 92 20 41 47 41 49 4E 00 5D 0E C2 |AY ; . AGAIN.]..| 00000650: 06 4C 44 59 20 44 44 45 4C 41 59 AA 31 00 6B 0E |.LDY DDELAY.1.k.| 00000660: CC 06 4A 53 52 20 4D 49 4C 4C 49 00 83 0E D6 06 |..JSR MILLI.....| 00000670: 49 4E 43 20 43 4F 55 4E 54 20 3B 20 82 20 50 55 |INC COUNT ; . PU| 00000680: 4C 53 45 00 91 0E E0 06 4C 44 41 20 43 4F 55 4E |LSE.....LDA COUN| 00000690: 54 00 A9 0E EA 06 43 4D 50 20 50 55 4C 53 45 20 |T.....CMP PULSE | 000006A0: 3B 20 44 91 45 20 59 45 54 00 BB 0E F4 06 42 4E |; D.E YET.....BN| 000006B0: 45 20 41 55 A4 33 20 3B 20 4E 4F 00 D9 0E FE 06 |E AU.3 ; NO.....| 000006C0: 4C 44 41 20 23 34 30 20 3B 20 92 20 32 AD 33 20 |LDA #40 ; . 2.3 | 000006D0: 53 45 43 20 81 20 82 20 23 00 E6 0E 08 07 4A 53 |SEC . . #.....JS| 000006E0: 52 20 4A 8B 46 59 00 03 0F 12 07 4A 53 52 20 41 |R J.FY.....JSR A| 000006F0: 42 B0 54 20 3B 20 43 48 45 43 4B 20 81 20 90 20 |B.T ; CHECK . . | 00000700: 4B 45 59 00 17 0F 1C 07 82 20 49 4E 43 20 50 4F |KEY...... INC PO| 00000710: B5 20 3B 20 82 20 23 00 23 0F 26 07 4C 44 41 20 |. ; . #.#.&.LDA | 00000720: 50 4F B5 00 42 0F 30 07 43 4D 50 20 23 31 38 20 |PO..B.0.CMP #18 | 00000730: 3B 20 44 91 45 20 41 4C 4C 20 31 38 20 43 48 41 |; D.E ALL 18 CHA| 00000740: 52 53 00 5C 0F 3A 07 42 4E 45 20 41 55 A4 31 20 |RS.\.:.BNE AU.1 | 00000750: 3B 20 4E 4F 2C 20 CB 20 42 41 43 4B 00 7D 0F 44 |; NO, . BACK.}.D| 00000760: 07 4C 44 41 20 57 44 45 4C 41 59 20 3B 20 92 20 |.LDA WDELAY ; . | 00000770: 4F 55 54 20 54 48 45 20 44 45 4C 41 59 00 87 0F |OUT THE DELAY...| 00000780: 4E 07 4A 53 52 20 92 00 A6 0F 58 07 4C 44 41 20 |N.JSR ....X.LDA | 00000790: 24 44 44 30 31 20 3B 20 48 41 56 45 20 41 20 43 |$DD01 ; HAVE A C| 000007A0: 41 52 52 49 45 52 00 B0 0F 62 07 AF 20 23 31 36 |ARRIER...b.. #16| 000007B0: 00 CE 0F 6C 07 42 45 51 20 41 55 A4 34 20 3B 20 |...l.BEQ AU.4 ; | 000007C0: 59 45 53 2C 20 53 49 47 4E 41 4C 20 49 54 00 EF |YES, SIGNAL IT..| 000007D0: 0F 76 07 53 45 43 20 3B 20 4E 4F 2C 20 53 45 54 |.v.SEC ; NO, SET| 000007E0: 20 5A 45 52 4F 20 46 4C 41 47 20 54 52 55 45 00 | ZERO FLAG TRUE.| 000007F0: 11 10 80 07 4C 44 41 20 23 30 20 3B 20 AF 20 53 |....LDA #0 ; . S| 00000800: 45 54 20 43 41 52 52 59 20 28 A8 20 41 42 B0 54 |ET CARRY (. AB.T| 00000810: 29 00 19 10 8A 07 52 54 53 00 3A 10 94 07 41 55 |).....RTS.:...AU| 00000820: A4 34 20 53 45 43 20 3B 20 48 41 56 45 20 43 41 |.4 SEC ; HAVE CA| 00000830: 52 52 49 45 52 2C 20 53 45 54 00 52 10 9E 07 4C |RRIER, SET.R...L| 00000840: 44 41 20 23 31 20 3B 20 5A 45 52 4F 20 46 41 4C |DA #1 ; ZERO FAL| 00000850: 53 45 00 61 10 A8 07 52 54 53 20 3B 20 45 58 49 |SE.a...RTS ; EXI| 00000860: 54 00 67 10 B2 07 3B 00 86 10 BC 07 41 42 B0 54 |T.g...;.....AB.T| 00000870: 20 4C 44 41 20 24 39 31 20 3B 20 43 48 45 43 4B | LDA $91 ; CHECK| 00000880: 20 90 20 4B 45 59 00 93 10 C6 07 43 4D 50 20 23 | . KEY.....CMP #| 00000890: 24 37 46 00 AD 10 D0 07 42 4E 45 20 41 42 4F 31 |$7F.....BNE ABO1| 000008A0: 20 3B 20 4E 4F 2C 20 CB 20 42 41 43 4B 00 CB 10 | ; NO, . BACK...| 000008B0: DA 07 41 42 4F 30 20 50 4C 41 20 3B 20 50 55 4C |..ABO0 PLA ; PUL| 000008C0: 4C 20 8E 20 41 44 44 52 45 53 53 00 D3 10 E4 07 |L . ADDRESS.....| 000008D0: 50 4C 41 00 ED 10 EE 07 43 4C 43 20 3B 20 43 4C |PLA.....CLC ; CL| 000008E0: 45 41 52 20 54 48 45 20 43 41 52 52 59 00 0E 11 |EAR THE CARRY...| 000008F0: F8 07 41 42 4F 31 20 52 54 53 20 3B 20 AF 20 45 |..ABO1 RTS ; . E| 00000900: 58 49 54 20 A4 20 54 45 52 4D 49 4E 41 4C 00 14 |XIT . TERMINAL..| 00000910: 11 02 08 3B 00 30 11 0C 08 92 20 54 41 58 20 3B |...;.0.... TAX ;| 00000920: 20 31 20 53 45 43 91 44 20 43 4F 55 4E 54 45 52 | 1 SEC.D COUNTER| 00000930: 00 40 11 16 08 57 30 20 4A 53 52 20 9C 54 49 4D |.@...W0 JSR .TIM| 00000940: 00 5E 11 20 08 57 31 20 4C 44 41 20 24 39 31 20 |.^. .W1 LDA $91 | 00000950: 3B 20 43 48 45 43 4B 20 81 20 41 42 B0 54 00 7A |; CHECK . AB.T.z| 00000960: 11 2A 08 43 4D 50 20 23 24 37 46 20 3B 20 44 55 |.*.CMP #$7F ; DU| 00000970: 52 49 4E 47 20 54 48 45 20 92 00 87 11 34 08 42 |RING THE ....4.B| 00000980: 45 51 20 41 42 4F 30 00 93 11 3E 08 4C 44 41 20 |EQ ABO0...>.LDA | 00000990: 24 41 32 00 9F 11 48 08 43 4D 50 20 23 36 30 00 |$A2...H.CMP #60.| 000009A0: AA 11 52 08 42 43 43 20 57 31 00 B2 11 5C 08 44 |..R.BCC W1...\.D| 000009B0: 45 58 00 BD 11 66 08 42 4D 49 20 57 32 00 C8 11 |EX...f.BMI W2...| 000009C0: 70 08 42 4E 45 20 57 30 00 D3 11 7A 08 57 32 20 |p.BNE W0...z.W2 | 000009D0: 52 54 53 00 D9 11 84 08 3B 00 E9 11 8E 08 50 4F |RTS.....;.....PO| 000009E0: B5 20 20 2E 42 59 54 20 30 00 FB 11 98 08 43 4F |. .BYT 0.....CO| 000009F0: 55 4E 54 20 20 2E 42 59 54 20 30 00 0D 12 A2 08 |UNT .BYT 0.....| 00000A00: 50 55 4C 53 45 20 20 2E 42 59 54 20 30 00 1D 12 |PULSE .BYT 0...| 00000A10: AC 08 4B 45 59 C5 20 2E 42 59 54 20 30 00 23 12 |..KEY. .BYT 0.#.| 00000A20: B6 08 3B 00 41 12 C0 08 41 4E 53 57 45 52 20 4A |..;.A...ANSWER J| 00000A30: 53 52 20 91 48 4F 4F 4B 20 3B 20 91 AB 48 4F 4F |SR .HOOK ; ..HOO| 00000A40: 4B 00 62 12 CA 08 41 4E 31 20 4C 44 41 20 24 44 |K.b...AN1 LDA $D| 00000A50: 44 30 31 20 3B 20 43 48 45 43 4B 20 81 20 52 49 |D01 ; CHECK . RI| 00000A60: 4E 47 00 74 12 D4 08 AF 20 23 38 20 3B 20 44 45 |NG.t.... #8 ; DE| 00000A70: 54 45 43 54 00 94 12 DE 08 42 45 51 20 41 4E 32 |TECT.....BEQ AN2| 00000A80: 20 3B 20 57 45 20 48 41 56 45 20 52 2E 44 2E 2C | ; WE HAVE R.D.,| 00000A90: 20 CB 20 91 00 B4 12 E8 08 4A 53 52 20 A1 4B 45 | . ......JSR .KE| 00000AA0: 59 20 3B 20 43 48 45 43 4B 20 81 20 4B 45 59 50 |Y ; CHECK . KEYP| 00000AB0: 52 45 53 53 00 C0 12 F2 08 42 45 51 20 41 4E 31 |RESS.....BEQ AN1| 00000AC0: 00 DE 12 FC 08 41 4E 30 20 4A 53 52 20 4F 46 48 |.....AN0 JSR OFH| 00000AD0: 4F 4F 4B 20 3B 20 4F 46 46 AB 48 4F 4F 4B 00 FB |OOK ; OFF.HOOK..| 00000AE0: 12 06 09 4C 44 41 20 4B 45 59 C5 20 3B 20 A1 20 |...LDA KEY. ; . | 00000AF0: 4B 45 59 20 50 52 45 53 53 45 44 00 0C 13 10 09 |KEY PRESSED.....| 00000B00: 43 4C 43 20 3B 20 AF 20 41 42 B0 54 00 14 13 1A |CLC ; . AB.T....| 00000B10: 09 52 54 53 00 25 13 24 09 41 4E 32 20 4A 53 52 |.RTS.%.$.AN2 JSR| 00000B20: 20 9C 54 49 4D 00 3F 13 2E 09 4A 53 52 20 4F 46 | .TIM.?...JSR OF| 00000B30: 48 4F 4F 4B 20 3B 20 4F 46 46 AB 48 4F 4F 4B 00 |HOOK ; OFF.HOOK.| 00000B40: 50 13 38 09 41 4E 33 20 4A 53 52 20 A1 4B 45 59 |P.8.AN3 JSR .KEY| 00000B50: 00 5C 13 42 09 42 4E 45 20 41 4E 30 00 7D 13 4C |.\.B.BNE AN0.}.L| 00000B60: 09 4C 44 41 20 24 44 44 30 31 20 3B 20 43 48 45 |.LDA $DD01 ; CHE| 00000B70: 43 4B 20 81 20 44 43 44 20 4C 49 4E 45 00 87 13 |CK . DCD LINE...| 00000B80: 56 09 AF 20 23 31 36 00 A8 13 60 09 42 45 51 20 |V.. #16...`.BEQ | 00000B90: 41 4E 34 20 3B 20 CB 54 20 43 41 52 52 49 45 52 |AN4 ; .T CARRIER| 00000BA0: 2C 20 53 49 47 4E 41 4C 00 B4 13 6A 09 4C 44 41 |, SIGNAL...j.LDA| 00000BB0: 20 31 36 30 00 D8 13 74 09 43 4D 50 20 23 38 20 | 160...t.CMP #8 | 00000BC0: 3B 20 33 30 20 53 45 43 91 44 20 43 41 52 52 49 |; 30 SEC.D CARRI| 00000BD0: 45 52 20 43 48 45 43 4B 00 E4 13 7E 09 42 43 43 |ER CHECK...~.BCC| 00000BE0: 20 41 4E 33 00 05 14 88 09 42 43 53 20 41 4E 53 | AN3.....BCS ANS| 00000BF0: 57 45 52 20 3B 20 54 49 4D 45 53 20 55 50 2C 20 |WER ; TIMES UP, | 00000C00: 52 45 53 45 54 00 29 14 92 09 41 4E 34 20 53 45 |RESET.)...AN4 SE| 00000C10: 43 20 3B 20 53 45 54 20 43 41 52 52 59 20 81 20 |C ; SET CARRY . | 00000C20: 4F 4B 20 53 54 41 54 55 53 00 4D 14 9C 09 4C 44 |OK STATUS.M...LD| 00000C30: 58 20 23 B3 33 30 30 20 3B 20 53 45 54 20 42 41 |X #.300 ; SET BA| 00000C40: 55 44 20 52 41 54 45 20 A4 20 33 30 30 00 5B 14 |UD RATE . 300.[.| 00000C50: A6 09 4C 44 59 20 23 B1 33 30 30 00 63 14 B0 09 |..LDY #.300.c...| 00000C60: 52 54 53 00 69 14 BA 09 3B 00 87 14 C4 09 CB 4F |RTS.i...;......O| 00000C70: 46 20 4C 44 41 20 23 30 20 3B 20 50 55 4C 53 45 |F LDA #0 ; PULSE| 00000C80: 20 91 AB 48 4F 4F 4B 00 95 14 CE 09 53 54 41 20 | ..HOOK.....STA | 00000C90: 24 44 44 30 31 00 9D 14 D8 09 52 54 53 00 A3 14 |$DD01.....RTS...| 00000CA0: E2 09 3B 00 B3 14 EC 09 9C 54 49 4D 20 4C 44 41 |..;......TIM LDA| 00000CB0: 20 23 30 00 BF 14 F6 09 53 54 41 20 24 41 30 00 | #0.....STA $A0.| 00000CC0: CB 14 00 0A 53 54 41 20 24 41 31 00 D7 14 0A 0A |....STA $A1.....| 00000CD0: 53 54 41 20 24 41 32 00 DF 14 14 0A 52 54 53 00 |STA $A2.....RTS.| 00000CE0: E5 14 1E 0A 3B 00 F2 14 28 0A 4A 8B 46 59 20 54 |....;...(.J.FY T| 00000CF0: 41 58 00 FF 14 32 0A 4A 53 52 20 9C 54 49 4D 00 |AX...2.JSR .TIM.| 00000D00: 10 15 3C 0A 4A 8B 46 31 20 43 50 58 20 24 41 32 |..<.J.F1 CPX $A2| 00000D10: 00 1D 15 46 0A 42 43 53 20 4A 8B 46 31 00 25 15 |...F.BCS J.F1.%.| 00000D20: 50 0A 52 54 53 00 2B 15 5A 0A 3B 00 3C 15 64 0A |P.RTS.+.Z.;.<.d.| 00000D30: A1 4B 45 59 20 4A 53 52 20 A1 49 4E 00 44 15 6E |.KEY JSR .IN.D.n| 00000D40: 0A 50 48 41 00 51 15 78 0A 53 54 41 20 4B 45 59 |.PHA.Q.x.STA KEY| 00000D50: C5 00 59 15 82 0A 50 4C 41 00 61 15 8C 0A 52 54 |..Y...PLA.a...RT| 00000D60: 53 00 67 15 96 0A 3B 00 87 15 A0 0A 48 41 4E 47 |S.g...;.....HANG| 00000D70: 55 50 20 4A 53 52 20 91 48 4F 4F 4B 20 3B 20 CB |UP JSR .HOOK ; .| 00000D80: 20 91 AB 48 4F 4F 4B 00 A1 15 AA 0A 4C 44 41 20 | ..HOOK.....LDA | 00000D90: 23 31 32 30 20 3B 20 92 20 32 20 53 45 43 91 44 |#120 ; . 2 SEC.D| 00000DA0: 53 00 AE 15 B4 0A 4A 53 52 20 4A 8B 46 59 00 BC |S.....JSR J.FY..| 00000DB0: 15 BE 0A 4C 44 41 20 24 44 44 30 31 00 C6 15 C8 |...LDA $DD01....| 00000DC0: 0A AF 20 23 31 36 00 E8 15 D2 0A 42 45 51 20 48 |.. #16.....BEQ H| 00000DD0: 41 4E 47 55 50 20 3B 20 44 4F 20 55 4E 54 49 4C |ANGUP ; DO UNTIL| 00000DE0: 20 48 55 4E 47 20 55 50 00 09 16 DC 0A 4A 53 52 | HUNG UP.....JSR| 00000DF0: 20 4F 46 48 4F 4F 4B 20 3B 20 53 45 54 20 55 50 | OFHOOK ; SET UP| 00000E00: 20 81 20 82 20 43 41 4C 4C 00 23 16 E6 0A 4C 44 | . . CALL.#...LD| 00000E10: 41 20 23 31 32 30 20 3B 20 92 20 32 20 53 45 43 |A #120 ; . 2 SEC| 00000E20: 91 44 53 00 30 16 F0 0A 4A 4D 50 20 4A 8B 46 59 |.DS.0...JMP J.FY| 00000E30: 00 36 16 FA 0A 3B 00 4C 16 04 0B 43 41 52 43 48 |.6...;.L...CARCH| 00000E40: 4B 20 42 49 54 20 44 45 54 45 43 54 00 69 16 0E |K BIT DETECT.i..| 00000E50: 0B 42 50 4C 20 43 41 52 31 20 3B 20 53 4B 49 50 |.BPL CAR1 ; SKIP| 00000E60: 20 44 45 54 45 43 54 49 91 00 77 16 18 0B 4C 44 | DETECTI..w...LD| 00000E70: 41 20 24 44 44 30 31 00 81 16 22 0B AF 20 23 31 |A $DD01...".. #1| 00000E80: 36 00 A3 16 2C 0B 42 45 51 20 43 41 52 31 20 3B |6...,.BEQ CAR1 ;| 00000E90: 20 53 54 49 4C 4C 20 48 41 56 45 20 43 41 52 52 | STILL HAVE CARR| 00000EA0: 49 45 52 00 AB 16 36 0B 43 4C 43 00 C2 16 40 0B |IER...6.CLC...@.| 00000EB0: 52 54 53 20 3B 20 43 41 52 52 49 45 52 20 4C 4F |RTS ; CARRIER LO| 00000EC0: 53 54 00 CF 16 4A 0B 43 41 52 31 20 53 45 43 00 |ST...J.CAR1 SEC.| 00000ED0: D7 16 54 0B 52 54 53 00 DD 16 5E 0B 3B 00 FF 16 |..T.RTS...^.;...| 00000EE0: 68 0B 43 55 53 A4 4D 20 52 54 53 20 3B 20 4E 91 |h.CUS.M RTS ; N.| 00000EF0: 45 20 81 20 31 36 35 30 20 4D 4F 44 45 4D 53 00 |E . 1650 MODEMS.| 00000F00: 05 17 72 0B 3B 00 00 00 |..r.;... |
....... * DARKTERM '88.:.... * 1650 MODEM FILE SOURCE.B.... *.`....1,9,15," S0:D'88.1650": 1.Y....2,9,1,"0:D'88.1650 "......700...$..OPT O2.....;...8.CHKIN .$FFC6 ; KERNAL EQUATES.I.B.CHKOUT .$FFC 9...L.CHRIN .$FFCF...V.CHROUT .$FFD2... `..CHN .$FFCC...J..IN .$FFE4...T.;.0.~. PTR .140 ; TEMP PO.ER.6...;.\...DETEC T .922 ; CARRIER DETECT FLAG.|...DDELAY .927 ; DIALING DELAY.....WDELAY .926 ; C ARRIER . DELAY.....HDELAY .925 ; HANGUP DELAY.C...;...D.MILLI .$880.24 ; USE TE RMINAL'S...N.;...X...$4500 ; STARTS HERE UP . $47FF.....;.5...JMP ANSWER ; AU..A NSWER.O...JMP DODIAL ; AU..DIAL.N...JMP .HOOK ; LABEL SAYS ALL.....JMP OFHOOK ; OFF HOOK.....JMP CARCHK ; LOST CARRIER C HECK.O...JMP CUS.M ; USER .INED ROUTINE. ..(.JMP HANGUP ; HANGUP ROUTINE...2.;... <..HOOK LDA #0 ; ..HOOK...F.STA $DD01.*. P.LDA #$20.J.Z.STA $DD03 ; PIN J AS OUTP UT.R.D.RTS.X.N.;.W.X.OFHOOK LDA #$20 ; O FF.HOOK.....STA $DD01 ; PIN J HI.....RTS .....;... .DODIAL STX PTR ; . ADDRESS... ..STY PTR.1 ; OF DIAL PTR STRING.....JSR .HOOK ; HANG UP.....LDA HDELAY ; . HDEL AY SEC.DS.#.H.JSR ..=.R.JSR OFHOOK ; OFF .HOOK.U...LDA #2 ; . 2 SEC.DS._...JSR .. Z...LDY #0 ; INDEX . START.....STY PO... ...AU.1 LDY PO. ; . INDEX.....LDA (PTR), Y ; . CHARACTER.....CMP #"0" ; CHECK . N UMBER...".BCC . ; NO...,.CMP #":"...6.BC S . ; NO.(.@.SEC ; LESS 48 . . # OF .>.J.SBC #48 ; PULSES.K.T.BNE AU.2.O.^. LDA #10 ; 0, SO MAKE 10 PULSES...H.AU.2 STA PULSE ; . IT...R.LDA #0 ; PULSE COU NT...|.STA COUNT.R...AU.3 JSR KOF ; PULS E OFF LINE.....LDX DDELAY ; . DELAY..... LDY DDELAY.1.....JSR MILLI ; . IT OUT.3. ..JSR OFHOOK ; PULSE . LINE.L...LDX DDEL AY ; . AGAIN.].B.LDY DDELAY.1.K.L.JSR MI LLI...V.INC COUNT ; . PULSE.....LDA COUN T.....CMP PULSE ; D.E YET.....BNE AU.3 ; NO.Y...LDA #40 ; . 2.3 SEC . . #.....JS R J.FY.....JSR AB.T ; CHECK . . KEY..... . INC PO. ; . #.#.&.LDA PO..B.0.CMP #18 ; D.E ALL 18 CHARS.\.:.BNE AU.1 ; NO, K BACK.}.D.LDA WDELAY ; . OUT THE DELAY... N.JSR ....X.LDA $DD01 ; HAVE A CARRIER.. .B.. #16.N.L.BEQ AU.4 ; YES, SIGNAL IT.. .V.SEC ; NO, SET ZERO FLAG TRUE.....LDA #0 ; . SET CARRY (. AB.T).....RTS.:...AU .4 SEC ; HAVE CARRIER, SET.R...LDA #1 ; ZERO FALSE.A...RTS ; EXIT.G...;.....AB.T LDA $91 ; CHECK . KEY...F.CMP #$7F...P. BNE ABO1 ; NO, K BACK.K.Z.ABO0 PLA ; PUL L . ADDRESS.S...PLA.....CLC ; CLEAR THE CARRY.....ABO1 RTS ; . EXIT . TERMINAL.. ...;.0.... TAX ; 1 SEC.D COUNTER.@...W0 JSR .TIM.^. .W1 LDA $91 ; CHECK . AB.T.Z .*.CMP #$7F ; DURING THE ....4.BEQ ABO0. ..>.LDA $A2...H.CMP #60...R.BCC W1...\.D EX...F.BMI W2.H.P.BNE W0.S.Z.W2 RTS.Y... ;.....PO. .BYT 0.....COUNT .BYT 0..... PULSE .BYT 0.....KEYE .BYT 0.#...;.A... ANSWER JSR .HOOK ; ..HOOK.B.J.AN1 LDA $D D01 ; CHECK . RING.T.T.. #8 ; DETECT.... .BEQ AN2 ; WE HAVE R.D., K ......JSR .KE Y ; CHECK . KEYPRESS.....BEQ AN1.....AN0 JSR OFHOOK ; OFF.HOOK.....LDA KEYE ; . KEY PRESSED.....CLC ; . AB.T.....RTS.%.$ .AN2 JSR .TIM.?...JSR OFHOOK ; OFF.HOOK. P.8.AN3 JSR .KEY.\.B.BNE AN0.}.L.LDA $DD 01 ; CHECK . DCD LINE...V.. #16...`.BEQ AN4 ; KT CARRIER, SIGNAL...J.LDA 160.X.T .CMP #8 ; 30 SEC.D CARRIER CHECK...~.BCC AN3.....BCS ANSWER ; TIMES UP, RESET.). ..AN4 SEC ; SET CARRY . OK STATUS.M...LD X #.300 ; SET BAUD RATE . 300.[...LDY #. 300.C...RTS.I...;...D.KOF LDA #0 ; PULSE ..HOOK...N.STA $DD01...X.RTS.....;..... .TIM LDA #0.....STA $A0.K...STA $A1.W... STA $A2.....RTS.....;...(.J.FY TAX...2.J SR .TIM...<.J.F1 CPX $A2...F.BCS J.F1.%. P.RTS.+.Z.;.<.D..KEY JSR .IN.D.N.PHA.Q.X .STA KEYE.Y...PLA.A...RTS.G...;... .HANG UP JSR .HOOK ; K ..HOOK.....LDA #120 ; . 2 SEC.DS.....JSR J.FY.....LDA $DD01.F.H .. #16...R.BEQ HANGUP ; DO UNTIL HUNG UP .....JSR OFHOOK ; SET UP . . CALL.#...LD A #120 ; . 2 SEC.DS.0...JMP J.FY.6...;.L ...CARCHK BIT DETECT.I...BPL CAR1 ; SKIP DETECTI..W...LDA $DD01...".. #16...,.BE Q CAR1 ; STILL HAVE CARRIER...6.CLC.B.@. RTS ; CARRIER LOST.O.J.CAR1 SEC.W.T.RTS. ..^.;...H.CUS.M RTS ; N.E . 1650 MODEMS. ..R.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL