M.P1200.A1
FILE INFORMATION
FILENAME(S): M.P1200.A1
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 16:57:46
APPEARS ON: 1 disk(s)
FILE HASH
8bdddf36e3a8b4d607b1be83efe5dde382ee1ece8d9a9b024e1f175af6226abc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | M.P1200.A1 | PRG | High Voltage Complete C64 Collection, Markus Merz | 32 | 1 | 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 3E 08 F2 03 |ARKTERM '88.>...|
00000020: 8F 20 2A 20 50 4F 43 4B 45 54 20 31 32 30 30 20 |. * POCKET 1200 |
00000030: 4D 4F 44 45 4D 20 46 49 4C 45 20 53 52 43 00 46 |MODEM FILE SRC.F|
00000040: 08 FC 03 8F 20 2A 00 65 08 06 04 9F 31 2C 39 2C |.... *.e....1,9,|
00000050: 31 35 2C 22 53 30 3A 44 27 38 38 2E 50 31 32 30 |15,"S0:D'88.P120|
00000060: 30 22 3A A0 31 00 7F 08 10 04 9F 32 2C 39 2C 31 |0":.1......2,9,1|
00000070: 2C 22 30 3A 44 27 38 38 2E 50 31 32 30 30 22 00 |,"0:D'88.P1200".|
00000080: 88 08 1A 04 9E 37 30 30 00 94 08 24 04 2E 4F 50 |.....700...$..OP|
00000090: 54 20 4F 32 00 9A 08 2E 04 3B 00 BD 08 38 04 43 |T O2.....;...8.C|
000000A0: 48 4B 49 4E 20 20 B2 24 46 46 43 36 20 3B 20 4B |HKIN .$FFC6 ; K|
000000B0: 45 52 4E 41 4C 20 45 51 55 41 54 45 53 00 CF 08 |ERNAL EQUATES...|
000000C0: 42 04 43 48 4B 4F 55 54 20 B2 24 46 46 43 39 00 |B.CHKOUT .$FFC9.|
000000D0: E1 08 4C 04 43 48 52 49 4E 20 20 B2 24 46 46 43 |..L.CHRIN .$FFC|
000000E0: 46 00 F3 08 56 04 43 48 52 4F 55 54 20 B2 24 46 |F...V.CHROUT .$F|
000000F0: 46 44 32 00 03 09 60 04 9C 43 48 4E 20 B2 24 46 |FD2...`..CHN .$F|
00000100: 46 43 43 00 13 09 6A 04 A1 49 4E 20 20 B2 24 46 |FCC...j..IN .$F|
00000110: 46 45 34 00 19 09 74 04 3B 00 36 09 7E 04 50 54 |FE4...t.;.6.~.PT|
00000120: 52 20 20 20 20 B2 31 34 30 20 3B 20 54 45 4D 50 |R .140 ; TEMP|
00000130: 20 50 4F B5 45 52 00 46 09 88 04 42 41 55 44 20 | PO.ER.F...BAUD |
00000140: 20 20 B2 38 37 33 00 4C 09 92 04 3B 00 72 09 9C | .873.L...;.r..|
00000150: 04 44 45 54 45 43 54 20 B2 39 32 32 20 3B 20 43 |.DETECT .922 ; C|
00000160: 41 52 52 49 45 52 20 44 45 54 45 43 54 20 46 4C |ARRIER DETECT FL|
00000170: 41 47 00 92 09 A6 04 44 44 45 4C 41 59 20 B2 39 |AG.....DDELAY .9|
00000180: 32 37 20 3B 20 44 49 41 4C 49 4E 47 20 44 45 4C |27 ; DIALING DEL|
00000190: 41 59 00 B4 09 B0 04 57 44 45 4C 41 59 20 B2 39 |AY.....WDELAY .9|
000001A0: 32 36 20 3B 20 43 41 52 52 49 45 52 20 92 20 44 |26 ; CARRIER . D|
000001B0: 45 4C 41 59 00 D3 09 BA 04 48 44 45 4C 41 59 20 |ELAY.....HDELAY |
000001C0: B2 39 32 35 20 3B 20 48 41 4E 47 55 50 20 44 45 |.925 ; HANGUP DE|
000001D0: 4C 41 59 00 D9 09 C4 04 3B 00 FE 09 CE 04 4D 49 |LAY.....;.....MI|
000001E0: 4C 4C 49 20 20 B2 24 38 38 30 AA 32 34 20 3B 20 |LLI .$880.24 ; |
000001F0: 55 53 45 20 54 45 52 4D 49 4E 41 4C 27 53 00 04 |USE TERMINAL'S..|
00000200: 0A D8 04 3B 00 29 0A E2 04 AC B2 24 34 35 30 30 |...;.).....$4500|
00000210: 20 3B 20 53 54 41 52 54 53 20 48 45 52 45 20 55 | ; STARTS HERE U|
00000220: 50 20 A4 20 24 34 37 46 46 00 2F 0A EC 04 3B 00 |P . $47FF./...;.|
00000230: 4B 0A F6 04 4A 4D 50 20 41 4E 53 57 45 52 20 3B |K...JMP ANSWER ;|
00000240: 20 41 55 A4 AB 41 4E 53 57 45 52 00 65 0A 00 05 | AU..ANSWER.e...|
00000250: 4A 4D 50 20 44 4F 44 49 41 4C 20 3B 20 41 55 A4 |JMP DODIAL ; AU.|
00000260: AB 44 49 41 4C 00 84 0A 0A 05 4A 4D 50 20 91 48 |.DIAL.....JMP .H|
00000270: 4F 4F 4B 20 3B 20 4C 41 42 45 4C 20 53 41 59 53 |OOK ; LABEL SAYS|
00000280: 20 41 4C 4C 00 9E 0A 14 05 4A 4D 50 20 4F 46 48 | ALL.....JMP OFH|
00000290: 4F 4F 4B 20 3B 20 4F 46 46 20 48 4F 4F 4B 00 C2 |OOK ; OFF HOOK..|
000002A0: 0A 1E 05 4A 4D 50 20 43 41 52 43 48 4B 20 3B 20 |...JMP CARCHK ; |
000002B0: 4C 4F 53 54 20 43 41 52 52 49 45 52 20 43 48 45 |LOST CARRIER CHE|
000002C0: 43 4B 00 E5 0A 28 05 4A 4D 50 20 43 55 53 A4 4D |CK...(.JMP CUS.M|
000002D0: 20 3B 20 55 53 45 52 20 96 49 4E 45 44 20 52 4F | ; USER .INED RO|
000002E0: 55 54 49 4E 45 00 05 0B 32 05 4A 4D 50 20 48 41 |UTINE...2.JMP HA|
000002F0: 4E 47 55 50 20 3B 20 48 41 4E 47 55 50 20 52 4F |NGUP ; HANGUP RO|
00000300: 55 54 49 4E 45 00 0B 0B 3C 05 3B 00 2E 0B 46 05 |UTINE...<.;...F.|
00000310: 91 48 4F 4F 4B 20 4C 44 41 20 23 24 32 32 20 3B |.HOOK LDA #$22 ;|
00000320: 20 49 53 20 54 48 49 53 20 52 49 47 48 54 00 3C | IS THIS RIGHT.<|
00000330: 0B 50 05 53 54 41 20 24 44 44 30 33 00 47 0B 5A |.P.STA $DD03.G.Z|
00000340: 05 4C 44 41 20 23 30 00 55 0B 64 05 53 54 41 20 |.LDA #0.U.d.STA |
00000350: 24 44 44 30 31 00 5D 0B 6E 05 52 54 53 00 63 0B |$DD01.].n.RTS.c.|
00000360: 78 05 3B 00 82 0B 82 05 4F 46 48 4F 4F 4B 20 4C |x.;.....OFHOOK L|
00000370: 44 41 20 23 24 32 30 20 3B 20 4F 46 46 AB 48 4F |DA #$20 ; OFF.HO|
00000380: 4F 4B 00 9B 0B 8C 05 53 54 41 20 24 44 44 30 31 |OK.....STA $DD01|
00000390: 20 3B 20 50 49 4E 20 4A 20 48 49 00 A3 0B 96 05 | ; PIN J HI.....|
000003A0: 52 54 53 00 A9 0B A0 05 3B 00 C8 0B AA 05 44 4F |RTS.....;.....DO|
000003B0: 44 49 41 4C 20 53 54 58 20 50 54 52 20 3B 20 94 |DIAL STX PTR ; .|
000003C0: 20 41 44 44 52 45 53 53 00 EB 0B B4 05 53 54 59 | ADDRESS.....STY|
000003D0: 20 50 54 52 AA 31 20 3B 20 4F 46 20 44 49 41 4C | PTR.1 ; OF DIAL|
000003E0: 20 50 54 52 20 53 54 52 49 4E 47 00 03 0C BE 05 | PTR STRING.....|
000003F0: 4A 53 52 20 91 48 4F 4F 4B 20 3B 20 48 41 4E 47 |JSR .HOOK ; HANG|
00000400: 20 55 50 00 24 0C C8 05 4C 44 41 20 48 44 45 4C | UP.$...LDA HDEL|
00000410: 41 59 20 3B 20 92 20 48 44 45 4C 41 59 20 53 45 |AY ; . HDELAY SE|
00000420: 43 91 44 53 00 2E 0C D2 05 4A 53 52 20 92 00 48 |C.DS.....JSR ..H|
00000430: 0C DC 05 4A 53 52 20 4F 46 48 4F 4F 4B 20 3B 20 |...JSR OFHOOK ; |
00000440: 4F 46 46 AB 48 4F 4F 4B 00 60 0C E6 05 4C 44 41 |OFF.HOOK.`...LDA|
00000450: 20 23 32 20 3B 20 92 20 32 20 53 45 43 91 44 53 | #2 ; . 2 SEC.DS|
00000460: 00 6A 0C F0 05 4A 53 52 20 92 00 85 0C FA 05 4C |.j...JSR ......L|
00000470: 44 59 20 23 30 20 3B 20 49 4E 44 45 58 20 A4 20 |DY #0 ; INDEX . |
00000480: 53 54 41 52 54 00 91 0C 04 06 53 54 59 20 50 4F |START.....STY PO|
00000490: B5 00 AC 0C 0E 06 41 55 A4 31 20 4C 44 59 20 50 |......AU.1 LDY P|
000004A0: 4F B5 20 3B 20 A1 20 49 4E 44 45 58 00 CA 0C 18 |O. ; . INDEX....|
000004B0: 06 4C 44 41 20 28 50 54 52 29 2C 59 20 3B 20 AF |.LDA (PTR),Y ; .|
000004C0: 20 43 48 41 52 41 43 54 45 52 00 E8 0C 22 06 43 | CHARACTER...".C|
000004D0: 4D 50 20 23 22 30 22 20 3B 20 43 48 45 43 4B 20 |MP #"0" ; CHECK |
000004E0: 81 20 4E 55 4D 42 45 52 00 F7 0C 2C 06 42 43 43 |. NUMBER...,.BCC|
000004F0: 20 82 20 3B 20 4E 4F 00 04 0D 36 06 43 4D 50 20 | . ; NO...6.CMP |
00000500: 23 22 3A 22 00 13 0D 40 06 42 43 53 20 82 20 3B |#":"...@.BCS . ;|
00000510: 20 4E 4F 00 33 0D 4A 06 53 45 43 20 20 20 20 20 | NO.3.J.SEC |
00000520: 20 3B 20 4C 45 53 53 20 34 38 20 A4 20 A1 20 23 | ; LESS 48 . . #|
00000530: 20 4F 46 00 49 0D 54 06 53 42 43 20 23 34 38 20 | OF.I.T.SBC #48 |
00000540: 20 3B 20 50 55 4C 53 45 53 00 56 0D 5E 06 42 4E | ; PULSES.V.^.BN|
00000550: 45 20 41 55 A4 32 00 7A 0D 68 06 4C 44 41 20 23 |E AU.2.z.h.LDA #|
00000560: 31 30 20 20 3B 20 30 2C 20 53 4F 20 4D 41 4B 45 |10 ; 0, SO MAKE|
00000570: 20 31 30 20 50 55 4C 53 45 53 00 94 0D 72 06 41 | 10 PULSES...r.A|
00000580: 55 A4 32 20 53 54 41 20 50 55 4C 53 45 20 3B 20 |U.2 STA PULSE ; |
00000590: 94 20 49 54 00 AD 0D 7C 06 4C 44 41 20 23 30 20 |. IT...|.LDA #0 |
000005A0: 3B 20 50 55 4C 53 45 20 43 4F 55 4E 54 00 BB 0D |; PULSE COUNT...|
000005B0: 86 06 53 54 41 20 43 4F 55 4E 54 00 DD 0D 90 06 |..STA COUNT.....|
000005C0: 41 55 A4 33 20 4A 53 52 20 CB 4F 46 20 3B 20 50 |AU.3 JSR .OF ; P|
000005D0: 55 4C 53 45 20 4F 46 46 20 4C 49 4E 45 00 F6 0D |ULSE OFF LINE...|
000005E0: 9A 06 4C 44 58 20 44 44 45 4C 41 59 20 3B 20 92 |..LDX DDELAY ; .|
000005F0: 20 44 45 4C 41 59 00 07 0E A4 06 4C 44 59 20 44 | DELAY.....LDY D|
00000600: 44 45 4C 41 59 AA 31 00 20 0E AE 06 4A 53 52 20 |DELAY.1. ...JSR |
00000610: 4D 49 4C 4C 49 20 3B 20 92 20 49 54 20 4F 55 54 |MILLI ; . IT OUT|
00000620: 00 3E 0E B8 06 4A 53 52 20 4F 46 48 4F 4F 4B 20 |.>...JSR OFHOOK |
00000630: 3B 20 50 55 4C 53 45 20 91 20 4C 49 4E 45 00 57 |; PULSE . LINE.W|
00000640: 0E C2 06 4C 44 58 20 44 44 45 4C 41 59 20 3B 20 |...LDX DDELAY ; |
00000650: 92 20 41 47 41 49 4E 00 68 0E CC 06 4C 44 59 20 |. AGAIN.h...LDY |
00000660: 44 44 45 4C 41 59 AA 31 00 76 0E D6 06 4A 53 52 |DDELAY.1.v...JSR|
00000670: 20 4D 49 4C 4C 49 00 8E 0E E0 06 49 4E 43 20 43 | MILLI.....INC C|
00000680: 4F 55 4E 54 20 3B 20 82 20 50 55 4C 53 45 00 9C |OUNT ; . PULSE..|
00000690: 0E EA 06 4C 44 41 20 43 4F 55 4E 54 00 B4 0E F4 |...LDA COUNT....|
000006A0: 06 43 4D 50 20 50 55 4C 53 45 20 3B 20 44 91 45 |.CMP PULSE ; D.E|
000006B0: 20 59 45 54 00 C6 0E FE 06 42 4E 45 20 41 55 A4 | YET.....BNE AU.|
000006C0: 33 20 3B 20 4E 4F 00 E4 0E 08 07 4C 44 41 20 23 |3 ; NO.....LDA #|
000006D0: 34 30 20 3B 20 92 20 32 AD 33 20 53 45 43 20 81 |40 ; . 2.3 SEC .|
000006E0: 20 82 20 23 00 F1 0E 12 07 4A 53 52 20 4A 8B 46 | . #.....JSR J.F|
000006F0: 59 00 0E 0F 1C 07 4A 53 52 20 41 42 B0 54 20 3B |Y.....JSR AB.T ;|
00000700: 20 43 48 45 43 4B 20 81 20 90 20 4B 45 59 00 22 | CHECK . . KEY."|
00000710: 0F 26 07 82 20 49 4E 43 20 50 4F B5 20 3B 20 82 |.&.. INC PO. ; .|
00000720: 20 23 00 2E 0F 30 07 4C 44 41 20 50 4F B5 00 4D | #...0.LDA PO..M|
00000730: 0F 3A 07 43 4D 50 20 23 31 38 20 3B 20 44 91 45 |.:.CMP #18 ; D.E|
00000740: 20 41 4C 4C 20 31 38 20 43 48 41 52 53 00 67 0F | ALL 18 CHARS.g.|
00000750: 44 07 42 4E 45 20 41 55 A4 31 20 3B 20 4E 4F 2C |D.BNE AU.1 ; NO,|
00000760: 20 CB 20 42 41 43 4B 00 88 0F 4E 07 4C 44 41 20 | . BACK...N.LDA |
00000770: 57 44 45 4C 41 59 20 3B 20 92 20 4F 55 54 20 54 |WDELAY ; . OUT T|
00000780: 48 45 20 44 45 4C 41 59 00 92 0F 58 07 4A 53 52 |HE DELAY...X.JSR|
00000790: 20 92 00 B1 0F 62 07 4C 44 41 20 24 44 44 30 31 | ....b.LDA $DD01|
000007A0: 20 3B 20 48 41 56 45 20 41 20 43 41 52 52 49 45 | ; HAVE A CARRIE|
000007B0: 52 00 BB 0F 6C 07 AF 20 23 31 36 00 D9 0F 76 07 |R...l.. #16...v.|
000007C0: 42 45 51 20 41 55 A4 34 20 3B 20 59 45 53 2C 20 |BEQ AU.4 ; YES, |
000007D0: 53 49 47 4E 41 4C 20 49 54 00 FA 0F 80 07 53 45 |SIGNAL IT.....SE|
000007E0: 43 20 3B 20 4E 4F 2C 20 53 45 54 20 5A 45 52 4F |C ; NO, SET ZERO|
000007F0: 20 46 4C 41 47 20 54 52 55 45 00 1C 10 8A 07 4C | FLAG TRUE.....L|
00000800: 44 41 20 23 30 20 3B 20 AF 20 53 45 54 20 43 41 |DA #0 ; . SET CA|
00000810: 52 52 59 20 28 A8 20 41 42 B0 54 29 00 24 10 94 |RRY (. AB.T).$..|
00000820: 07 52 54 53 00 45 10 9E 07 41 55 A4 34 20 53 45 |.RTS.E...AU.4 SE|
00000830: 43 20 3B 20 48 41 56 45 20 43 41 52 52 49 45 52 |C ; HAVE CARRIER|
00000840: 2C 20 53 45 54 00 5D 10 A8 07 4C 44 41 20 23 31 |, SET.]...LDA #1|
00000850: 20 3B 20 5A 45 52 4F 20 46 41 4C 53 45 00 6C 10 | ; ZERO FALSE.l.|
00000860: B2 07 52 54 53 20 3B 20 45 58 49 54 00 72 10 BC |..RTS ; EXIT.r..|
00000870: 07 3B 00 91 10 C6 07 41 42 B0 54 20 4C 44 41 20 |.;.....AB.T LDA |
00000880: 24 39 31 20 3B 20 43 48 45 43 4B 20 90 20 4B 45 |$91 ; CHECK . KE|
00000890: 59 00 9E 10 D0 07 43 4D 50 20 23 24 37 46 00 B8 |Y.....CMP #$7F..|
000008A0: 10 DA 07 42 4E 45 20 41 42 4F 31 20 3B 20 4E 4F |...BNE ABO1 ; NO|
000008B0: 2C 20 CB 20 42 41 43 4B 00 D6 10 E4 07 41 42 4F |, . BACK.....ABO|
000008C0: 30 20 50 4C 41 20 3B 20 50 55 4C 4C 20 8E 20 41 |0 PLA ; PULL . A|
000008D0: 44 44 52 45 53 53 00 DE 10 EE 07 50 4C 41 00 F8 |DDRESS.....PLA..|
000008E0: 10 F8 07 43 4C 43 20 3B 20 43 4C 45 41 52 20 54 |...CLC ; CLEAR T|
000008F0: 48 45 20 43 41 52 52 59 00 19 11 02 08 41 42 4F |HE CARRY.....ABO|
00000900: 31 20 52 54 53 20 3B 20 AF 20 45 58 49 54 20 A4 |1 RTS ; . EXIT .|
00000910: 20 54 45 52 4D 49 4E 41 4C 00 1F 11 0C 08 3B 00 | TERMINAL.....;.|
00000920: 3B 11 16 08 92 20 54 41 58 20 3B 20 31 20 53 45 |;.... TAX ; 1 SE|
00000930: 43 91 44 20 43 4F 55 4E 54 45 52 00 4B 11 20 08 |C.D COUNTER.K. .|
00000940: 57 30 20 4A 53 52 20 9C 54 49 4D 00 69 11 2A 08 |W0 JSR .TIM.i.*.|
00000950: 57 31 20 4C 44 41 20 24 39 31 20 3B 20 43 48 45 |W1 LDA $91 ; CHE|
00000960: 43 4B 20 81 20 41 42 B0 54 00 85 11 34 08 43 4D |CK . AB.T...4.CM|
00000970: 50 20 23 24 37 46 20 3B 20 44 55 52 49 4E 47 20 |P #$7F ; DURING |
00000980: 54 48 45 20 92 00 92 11 3E 08 42 45 51 20 41 42 |THE ....>.BEQ AB|
00000990: 4F 30 00 9E 11 48 08 4C 44 41 20 24 41 32 00 AA |O0...H.LDA $A2..|
000009A0: 11 52 08 43 4D 50 20 23 36 30 00 B5 11 5C 08 42 |.R.CMP #60...\.B|
000009B0: 43 43 20 57 31 00 BD 11 66 08 44 45 58 00 C8 11 |CC W1...f.DEX...|
000009C0: 70 08 42 4D 49 20 57 32 00 D3 11 7A 08 42 4E 45 |p.BMI W2...z.BNE|
000009D0: 20 57 30 00 DE 11 84 08 57 32 20 52 54 53 00 E4 | W0.....W2 RTS..|
000009E0: 11 8E 08 3B 00 F4 11 98 08 50 4F B5 20 20 2E 42 |...;.....PO. .B|
000009F0: 59 54 20 30 00 06 12 A2 08 43 4F 55 4E 54 20 20 |YT 0.....COUNT |
00000A00: 2E 42 59 54 20 30 00 18 12 AC 08 50 55 4C 53 45 |.BYT 0.....PULSE|
00000A10: 20 20 2E 42 59 54 20 30 00 28 12 B6 08 4B 45 59 | .BYT 0.(...KEY|
00000A20: C5 20 2E 42 59 54 20 30 00 2E 12 C0 08 3B 00 43 |. .BYT 0.....;.C|
00000A30: 12 CA 08 41 4E 53 57 45 52 20 4C 44 41 20 23 33 |...ANSWER LDA #3|
00000A40: 32 AA 32 00 5E 12 D4 08 53 54 41 20 24 44 44 30 |2.2.^...STA $DD0|
00000A50: 33 20 3B 20 53 45 54 20 55 50 20 44 44 52 00 69 |3 ; SET UP DDR.i|
00000A60: 12 DE 08 4C 44 41 20 23 30 00 77 12 E8 08 53 54 |...LDA #0.w...ST|
00000A70: 41 20 24 44 44 30 31 00 8F 12 F2 08 4C 44 41 20 |A $DD01.....LDA |
00000A80: 23 36 30 20 3B 20 92 20 31 20 53 45 43 91 44 00 |#60 ; . 1 SEC.D.|
00000A90: 9C 12 FC 08 4A 53 52 20 4A 8B 46 59 00 BD 12 06 |....JSR J.FY....|
00000AA0: 09 41 4E 31 20 4C 44 41 20 24 44 44 30 31 20 3B |.AN1 LDA $DD01 ;|
00000AB0: 20 43 48 45 43 4B 20 81 20 52 49 4E 47 00 CF 12 | CHECK . RING...|
00000AC0: 10 09 AF 20 23 38 20 3B 20 44 45 54 45 43 54 00 |... #8 ; DETECT.|
00000AD0: EF 12 1A 09 42 45 51 20 41 4E 32 20 3B 20 57 45 |....BEQ AN2 ; WE|
00000AE0: 20 48 41 56 45 20 52 2E 44 2E 2C 20 CB 20 91 00 | HAVE R.D., . ..|
00000AF0: 0F 13 24 09 4A 53 52 20 A1 4B 45 59 20 3B 20 43 |..$.JSR .KEY ; C|
00000B00: 48 45 43 4B 20 81 20 4B 45 59 50 52 45 53 53 00 |HECK . KEYPRESS.|
00000B10: 1B 13 2E 09 42 45 51 20 41 4E 31 00 39 13 38 09 |....BEQ AN1.9.8.|
00000B20: 41 4E 30 20 4A 53 52 20 4F 46 48 4F 4F 4B 20 3B |AN0 JSR OFHOOK ;|
00000B30: 20 4F 46 46 AB 48 4F 4F 4B 00 56 13 42 09 4C 44 | OFF.HOOK.V.B.LD|
00000B40: 41 20 4B 45 59 C5 20 3B 20 A1 20 4B 45 59 20 50 |A KEY. ; . KEY P|
00000B50: 52 45 53 53 45 44 00 67 13 4C 09 43 4C 43 20 3B |RESSED.g.L.CLC ;|
00000B60: 20 AF 20 41 42 B0 54 00 6F 13 56 09 52 54 53 00 | . AB.T.o.V.RTS.|
00000B70: 80 13 60 09 41 4E 32 20 4A 53 52 20 9C 54 49 4D |..`.AN2 JSR .TIM|
00000B80: 00 9A 13 6A 09 4A 53 52 20 4F 46 48 4F 4F 4B 20 |...j.JSR OFHOOK |
00000B90: 3B 20 4F 46 46 AB 48 4F 4F 4B 00 AB 13 74 09 41 |; OFF.HOOK...t.A|
00000BA0: 4E 33 20 4A 53 52 20 A1 4B 45 59 00 B7 13 7E 09 |N3 JSR .KEY...~.|
00000BB0: 42 4E 45 20 41 4E 30 00 D8 13 88 09 4C 44 41 20 |BNE AN0.....LDA |
00000BC0: 24 44 44 30 31 20 3B 20 43 48 45 43 4B 20 81 20 |$DD01 ; CHECK . |
00000BD0: 44 43 44 20 4C 49 4E 45 00 E2 13 92 09 AF 20 23 |DCD LINE...... #|
00000BE0: 31 36 00 03 14 9C 09 42 45 51 20 41 4E 34 20 3B |16.....BEQ AN4 ;|
00000BF0: 20 CB 54 20 43 41 52 52 49 45 52 2C 20 53 49 47 | .T CARRIER, SIG|
00000C00: 4E 41 4C 00 0F 14 A6 09 4C 44 41 20 31 36 30 00 |NAL.....LDA 160.|
00000C10: 33 14 B0 09 43 4D 50 20 23 38 20 3B 20 33 30 20 |3...CMP #8 ; 30 |
00000C20: 53 45 43 91 44 20 43 41 52 52 49 45 52 20 43 48 |SEC.D CARRIER CH|
00000C30: 45 43 4B 00 3F 14 BA 09 42 43 43 20 41 4E 33 00 |ECK.?...BCC AN3.|
00000C40: 60 14 C4 09 42 43 53 20 41 4E 53 57 45 52 20 3B |`...BCS ANSWER ;|
00000C50: 20 54 49 4D 45 53 20 55 50 2C 20 52 45 53 45 54 | TIMES UP, RESET|
00000C60: 00 81 14 CE 09 41 4E 34 20 4A 4D 50 20 43 53 50 |.....AN4 JMP CSP|
00000C70: 45 45 44 20 3B 20 53 50 45 45 44 20 43 48 45 43 |EED ; SPEED CHEC|
00000C80: 4B 00 A7 14 D8 09 3B 20 4C 44 58 20 23 B3 33 30 |K.....; LDX #.30|
00000C90: 30 20 3B 20 53 45 54 20 42 41 55 44 20 52 41 54 |0 ; SET BAUD RAT|
00000CA0: 45 20 A4 20 33 30 30 00 B7 14 E2 09 3B 20 4C 44 |E . 300.....; LD|
00000CB0: 59 20 23 B1 33 30 30 00 C1 14 EC 09 3B 20 52 54 |Y #.300.....; RT|
00000CC0: 53 00 C7 14 F6 09 3B 00 E5 14 00 0A CB 4F 46 20 |S.....;......OF |
00000CD0: 4C 44 41 20 23 30 20 3B 20 50 55 4C 53 45 20 91 |LDA #0 ; PULSE .|
00000CE0: AB 48 4F 4F 4B 00 F3 14 0A 0A 53 54 41 20 24 44 |.HOOK.....STA $D|
00000CF0: 44 30 31 00 FB 14 14 0A 52 54 53 00 01 15 1E 0A |D01.....RTS.....|
00000D00: 3B 00 11 15 28 0A 9C 54 49 4D 20 4C 44 41 20 23 |;...(..TIM LDA #|
00000D10: 30 00 1D 15 32 0A 53 54 41 20 24 41 30 00 29 15 |0...2.STA $A0.).|
00000D20: 3C 0A 53 54 41 20 24 41 31 00 35 15 46 0A 53 54 |<.STA $A1.5.F.ST|
00000D30: 41 20 24 41 32 00 3D 15 50 0A 52 54 53 00 43 15 |A $A2.=.P.RTS.C.|
00000D40: 5A 0A 3B 00 50 15 64 0A 4A 8B 46 59 20 54 41 58 |Z.;.P.d.J.FY TAX|
00000D50: 00 5D 15 6E 0A 4A 53 52 20 9C 54 49 4D 00 6E 15 |.].n.JSR .TIM.n.|
00000D60: 78 0A 4A 8B 46 31 20 43 50 58 20 24 41 32 00 7B |x.J.F1 CPX $A2.{|
00000D70: 15 82 0A 42 43 53 20 4A 8B 46 31 00 83 15 8C 0A |...BCS J.F1.....|
00000D80: 52 54 53 00 89 15 96 0A 3B 00 9A 15 A0 0A A1 4B |RTS.....;......K|
00000D90: 45 59 20 4A 53 52 20 A1 49 4E 00 A2 15 AA 0A 50 |EY JSR .IN.....P|
00000DA0: 48 41 00 AF 15 B4 0A 53 54 41 20 4B 45 59 C5 00 |HA.....STA KEY..|
00000DB0: B7 15 BE 0A 50 4C 41 00 BF 15 C8 0A 52 54 53 00 |....PLA.....RTS.|
00000DC0: C5 15 D2 0A 3B 00 E5 15 DC 0A 48 41 4E 47 55 50 |....;.....HANGUP|
00000DD0: 20 4A 53 52 20 91 48 4F 4F 4B 20 3B 20 CB 20 91 | JSR .HOOK ; . .|
00000DE0: AB 48 4F 4F 4B 00 FF 15 E6 0A 4C 44 41 20 23 31 |.HOOK.....LDA #1|
00000DF0: 32 30 20 3B 20 92 20 32 20 53 45 43 91 44 53 00 |20 ; . 2 SEC.DS.|
00000E00: 0C 16 F0 0A 4A 53 52 20 4A 8B 46 59 00 1A 16 FA |....JSR J.FY....|
00000E10: 0A 4C 44 41 20 24 44 44 30 31 00 24 16 04 0B AF |.LDA $DD01.$....|
00000E20: 20 23 31 36 00 46 16 0E 0B 42 45 51 20 48 41 4E | #16.F...BEQ HAN|
00000E30: 47 55 50 20 3B 20 44 4F 20 55 4E 54 49 4C 20 48 |GUP ; DO UNTIL H|
00000E40: 55 4E 47 20 55 50 00 67 16 18 0B 4A 53 52 20 4F |UNG UP.g...JSR O|
00000E50: 46 48 4F 4F 4B 20 3B 20 53 45 54 20 55 50 20 81 |FHOOK ; SET UP .|
00000E60: 20 82 20 43 41 4C 4C 00 81 16 22 0B 4C 44 41 20 | . CALL...".LDA |
00000E70: 23 31 32 30 20 3B 20 92 20 32 20 53 45 43 91 44 |#120 ; . 2 SEC.D|
00000E80: 53 00 8E 16 2C 0B 4A 4D 50 20 4A 8B 46 59 00 94 |S...,.JMP J.FY..|
00000E90: 16 36 0B 3B 00 AA 16 40 0B 43 41 52 43 48 4B 20 |.6.;...@.CARCHK |
00000EA0: 42 49 54 20 44 45 54 45 43 54 00 C7 16 4A 0B 42 |BIT DETECT...J.B|
00000EB0: 50 4C 20 43 41 52 31 20 3B 20 53 4B 49 50 20 44 |PL CAR1 ; SKIP D|
00000EC0: 45 54 45 43 54 49 91 00 D5 16 54 0B 4C 44 41 20 |ETECTI....T.LDA |
00000ED0: 24 44 44 30 31 00 DF 16 5E 0B AF 20 23 31 36 00 |$DD01...^.. #16.|
00000EE0: 01 17 68 0B 42 45 51 20 43 41 52 31 20 3B 20 53 |..h.BEQ CAR1 ; S|
00000EF0: 54 49 4C 4C 20 48 41 56 45 20 43 41 52 52 49 45 |TILL HAVE CARRIE|
00000F00: 52 00 09 17 72 0B 43 4C 43 00 20 17 7C 0B 52 54 |R...r.CLC. .|.RT|
00000F10: 53 20 3B 20 43 41 52 52 49 45 52 20 4C 4F 53 54 |S ; CARRIER LOST|
00000F20: 00 2D 17 86 0B 43 41 52 31 20 53 45 43 00 35 17 |.-...CAR1 SEC.5.|
00000F30: 90 0B 52 54 53 00 3B 17 9A 0B 3B 00 4E 17 A4 0B |..RTS.;...;.N...|
00000F40: 43 55 53 A4 4D 20 4C 44 58 20 42 41 55 44 00 5D |CUS.M LDX BAUD.]|
00000F50: 17 AE 0B 4C 44 59 20 42 41 55 44 AA 31 00 6C 17 |...LDY BAUD.1.l.|
00000F60: B8 0B 43 50 58 20 23 B3 31 32 30 30 00 79 17 C2 |..CPX #.1200.y..|
00000F70: 0B 42 4E 45 20 43 53 54 31 00 88 17 CC 0B 43 50 |.BNE CST1.....CP|
00000F80: 59 20 23 B1 31 32 30 30 00 95 17 D6 0B 42 4E 45 |Y #.1200.....BNE|
00000F90: 20 43 53 54 31 00 A3 17 E0 0B 4C 44 41 20 24 44 | CST1.....LDA $D|
00000FA0: 44 30 31 00 C2 17 EA 0B B0 41 20 23 32 20 3B 20 |D01......A #2 ; |
00000FB0: 53 45 54 20 50 B0 54 20 42 49 54 20 81 20 31 32 |SET P.T BIT . 12|
00000FC0: 30 30 00 CF 17 F4 0B 42 4E 45 20 43 53 54 32 00 |00.....BNE CST2.|
00000FD0: E2 17 FE 0B 43 53 54 31 20 4C 44 41 20 24 44 44 |....CST1 LDA $DD|
00000FE0: 30 31 00 F3 17 08 0C AF 20 23 25 31 31 31 31 31 |01...... #%11111|
00000FF0: 31 30 31 00 06 18 12 0C 43 53 54 32 20 53 54 41 |101.....CST2 STA|
00001000: 20 24 44 44 30 31 00 0E 18 1C 0C 52 54 53 00 14 | $DD01.....RTS..|
00001010: 18 26 0C 3B 00 36 18 30 0C 3B 20 AC 20 54 48 49 |.&.;.6.0.; . THI|
00001020: 53 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 55 |S ROUTINE WILL U|
00001030: 53 45 20 54 48 45 00 58 18 3A 0C 3B 20 20 20 50 |SE THE.X.:.; P|
00001040: B0 54 20 52 45 47 49 53 54 45 52 20 A4 20 44 45 |.T REGISTER . DE|
00001050: 54 45 43 54 20 54 48 45 00 7A 18 44 0C 3B 20 20 |TECT THE.z.D.; |
00001060: 20 42 41 55 44 20 52 41 54 45 20 4F 46 20 54 48 | BAUD RATE OF TH|
00001070: 45 20 49 4E 43 4F 4D 49 4E 47 00 88 18 4E 0C 3B |E INCOMING...N.;|
00001080: 20 20 20 43 41 4C 4C 2E 00 8E 18 58 0C 3B 00 A2 | CALL....X.;..|
00001090: 18 62 0C 43 53 50 45 45 44 20 4A 53 52 20 9C 54 |.b.CSPEED JSR .T|
000010A0: 49 4D 00 BC 18 6C 0C 4C 44 41 20 23 33 30 20 3B |IM...l.LDA #30 ;|
000010B0: 20 92 20 2E 35 20 53 45 43 91 44 53 00 C9 18 76 | . .5 SEC.DS...v|
000010C0: 0C 4A 53 52 20 4A 8B 46 59 00 D6 18 80 0C 4A 53 |.JSR J.FY.....JS|
000010D0: 52 20 9C 54 49 4D 00 E9 18 8A 0C 43 53 50 31 20 |R .TIM.....CSP1 |
000010E0: 4C 44 41 20 24 44 44 30 31 00 F2 18 94 0C AF 20 |LDA $DD01...... |
000010F0: 23 31 00 17 19 9E 0C 42 45 51 20 43 53 50 32 20 |#1.....BEQ CSP2 |
00001100: 3B 20 4C 49 4E 45 20 49 53 20 4C 4F 2C 20 31 32 |; LINE IS LO, 12|
00001110: 30 30 20 42 41 55 44 00 23 19 A8 0C 4C 44 41 20 |00 BAUD.#...LDA |
00001120: 24 41 32 00 45 19 B2 0C 43 4D 50 20 23 36 20 3B |$A2.E...CMP #6 ;|
00001130: 20 43 48 45 43 4B 20 81 20 31 30 30 20 4D 49 4C | CHECK . 100 MIL|
00001140: 4C 49 53 45 43 00 52 19 BC 0C 42 43 43 20 43 53 |LISEC.R...BCC CS|
00001150: 50 31 00 6B 19 C6 0C 4C 44 58 20 23 B3 33 30 30 |P1.k...LDX #.300|
00001160: 20 3B 20 33 30 30 20 42 41 55 44 00 79 19 D0 0C | ; 300 BAUD.y...|
00001170: 4C 44 59 20 23 B1 33 30 30 00 81 19 DA 0C 53 45 |LDY #.300.....SE|
00001180: 43 00 89 19 E4 0C 52 54 53 00 9D 19 EE 0C 43 53 |C.....RTS.....CS|
00001190: 50 32 20 4C 44 58 20 23 B3 31 32 30 30 00 BF 19 |P2 LDX #.1200...|
000011A0: F8 0C 4C 44 59 20 23 B1 31 32 30 30 20 3B 20 31 |..LDY #.1200 ; 1|
000011B0: 32 30 30 20 42 41 55 44 20 43 91 4E 45 43 54 00 |200 BAUD C.NECT.|
000011C0: CD 19 02 0D 4C 44 41 20 24 44 44 30 31 00 E9 19 |....LDA $DD01...|
000011D0: 0C 0D B0 41 20 23 32 20 3B 20 53 45 54 20 81 20 |...A #2 ; SET . |
000011E0: 31 32 30 30 20 42 41 55 44 00 F7 19 16 0D 53 54 |1200 BAUD.....ST|
000011F0: 41 20 24 44 44 30 31 00 FF 19 20 0D 53 45 43 00 |A $DD01... .SEC.|
00001200: 07 1A 2A 0D 52 54 53 00 0D 1A 34 0D 3B 00 00 00 |..*.RTS...4.;...|
....... * DARKTERM '88.>.... * POCK
ET 1200 MODEM FILE SRC.F.... *.E....1,9,
15,"S0:D'88.P1200": 1.....2,9,1,"0:D'88
.P1200"......700...$..OPT O2.....;...8.C
HKIN .$FFC6 ; KERNAL EQUATES.O.B.CHKOUT
.$FFC9...L.CHRIN .$FFCF...V.CHROUT .$F
FD2...`..CHN .$FFCC...J..IN .$FFE4...T.
;.6.~.PTR .140 ; TEMP PO.ER.F...BAUD
.873.L...;.R...DETECT .922 ; CARRIER D
ETECT FLAG.....DDELAY .927 ; DIALING DEL
AY.....WDELAY .926 ; CARRIER . DELAY.S..
.HDELAY .925 ; HANGUP DELAY.Y.D.;...N.MI
LLI .$880.24 ; USE TERMINAL'S...X.;.)..
...$4500 ; STARTS HERE UP . $47FF./...;.
K...JMP ANSWER ; AU..ANSWER.E...JMP DODI
AL ; AU..DIAL.....JMP .HOOK ; LABEL SAYS
ALL.....JMP OFHOOK ; OFF HOOK.B...JMP C
ARCHK ; LOST CARRIER CHECK...(.JMP CUS.M
; USER .INED ROUTINE...2.JMP HANGUP ; H
ANGUP ROUTINE...<.;...F..HOOK LDA #$22 ;
IS THIS RIGHT.<.P.STA $DD03.G.Z.LDA #0.
U.D.STA $DD01.].N.RTS.C.X.;.....OFHOOK L
DA #$20 ; OFF.HOOK.....STA $DD01 ; PIN J
HI.....RTS... .;.H...DODIAL STX PTR ; .
ADDRESS.....STY PTR.1 ; OF DIAL PTR STR
ING.....JSR .HOOK ; HANG UP.$.H.LDA HDEL
AY ; . HDELAY SEC.DS...R.JSR ..H...JSR O
FHOOK ; OFF.HOOK.`...LDA #2 ; . 2 SEC.DS
.J...JSR ......LDY #0 ; INDEX . START...
..STY PO......AU.1 LDY PO. ; . INDEX.J..
.LDA (PTR),Y ; . CHARACTER...".CMP #"0"
; CHECK . NUMBER...,.BCC . ; NO...6.CMP
#":"...@.BCS . ; NO.3.J.SEC ; LESS
48 . . # OF.I.T.SBC #48 ; PULSES.V.^.BN
E AU.2.Z.H.LDA #10 ; 0, SO MAKE 10 PULS
ES...R.AU.2 STA PULSE ; . IT...|.LDA #0
; PULSE COUNT.....STA COUNT.....AU.3 JSR
KOF ; PULSE OFF LINE.....LDX DDELAY ; .
DELAY.....LDY DDELAY.1. ...JSR MILLI ;
. IT OUT.>...JSR OFHOOK ; PULSE . LINE.W
.B.LDX DDELAY ; . AGAIN.H.L.LDY DDELAY.1
.V.V.JSR MILLI.....INC COUNT ; . PULSE..
...LDA COUNT.....CMP PULSE ; D.E YET.F..
.BNE AU.3 ; NO.....LDA #40 ; . 2.3 SEC .
. #.....JSR J.FY.....JSR AB.T ; CHECK .
. KEY.".&.. INC PO. ; . #...0.LDA PO..M
.:.CMP #18 ; D.E ALL 18 CHARS.G.D.BNE AU
.1 ; NO, K BACK...N.LDA WDELAY ; . OUT T
HE DELAY...X.JSR ....B.LDA $DD01 ; HAVE
A CARRIER...L.. #16.Y.V.BEQ AU.4 ; YES,
SIGNAL IT.....SEC ; NO, SET ZERO FLAG TR
UE.....LDA #0 ; . SET CARRY (. AB.T).$..
.RTS.E...AU.4 SEC ; HAVE CARRIER, SET.].
..LDA #1 ; ZERO FALSE.L...RTS ; EXIT.R..
.;...F.AB.T LDA $91 ; CHECK . KEY...P.CM
P #$7F...Z.BNE ABO1 ; NO, K BACK.V...ABO
0 PLA ; PULL . ADDRESS.....PLA.....CLC ;
CLEAR THE CARRY.....ABO1 RTS ; . EXIT .
TERMINAL.....;.;.... TAX ; 1 SEC.D COUN
TER.K. .W0 JSR .TIM.I.*.W1 LDA $91 ; CHE
CK . AB.T...4.CMP #$7F ; DURING THE ....
>.BEQ ABO0...H.LDA $A2...R.CMP #60...\.B
CC W1...F.DEX.H.P.BMI W2.S.Z.BNE W0.....
W2 RTS.....;.....PO. .BYT 0.....COUNT
.BYT 0.....PULSE .BYT 0.(...KEYE .BYT 0
.....;.C.J.ANSWER LDA #32.2.^.T.STA $DD0
3 ; SET UP DDR.I...LDA #0.W...STA $DD01.
....LDA #60 ; . 1 SEC.D.....JSR J.FY....
.AN1 LDA $DD01 ; CHECK . RING.O.... #8 ;
DETECT.....BEQ AN2 ; WE HAVE R.D., K ..
..$.JSR .KEY ; CHECK . KEYPRESS.....BEQ
AN1.9.8.AN0 JSR OFHOOK ; OFF.HOOK.V.B.LD
A KEYE ; . KEY PRESSED.G.L.CLC ; . AB.T.
O.V.RTS...`.AN2 JSR .TIM...J.JSR OFHOOK
; OFF.HOOK...T.AN3 JSR .KEY...~.BNE AN0.
X...LDA $DD01 ; CHECK . DCD LINE...... #
16.....BEQ AN4 ; KT CARRIER, SIGNAL.....
LDA 160.3...CMP #8 ; 30 SEC.D CARRIER CH
ECK.?...BCC AN3.`.D.BCS ANSWER ; TIMES U
P, RESET...N.AN4 JMP CSPEED ; SPEED CHEC
K...X.; LDX #.300 ; SET BAUD RATE . 300.
....; LDY #.300.A...; RTS.G...;.....KOF
LDA #0 ; PULSE ..HOOK.....STA $DD01.....
RTS.....;...(..TIM LDA #0...2.STA $A0.).
<.STA $A1.5.F.STA $A2.=.P.RTS.C.Z.;.P.D.
J.FY TAX.].N.JSR .TIM.N.X.J.F1 CPX $A2.{
...BCS J.F1.....RTS.....;... ..KEY JSR .
IN.....PHA.....STA KEYE.....PLA...H.RTS.
E.R.;.....HANGUP JSR .HOOK ; K ..HOOK...
..LDA #120 ; . 2 SEC.DS.....JSR J.FY....
.LDA $DD01.$.... #16.F...BEQ HANGUP ; DO
UNTIL HUNG UP.G...JSR OFHOOK ; SET UP .
. CALL...".LDA #120 ; . 2 SEC.DS...,.JM
P J.FY...6.;...@.CARCHK BIT DETECT.G.J.B
PL CAR1 ; SKIP DETECTI..U.T.LDA $DD01...
^.. #16...H.BEQ CAR1 ; STILL HAVE CARRIE
R...R.CLC. .|.RTS ; CARRIER LOST.-...CAR
1 SEC.5...RTS.;...;.N...CUS.M LDX BAUD.]
...LDY BAUD.1.L...CPX #.1200.Y.B.BNE CST
1...L.CPY #.1200...V.BNE CST1.....LDA $D
D01.B....A #2 ; SET P.T BIT . 1200.O...B
NE CST2.....CST1 LDA $DD01...... #%11111
101.....CST2 STA $DD01.....RTS...&.;.6.0
.; . THIS ROUTINE WILL USE THE.X.:.; P
.T REGISTER . DETECT THE.Z.D.; BAUD RA
TE OF THE INCOMING...N.; CALL....X.;..
.B.CSPEED JSR .TIM...L.LDA #30 ; . .5 SE
C.DS.I.V.JSR J.FY.V...JSR .TIM.....CSP1
LDA $DD01...... #1.....BEQ CSP2 ; LINE I
S LO, 1200 BAUD.#...LDA $A2.E...CMP #6 ;
CHECK . 100 MILLISEC.R...BCC CSP1.K.F.L
DX #.300 ; 300 BAUD.Y.P.LDY #.300...Z.SE
C.....RTS.....CSP2 LDX #.1200.....LDY #.
1200 ; 1200 BAUD C.NECT.M...LDA $DD01...
...A #2 ; SET . 1200 BAUD.....STA $DD01.
.. .SEC...*.RTS...4.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL