M.HAYES.A1
FILE INFORMATION
FILENAME(S): M.HAYES.A1
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 16:57:46
APPEARS ON: 1 disk(s)
FILE HASH
aecf77388927182e0e034193a3f8b3418557082cd26558ec045dc6c32d972aac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | M.HAYES.A1 | PRG | High Voltage Complete C64 Collection, Markus Merz | 4 | 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 3B 08 F2 03 |ARKTERM '88.;...| 00000020: 8F 20 2A 20 48 41 59 45 53 20 4D 4F 44 45 4D 20 |. * HAYES MODEM | 00000030: 46 49 4C 45 20 53 4F 55 52 43 45 00 43 08 FC 03 |FILE SOURCE.C...| 00000040: 8F 20 2A 00 62 08 06 04 9F 31 2C 38 2C 31 35 2C |. *.b....1,8,15,| 00000050: 22 53 30 3A 44 27 38 38 2E 48 41 59 45 53 22 3A |"S0:D'88.HAYES":| 00000060: A0 31 00 7C 08 10 04 9F 32 2C 38 2C 31 2C 22 30 |.1.|....2,8,1,"0| 00000070: 3A 44 27 38 38 2E 48 41 59 45 53 22 00 85 08 1A |:D'88.HAYES"....| 00000080: 04 9E 37 30 30 00 91 08 24 04 2E 4F 50 54 20 4F |..700...$..OPT O| 00000090: 32 00 97 08 2E 04 3B 00 BA 08 38 04 43 48 4B 49 |2.....;...8.CHKI| 000000A0: 4E 20 20 B2 24 46 46 43 36 20 3B 20 4B 45 52 4E |N .$FFC6 ; KERN| 000000B0: 45 4C 20 45 51 55 41 54 45 53 00 CC 08 42 04 43 |EL EQUATES...B.C| 000000C0: 48 4B 4F 55 54 20 B2 24 46 46 43 39 00 DE 08 4C |HKOUT .$FFC9...L| 000000D0: 04 43 48 52 49 4E 20 20 B2 24 46 46 43 46 00 F0 |.CHRIN .$FFCF..| 000000E0: 08 56 04 43 48 52 4F 55 54 20 B2 24 46 46 44 32 |.V.CHROUT .$FFD2| 000000F0: 00 00 09 60 04 9C 43 48 4E 20 B2 24 46 46 43 43 |...`..CHN .$FFCC| 00000100: 00 10 09 6A 04 A1 49 4E 20 20 B2 24 46 46 45 34 |...j..IN .$FFE4| 00000110: 00 16 09 74 04 3B 00 38 09 7E 04 50 54 52 20 20 |...t.;.8.~.PTR | 00000120: 20 20 B2 31 33 38 20 3B 20 54 45 4D 50 B0 41 52 | .138 ; TEMP.AR| 00000130: 59 20 50 4F B5 45 52 53 00 48 09 88 04 53 54 20 |Y PO.ERS.H...ST | 00000140: 20 20 20 20 B2 31 34 30 00 69 09 92 04 50 52 45 | .140.i...PRE| 00000150: 46 49 58 20 B2 39 33 30 20 3B 20 44 49 41 4C 49 |FIX .930 ; DIALI| 00000160: 4E 47 20 50 52 45 46 49 58 00 85 09 9C 04 50 52 |NG PREFIX.....PR| 00000170: 45 C3 20 B2 39 32 39 20 3B 20 50 52 45 46 49 58 |E. .929 ; PREFIX| 00000180: 20 C3 47 54 48 00 8B 09 A6 04 3B 00 B1 09 B0 04 | .GTH.....;.....| 00000190: 44 45 54 45 43 54 20 B2 39 32 32 20 3B 20 43 41 |DETECT .922 ; CA| 000001A0: 52 52 49 45 52 20 44 45 54 45 43 54 20 46 4C 41 |RRIER DETECT FLA| 000001B0: 47 00 D1 09 BA 04 44 44 45 4C 41 59 20 B2 39 32 |G.....DDELAY .92| 000001C0: 37 20 3B 20 44 49 41 4C 49 4E 47 20 44 45 4C 41 |7 ; DIALING DELA| 000001D0: 59 00 F3 09 C4 04 57 44 45 4C 41 59 20 B2 39 32 |Y.....WDELAY .92| 000001E0: 36 20 3B 20 43 41 52 52 49 45 52 20 92 20 44 45 |6 ; CARRIER . DE| 000001F0: 4C 41 59 00 12 0A CE 04 48 44 45 4C 41 59 20 B2 |LAY.....HDELAY .| 00000200: 39 32 35 20 3B 20 91 AB 48 4F 4F 4B 20 44 45 4C |925 ; ..HOOK DEL| 00000210: 41 59 00 18 0A D8 04 3B 00 38 0A E2 04 3B 20 AC |AY.....;.8...; .| 00000220: 20 53 45 54 54 49 4E 47 20 54 48 45 20 85 AD 4F | SETTING THE ..O| 00000230: 55 54 50 55 54 53 20 AC 00 5B 0A EC 04 3B 20 20 |UTPUTS ..[...; | 00000240: 20 54 48 45 20 47 56 43 20 49 20 54 45 53 54 45 | THE GVC I TESTE| 00000250: 44 20 57 49 54 48 20 53 45 54 53 00 7E 0A F6 04 |D WITH SETS.~...| 00000260: 3B 20 20 20 54 48 45 20 44 44 52 20 52 45 47 49 |; THE DDR REGI| 00000270: 53 54 45 52 20 A4 20 24 38 34 20 48 45 58 00 9F |STER . $84 HEX..| 00000280: 0A 00 05 3B 20 20 20 57 48 49 43 48 20 57 4F 55 |...; WHICH WOU| 00000290: 4C 44 20 42 45 20 44 53 52 20 AF 20 44 54 52 00 |LD BE DSR . DTR.| 000002A0: C0 0A 0A 05 3B 20 20 20 41 53 20 4F 55 54 50 55 |....; AS OUTPU| 000002B0: 54 53 20 AF 20 54 48 45 20 52 45 53 54 20 41 53 |TS . THE REST AS| 000002C0: 00 DE 0A 14 05 3B 20 20 20 85 53 2E 20 49 20 44 |.....; .S. I D| 000002D0: 55 4E 4E 4F 20 8B 20 54 48 49 53 20 49 53 00 FD |UNNO . THIS IS..| 000002E0: 0A 1E 05 3B 20 20 20 43 B0 52 45 43 54 2E 20 41 |...; C.RECT. A| 000002F0: 43 43 B0 44 49 4E 47 20 A4 20 54 48 45 00 20 0B |CC.DING . THE. .| 00000300: 28 05 3B 20 20 20 36 34 20 52 45 46 45 52 45 4E |(.; 64 REFEREN| 00000310: 43 45 20 4D 41 4E 55 41 4C 2C 20 52 54 53 20 AF |CE MANUAL, RTS .| 00000320: 00 46 0B 32 05 3B 20 20 20 44 54 52 20 53 48 4F |.F.2.; DTR SHO| 00000330: 55 4C 44 20 42 45 20 54 48 45 20 91 4C 59 20 4F |ULD BE THE .LY O| 00000340: 55 54 50 55 54 53 00 6A 0B 3C 05 3B 20 20 20 4C |UTPUTS.j.<.; L| 00000350: 45 4D 4D 45 20 4B 4E 4F 57 20 57 48 41 54 20 54 |EMME KNOW WHAT T| 00000360: 48 45 59 20 53 48 4F 55 4C 44 00 89 0B 46 05 3B |HEY SHOULD...F.;| 00000370: 20 20 20 42 45 20 8B 20 54 48 49 53 20 C5 55 45 | BE . THIS .UE| 00000380: 20 49 53 20 4E 4F 20 CB 2E 00 8F 0B 50 05 3B 00 | IS NO .....P.;.| 00000390: B4 0B 5A 05 AC B2 24 34 35 30 30 20 3B 20 53 54 |..Z...$4500 ; ST| 000003A0: 41 52 54 53 20 48 45 52 45 20 55 50 20 A4 20 24 |ARTS HERE UP . $| 000003B0: 34 37 46 46 00 BA 0B 64 05 3B 00 D6 0B 6E 05 4A |47FF...d.;...n.J| 000003C0: 4D 50 20 41 4E 53 57 45 52 20 3B 20 41 55 A4 AB |MP ANSWER ; AU..| 000003D0: 41 4E 53 57 45 52 00 F0 0B 78 05 4A 4D 50 20 44 |ANSWER...x.JMP D| 000003E0: 4F 44 49 41 4C 20 3B 20 41 55 A4 AB 44 49 41 4C |ODIAL ; AU..DIAL| 000003F0: 00 0F 0C 82 05 4A 4D 50 20 91 48 4F 4F 4B 20 3B |.....JMP .HOOK ;| 00000400: 20 4C 41 42 45 4C 20 53 41 59 53 20 41 4C 4C 00 | LABEL SAYS ALL.| 00000410: 29 0C 8C 05 4A 4D 50 20 4F 46 48 4F 4F 4B 20 3B |)...JMP OFHOOK ;| 00000420: 20 4F 46 46 20 48 4F 4F 4B 00 4D 0C 96 05 4A 4D | OFF HOOK.M...JM| 00000430: 50 20 43 41 52 43 48 4B 20 3B 20 4C 4F 53 54 20 |P CARCHK ; LOST | 00000440: 43 41 52 52 49 45 52 20 43 48 45 43 4B 00 70 0C |CARRIER CHECK.p.| 00000450: A0 05 4A 4D 50 20 43 55 53 A4 4D 20 3B 20 55 53 |..JMP CUS.M ; US| 00000460: 45 52 20 96 49 4E 45 44 20 52 4F 55 54 49 4E 45 |ER .INED ROUTINE| 00000470: 00 90 0C AA 05 4A 4D 50 20 48 41 4E 47 55 50 20 |.....JMP HANGUP | 00000480: 3B 20 48 41 4E 47 55 50 20 52 4F 55 54 49 4E 45 |; HANGUP ROUTINE| 00000490: 00 96 0C B4 05 3B 00 AA 0C BE 05 44 4F 44 49 41 |.....;.....DODIA| 000004A0: 4C 20 4C 44 41 20 23 24 38 34 00 CB 0C C8 05 53 |L LDA #$84.....S| 000004B0: 54 41 20 24 44 44 30 33 20 3B 20 53 45 54 20 44 |TA $DD03 ; SET D| 000004C0: 44 52 20 52 45 47 49 53 54 45 52 00 E8 0C D2 05 |DR REGISTER.....| 000004D0: 53 54 58 20 50 54 52 20 3B 20 58 AD 59 20 50 4F |STX PTR ; X.Y PO| 000004E0: B5 20 A4 20 44 49 41 4C 00 0B 0D DC 05 53 54 59 |. . DIAL.....STY| 000004F0: 20 50 54 52 AA 31 20 3B 20 53 54 52 49 4E 47 20 | PTR.1 ; STRING | 00000500: 28 31 38 20 44 49 47 49 54 53 29 00 29 0D E6 05 |(18 DIGITS).)...| 00000510: 4A 53 52 20 8E 20 3B 20 53 80 20 32 20 B3 43 52 |JSR . ; S. 2 .CR| 00000520: B1 20 A4 20 42 45 47 49 4E 00 41 0D F0 05 4C 44 |. . BEGIN.A...LD| 00000530: 41 20 48 44 45 4C 41 59 20 3B 20 92 20 53 4F 4D |A HDELAY ; . SOM| 00000540: 45 00 4B 0D FA 05 4A 53 52 20 92 00 56 0D 04 06 |E.K...JSR ..V...| 00000550: 4C 44 58 20 23 35 00 65 0D 0E 06 4A 53 52 20 43 |LDX #5.e...JSR C| 00000560: 48 4B 4F 55 54 00 70 0D 18 06 4C 44 59 20 23 30 |HKOUT.p...LDY #0| 00000570: 00 90 0D 22 06 44 4F 44 4F 31 20 43 50 59 20 50 |...".DODO1 CPY P| 00000580: 52 45 C3 20 3B 20 43 48 45 43 4B 20 C3 47 54 48 |RE. ; CHECK .GTH| 00000590: 00 B3 0D 2C 06 42 45 51 20 44 4F 44 4F 32 20 3B |...,.BEQ DODO2 ;| 000005A0: 20 42 45 81 45 20 53 80 49 4E 47 20 49 4E 20 43 | BE.E S.ING IN C| 000005B0: 41 53 45 00 D9 0D 36 06 4C 44 41 20 50 52 45 46 |ASE...6.LDA PREF| 000005C0: 49 58 2C 59 20 3B 20 54 48 45 52 45 20 49 53 20 |IX,Y ; THERE IS | 000005D0: 4E 4F 20 50 52 45 46 49 58 00 E8 0D 40 06 4A 53 |NO PREFIX...@.JS| 000005E0: 52 20 4D 4F 44 4F 55 54 00 F0 0D 4A 06 49 4E 59 |R MODOUT...J.INY| 000005F0: 00 FE 0D 54 06 42 4E 45 20 44 4F 44 4F 31 00 0F |...T.BNE DODO1..| 00000600: 0E 5E 06 44 4F 44 4F 32 20 4C 44 59 20 23 30 00 |.^.DODO2 LDY #0.| 00000610: 30 0E 68 06 44 4F 44 4F 33 20 4C 44 41 20 28 50 |0.h.DODO3 LDA (P| 00000620: 54 52 29 2C 59 20 3B 20 A1 20 53 54 52 49 4E 47 |TR),Y ; . STRING| 00000630: 00 4E 0E 72 06 43 4D 50 20 23 33 32 20 3B 20 53 |.N.r.CMP #32 ; S| 00000640: 4B 49 50 20 41 4C 4C 20 42 4C 41 4E 4B 53 00 5C |KIP ALL BLANKS.\| 00000650: 0E 7C 06 42 45 51 20 44 4F 44 4F 34 00 74 0E 86 |.|.BEQ DODO4.t..| 00000660: 06 AF 20 23 31 32 37 20 3B 20 4D 41 53 4B 20 81 |.. #127 ; MASK .| 00000670: 20 C6 49 49 00 83 0E 90 06 4A 53 52 20 4D 4F 44 | .II.....JSR MOD| 00000680: 4F 55 54 00 91 0E 9A 06 44 4F 44 4F 34 20 49 4E |OUT.....DODO4 IN| 00000690: 59 00 AF 0E A4 06 43 50 59 20 23 31 38 20 3B 20 |Y.....CPY #18 ; | 000006A0: 44 4F 20 41 4C 4C 20 31 38 20 42 59 54 45 53 00 |DO ALL 18 BYTES.| 000006B0: BD 0E AE 06 42 4E 45 20 44 4F 44 4F 33 00 D7 0E |....BNE DODO3...| 000006C0: B8 06 4C 44 41 20 23 31 33 20 3B 20 53 80 20 54 |..LDA #13 ; S. T| 000006D0: 48 45 20 B3 43 52 B1 00 E6 0E C2 06 4A 53 52 20 |HE .CR......JSR | 000006E0: 4D 4F 44 4F 55 54 00 F3 0E CC 06 4A 53 52 20 9C |MODOUT.....JSR .| 000006F0: 43 48 4E 00 12 0F D6 06 4C 44 41 20 57 44 45 4C |CHN.....LDA WDEL| 00000700: 41 59 20 3B 20 AF 20 92 20 81 20 43 41 52 52 49 |AY ; . . . CARRI| 00000710: 45 52 00 1C 0F E0 06 4A 53 52 20 92 00 34 0F EA |ER.....JSR ..4..| 00000720: 06 4C 44 41 20 35 36 35 37 37 20 3B 20 48 41 56 |.LDA 56577 ; HAV| 00000730: 45 20 91 45 00 3E 0F F4 06 AF 20 23 31 36 00 64 |E .E.>.... #16.d| 00000740: 0F FE 06 42 4E 45 20 44 4F 44 4F 35 20 3B 20 59 |...BNE DODO5 ; Y| 00000750: 45 53 20 28 42 49 54 20 49 53 20 49 4E 56 45 52 |ES (BIT IS INVER| 00000760: 54 45 44 29 00 83 0F 08 07 53 45 43 20 3B 20 A8 |TED).....SEC ; .| 00000770: 20 41 42 B0 54 45 44 2C 20 53 45 54 20 43 20 46 | AB.TED, SET C F| 00000780: 4C 41 47 00 A7 0F 12 07 4C 44 41 20 23 30 20 3B |LAG.....LDA #0 ;| 00000790: 20 4E 4F 20 43 41 52 52 49 45 52 2C 20 53 45 54 | NO CARRIER, SET| 000007A0: 20 5A 20 46 4C 41 47 00 AF 0F 1C 07 52 54 53 00 | Z FLAG.....RTS.| 000007B0: CA 0F 26 07 44 4F 44 4F 35 20 53 45 43 20 3B 20 |..&.DODO5 SEC ; | 000007C0: 53 45 54 20 43 20 46 4C 41 47 00 ED 0F 30 07 4C |SET C FLAG...0.L| 000007D0: 44 41 20 23 31 20 3B 20 43 41 52 52 49 45 52 2C |DA #1 ; CARRIER,| 000007E0: 20 43 4C 45 41 52 20 5A 20 46 4C 41 47 00 F5 0F | CLEAR Z FLAG...| 000007F0: 3A 07 52 54 53 00 FB 0F 44 07 3B 00 05 10 4E 07 |:.RTS...D.;...N.| 00000800: 92 20 54 41 58 00 26 10 58 07 57 30 20 4A 53 52 |. TAX.&.X.W0 JSR| 00000810: 20 9C 54 49 4D 20 3B 20 43 4C 45 41 52 20 54 49 | .TIM ; CLEAR TI| 00000820: 20 43 4C 4F 43 4B 00 43 10 62 07 57 31 20 4C 44 | CLOCK.C.b.W1 LD| 00000830: 41 20 31 34 35 20 3B 20 43 48 45 43 4B 20 90 20 |A 145 ; CHECK . | 00000840: 4B 45 59 00 50 10 6C 07 43 4D 50 20 23 24 37 46 |KEY.P.l.CMP #$7F| 00000850: 00 6D 10 76 07 42 45 51 20 57 32 20 3B 20 8B 20 |.m.v.BEQ W2 ; . | 00000860: 50 52 45 53 53 45 44 2C 20 41 42 B0 54 00 79 10 |PRESSED, AB.T.y.| 00000870: 80 07 4C 44 41 20 31 36 32 00 90 10 8A 07 43 4D |..LDA 162.....CM| 00000880: 50 20 23 36 30 20 3B 20 91 45 20 53 45 43 91 44 |P #60 ; .E SEC.D| 00000890: 00 9B 10 94 07 42 43 43 20 57 31 00 B7 10 9E 07 |.....BCC W1.....| 000008A0: 44 45 58 20 3B 20 58 20 4E 55 4D 42 45 52 20 4F |DEX ; X NUMBER O| 000008B0: 46 20 54 49 4D 45 53 00 C2 10 A8 07 42 45 51 20 |F TIMES.....BEQ | 000008C0: 57 33 00 CD 10 B2 07 42 4E 45 20 57 30 00 D8 10 |W3.....BNE W0...| 000008D0: BC 07 57 32 20 50 4C 41 00 E0 10 C6 07 50 4C 41 |..W2 PLA.....PLA| 000008E0: 00 05 11 D0 07 43 4C 43 20 3B 20 43 4C 45 41 52 |.....CLC ; CLEAR| 000008F0: 20 43 20 46 4C 41 47 20 AB 20 55 53 45 52 20 41 | C FLAG . USER A| 00000900: 42 B0 54 45 44 00 10 11 DA 07 57 33 20 52 54 53 |B.TED.....W3 RTS| 00000910: 00 16 11 E4 07 3B 00 36 11 EE 07 91 48 4F 4F 4B |.....;.6....HOOK| 00000920: 20 4C 44 41 20 23 37 30 20 3B 20 92 20 91 45 20 | LDA #70 ; . .E | 00000930: 53 45 43 2E 2E 2E 00 43 11 F8 07 4A 53 52 20 4A |SEC....C...JSR J| 00000940: 8B 46 59 00 4E 11 02 08 4C 44 58 20 23 35 00 5D |.FY.N...LDX #5.]| 00000950: 11 0C 08 4A 53 52 20 43 48 4B 4F 55 54 00 7C 11 |...JSR CHKOUT.|.| 00000960: 16 08 4C 44 41 20 23 22 2B 22 20 3B 20 53 80 20 |..LDA #"+" ; S. | 00000970: AA AA AA 20 53 45 51 55 45 4E 43 45 00 8B 11 20 |... SEQUENCE... | 00000980: 08 4A 53 52 20 4D 4F 44 4F 55 54 00 9A 11 2A 08 |.JSR MODOUT...*.| 00000990: 4A 53 52 20 4D 4F 44 4F 55 54 00 A9 11 34 08 4A |JSR MODOUT...4.J| 000009A0: 53 52 20 4D 4F 44 4F 55 54 00 B6 11 3E 08 4A 53 |SR MODOUT...>.JS| 000009B0: 52 20 9C 43 48 4E 00 D4 11 48 08 4C 44 41 20 23 |R .CHN...H.LDA #| 000009C0: 37 30 20 3B 20 92 20 91 45 20 4D B0 45 20 53 45 |70 ; . .E M.E SE| 000009D0: 43 2E 2E 2E 00 E1 11 52 08 4A 4D 50 20 4A 8B 46 |C......R.JMP J.F| 000009E0: 59 00 E7 11 5C 08 3B 00 07 12 66 08 4F 46 48 4F |Y...\.;...f.OFHO| 000009F0: 4F 4B 20 4A 53 52 20 53 4D 41 52 54 20 3B 20 4F |OK JSR SMART ; O| 00000A00: 46 46 AB 48 4F 4F 4B 00 14 12 70 08 2E C6 20 22 |FF.HOOK...p... "| 00000A10: 41 54 44 22 00 22 12 7A 08 2E 42 59 54 20 31 33 |ATD".".z..BYT 13| 00000A20: 2C 30 00 2A 12 84 08 52 54 53 00 30 12 8E 08 3B |,0.*...RTS.0...;| 00000A30: 00 53 12 98 08 53 4D 41 52 54 20 4C 44 41 20 35 |.S...SMART LDA 5| 00000A40: 36 35 37 37 20 3B 20 53 80 20 41 54 20 43 4F 4D |6577 ; S. AT COM| 00000A50: 4D AF 53 00 5D 12 A2 08 AF 20 23 31 36 00 69 12 |M.S.].... #16.i.| 00000A60: AC 08 42 45 51 20 53 4D 31 00 8A 12 B6 08 4A 53 |..BEQ SM1.....JS| 00000A70: 52 20 91 48 4F 4F 4B 20 3B 20 48 41 4E 47 20 55 |R .HOOK ; HANG U| 00000A80: 50 20 55 4E 54 49 4C 20 4E 4F 00 A2 12 C0 08 4A |P UNTIL NO.....J| 00000A90: 4D 50 20 53 4D 41 52 54 20 3B 20 43 41 52 52 49 |MP SMART ; CARRI| 00000AA0: 45 52 00 C6 12 CA 08 53 4D 31 20 50 4C 41 20 3B |ER.....SM1 PLA ;| 00000AB0: 20 A1 20 53 54 52 49 4E 47 20 41 44 44 52 45 53 | . STRING ADDRES| 00000AC0: 53 20 46 52 4F 4D 00 DD 12 D4 08 53 54 41 20 53 |S FROM.....STA S| 00000AD0: 54 20 3B 20 8E 20 41 44 44 52 45 53 53 00 E5 12 |T ; . ADDRESS...| 00000AE0: DE 08 50 4C 41 00 F2 12 E8 08 53 54 41 20 53 54 |..PLA.....STA ST| 00000AF0: AA 31 00 FD 12 F2 08 4C 44 58 20 23 35 00 0C 13 |.1.....LDX #5...| 00000B00: FC 08 4A 53 52 20 43 48 4B 4F 55 54 00 27 13 06 |..JSR CHKOUT.'..| 00000B10: 09 4C 44 41 20 23 34 30 20 3B 20 92 20 B1 2E 35 |.LDA #40 ; . ..5| 00000B20: 20 53 45 43 2E 2E 2E 00 34 13 10 09 4A 53 52 20 | SEC....4...JSR | 00000B30: 4A 8B 46 59 00 43 13 1A 09 53 4D 32 20 49 4E 43 |J.FY.C...SM2 INC| 00000B40: 20 53 54 00 4F 13 24 09 42 4E 45 20 53 4D 33 00 | ST.O.$.BNE SM3.| 00000B50: 5C 13 2E 09 49 4E 43 20 53 54 AA 31 00 6B 13 38 |\...INC ST.1.k.8| 00000B60: 09 53 4D 33 20 4C 44 59 20 23 30 00 85 13 42 09 |.SM3 LDY #0...B.| 00000B70: 4C 44 41 20 28 53 54 29 2C 59 20 3B 20 53 80 20 |LDA (ST),Y ; S. | 00000B80: 43 4F 4D 4D AF 00 91 13 4C 09 42 45 51 20 53 4D |COMM....L.BEQ SM| 00000B90: 34 00 A0 13 56 09 4A 53 52 20 4D 4F 44 4F 55 54 |4...V.JSR MODOUT| 00000BA0: 00 AC 13 60 09 4A 4D 50 20 53 4D 32 00 BD 13 6A |...`.JMP SM2...j| 00000BB0: 09 53 4D 34 20 4A 53 52 20 9C 43 48 4E 00 D6 13 |.SM4 JSR .CHN...| 00000BC0: 74 09 4C 44 41 20 23 34 30 20 3B 20 92 20 53 4F |t.LDA #40 ; . SO| 00000BD0: 4D 45 20 4D B0 45 00 E3 13 7E 09 4A 53 52 20 4A |ME M.E...~.JSR J| 00000BE0: 8B 46 59 00 03 14 88 09 4C 44 41 20 53 54 AA 31 |.FY.....LDA ST.1| 00000BF0: 20 3B 20 50 55 53 48 20 A2 20 8E 20 41 44 44 52 | ; PUSH . . ADDR| 00000C00: 45 53 53 00 0B 14 92 09 50 48 41 00 16 14 9C 09 |ESS.....PHA.....| 00000C10: 4C 44 41 20 53 54 00 1E 14 A6 09 50 48 41 00 26 |LDA ST.....PHA.&| 00000C20: 14 B0 09 52 54 53 00 2C 14 BA 09 3B 00 42 14 C4 |...RTS.,...;.B..| 00000C30: 09 4D 4F 44 4F 55 54 20 4A 53 52 20 43 48 52 4F |.MODOUT JSR CHRO| 00000C40: 55 54 00 62 14 CE 09 4D 4F 44 4F 31 20 4C 44 58 |UT.b...MODO1 LDX| 00000C50: 20 36 36 39 20 3B 20 92 20 81 20 52 53 32 33 32 | 669 ; . . RS232| 00000C60: 20 A4 00 82 14 D8 09 43 50 58 20 36 37 30 20 3B | ......CPX 670 ;| 00000C70: 20 CB 20 49 44 4C 45 20 42 45 81 45 20 53 80 49 | . IDLE BE.E S.I| 00000C80: 4E 47 00 98 14 E2 09 42 4E 45 20 4D 4F 44 4F 31 |NG.....BNE MODO1| 00000C90: 20 3B 20 41 47 41 49 4E 00 A0 14 EC 09 52 54 53 | ; AGAIN.....RTS| 00000CA0: 00 A6 14 F6 09 3B 00 B3 14 00 0A 8E 20 4C 44 58 |.....;...... LDX| 00000CB0: 20 23 35 00 C2 14 0A 0A 4A 53 52 20 43 48 4B 4F | #5.....JSR CHKO| 00000CC0: 55 54 00 CE 14 14 0A 4C 44 41 20 23 31 33 00 DD |UT.....LDA #13..| 00000CD0: 14 1E 0A 4A 53 52 20 4D 4F 44 4F 55 54 00 EC 14 |...JSR MODOUT...| 00000CE0: 28 0A 4A 53 52 20 4D 4F 44 4F 55 54 00 F9 14 32 |(.JSR MODOUT...2| 00000CF0: 0A 4A 4D 50 20 9C 43 48 4E 00 FF 14 3C 0A 3B 00 |.JMP .CHN...<.;.| 00000D00: 21 15 46 0A 43 55 53 A4 4D 20 52 54 53 20 3B 20 |!.F.CUS.M RTS ; | 00000D10: 4E 91 45 20 4E 45 45 44 45 44 20 81 20 31 36 37 |N.E NEEDED . 167| 00000D20: 30 00 27 15 50 0A 3B 00 4B 15 5A 0A 43 41 52 43 |0.'.P.;.K.Z.CARC| 00000D30: 48 4B 20 42 49 54 20 44 45 54 45 43 54 20 3B 20 |HK BIT DETECT ; | 00000D40: 8B 20 44 45 54 45 43 54 20 49 53 00 6C 15 64 0A |. DETECT IS.l.d.| 00000D50: 42 50 4C 20 43 41 52 31 20 3B 20 30 20 A7 20 49 |BPL CAR1 ; 0 . I| 00000D60: 47 4E B0 45 20 43 41 52 52 49 45 52 00 7A 15 6E |GN.E CARRIER.z.n| 00000D70: 0A 4C 44 41 20 24 44 44 30 31 00 84 15 78 0A AF |.LDA $DD01...x..| 00000D80: 20 23 31 36 00 91 15 82 0A 42 4E 45 20 43 41 52 | #16.....BNE CAR| 00000D90: 31 00 AB 15 8C 0A 43 4C 43 20 3B 20 44 52 4F 50 |1.....CLC ; DROP| 00000DA0: 50 45 44 20 43 41 52 52 49 45 52 00 C5 15 96 0A |PED CARRIER.....| 00000DB0: 52 54 53 20 3B 20 53 4F 20 43 4C 45 41 52 20 43 |RTS ; SO CLEAR C| 00000DC0: 20 46 4C 41 47 00 D2 15 A0 0A 43 41 52 31 20 53 | FLAG.....CAR1 S| 00000DD0: 45 43 00 DA 15 AA 0A 52 54 53 00 E0 15 B4 0A 3B |EC.....RTS.....;| 00000DE0: 00 F0 15 BE 0A 9C 54 49 4D 20 4C 44 41 20 23 30 |......TIM LDA #0| 00000DF0: 00 FC 15 C8 0A 53 54 41 20 31 36 30 00 08 16 D2 |.....STA 160....| 00000E00: 0A 53 54 41 20 31 36 31 00 14 16 DC 0A 53 54 41 |.STA 161.....STA| 00000E10: 20 31 36 32 00 1C 16 E6 0A 52 54 53 00 22 16 F0 | 162.....RTS."..| 00000E20: 0A 3B 00 3F 16 FA 0A 4A 8B 46 59 20 54 41 58 20 |.;.?...J.FY TAX | 00000E30: 3B 20 92 20 53 4F 4D 45 20 4A 8B 46 49 45 53 00 |; . SOME J.FIES.| 00000E40: 4C 16 04 0B 4A 53 52 20 9C 54 49 4D 00 5C 16 0E |L...JSR .TIM.\..| 00000E50: 0B 4A 8B 31 20 43 50 58 20 31 36 32 00 68 16 18 |.J.1 CPX 162.h..| 00000E60: 0B 42 43 53 20 4A 8B 31 00 70 16 22 0B 52 54 53 |.BCS J.1.p.".RTS| 00000E70: 00 76 16 2C 0B 3B 00 99 16 36 0B 41 4E 53 57 45 |.v.,.;...6.ANSWE| 00000E80: 52 20 4A 53 52 20 52 45 53 45 54 20 3B 20 52 45 |R JSR RESET ; RE| 00000E90: 53 45 54 20 4D 4F 44 45 4D 00 B8 16 40 0B 41 4E |SET MODEM...@.AN| 00000EA0: 53 30 20 4A 53 52 20 53 4D 41 52 54 20 3B 20 53 |S0 JSR SMART ; S| 00000EB0: 80 20 41 54 20 41 43 4B 00 CC 16 4A 0B 2E C6 20 |. AT ACK...J... | 00000EC0: 22 41 54 20 48 31 20 53 30 3D 31 22 00 DA 16 54 |"AT H1 S0=1"...T| 00000ED0: 0B 2E 42 59 54 20 31 33 2C 30 00 E5 16 5E 0B 4C |..BYT 13,0...^.L| 00000EE0: 44 58 20 23 35 00 F3 16 68 0B 4A 53 52 20 43 48 |DX #5...h.JSR CH| 00000EF0: 4B 49 4E 00 FF 16 72 0B 4A 53 52 20 A1 49 4E 00 |KIN...r.JSR .IN.| 00000F00: 07 17 7C 0B 50 48 41 00 14 17 86 0B 4A 53 52 20 |..|.PHA.....JSR | 00000F10: 9C 43 48 4E 00 1C 17 90 0B 50 4C 41 00 27 17 9A |.CHN.....PLA.'..| 00000F20: 0B AF 20 23 31 32 37 00 47 17 A4 0B 43 4D 50 20 |.. #127.G...CMP | 00000F30: 23 22 30 22 20 3B 20 92 20 81 20 4F 4B 41 59 20 |#"0" ; . . OKAY | 00000F40: 52 45 53 50 91 53 45 00 54 17 AE 0B 42 4E 45 20 |RESP.SE.T...BNE | 00000F50: 41 4E 53 30 00 64 17 B8 0B 41 4E 53 31 20 4C 44 |ANS0.d...ANS1 LD| 00000F60: 58 20 23 35 00 72 17 C2 0B 4A 53 52 20 43 48 4B |X #5.r...JSR CHK| 00000F70: 49 4E 00 8E 17 CC 0B 4A 53 52 20 A1 49 4E 20 3B |IN.....JSR .IN ;| 00000F80: 20 92 20 81 20 4E 55 4D 45 52 49 43 41 4C 00 A0 | . . NUMERICAL..| 00000F90: 17 D6 0B 50 48 41 20 3B 20 52 45 53 50 91 53 45 |...PHA ; RESP.SE| 00000FA0: 00 AD 17 E0 0B 4A 53 52 20 9C 43 48 4E 00 B5 17 |.....JSR .CHN...| 00000FB0: EA 0B 50 4C 41 00 D0 17 F4 0B AF 20 23 31 32 37 |..PLA...... #127| 00000FC0: 20 3B 20 44 49 53 43 41 52 44 20 42 49 54 20 37 | ; DISCARD BIT 7| 00000FD0: 00 E8 17 FE 0B 43 4D 50 20 23 22 31 22 20 3B 20 |.....CMP #"1" ; | 00000FE0: 33 30 30 20 42 41 55 44 00 FB 17 08 0C 42 45 51 |300 BAUD.....BEQ| 00000FF0: 20 41 4E 53 32 20 3B 20 59 45 53 00 14 18 12 0C | ANS2 ; YES.....| 00001000: 43 4D 50 20 23 22 35 22 20 3B 20 31 32 30 30 20 |CMP #"5" ; 1200 | 00001010: 42 41 55 44 00 27 18 1C 0C 42 45 51 20 41 4E 53 |BAUD.'...BEQ ANS| 00001020: 33 20 3B 20 59 45 53 00 49 18 26 0C 4A 53 52 20 |3 ; YES.I.&.JSR | 00001030: A1 49 4E 20 3B 20 A1 20 4B 45 59 20 46 52 4F 4D |.IN ; . KEY FROM| 00001040: 20 4B 45 59 42 4F 41 52 44 00 54 18 30 0C 43 4D | KEYBOARD.T.0.CM| 00001050: 50 20 23 30 00 61 18 3A 0C 42 45 51 20 41 4E 53 |P #0.a.:.BEQ ANS| 00001060: 31 00 69 18 44 0C 43 4C 43 00 71 18 4E 0C 52 54 |1.i.D.CLC.q.N.RT| 00001070: 53 00 84 18 58 0C 41 4E 53 32 20 4C 44 58 20 23 |S...X.ANS2 LDX #| 00001080: B3 33 30 30 00 92 18 62 0C 4C 44 59 20 23 B1 33 |.300...b.LDY #.3| 00001090: 30 30 00 9F 18 6C 0C 42 4E 45 20 41 4E 53 34 00 |00...l.BNE ANS4.| 000010A0: B3 18 76 0C 41 4E 53 33 20 4C 44 58 20 23 B3 31 |..v.ANS3 LDX #.1| 000010B0: 32 30 30 00 C2 18 80 0C 4C 44 59 20 23 B1 31 32 |200.....LDY #.12| 000010C0: 30 30 00 CF 18 8A 0C 41 4E 53 34 20 53 45 43 00 |00.....ANS4 SEC.| 000010D0: D7 18 94 0C 52 54 53 00 DD 18 9E 0C 3B 00 F0 18 |....RTS.....;...| 000010E0: A8 0C 52 45 53 45 54 20 4C 44 41 20 24 32 39 42 |..RESET LDA $29B| 000010F0: 00 FD 18 B2 0C 53 54 41 20 24 32 39 43 00 0B 19 |.....STA $29C...| 00001100: BC 0C 4A 53 52 20 53 4D 41 52 54 00 18 19 C6 0C |..JSR SMART.....| 00001110: 2E C6 20 22 41 54 5A 22 00 26 19 D0 0C 2E 42 59 |.. "ATZ".&....BY| 00001120: 54 20 31 33 2C 30 00 32 19 DA 0C 4C 44 41 20 23 |T 13,0.2...LDA #| 00001130: 37 35 00 3F 19 E4 0C 4A 53 52 20 4A 8B 46 59 00 |75.?...JSR J.FY.| 00001140: 4C 19 EE 0C 4C 44 41 20 24 32 39 42 00 59 19 F8 |L...LDA $29B.Y..| 00001150: 0C 53 54 41 20 24 32 39 43 00 67 19 02 0D 4A 53 |.STA $29C.g...JS| 00001160: 52 20 53 4D 41 52 54 00 7C 19 0C 0D 2E C6 20 22 |R SMART.|..... "| 00001170: 41 54 20 56 30 20 4D 30 20 58 31 22 00 8A 19 16 |AT V0 M0 X1"....| 00001180: 0D 2E 42 59 54 20 31 33 2C 30 00 96 19 20 0D 4C |..BYT 13,0... .L| 00001190: 44 41 20 23 37 35 00 A3 19 2A 0D 4A 4D 50 20 4A |DA #75...*.JMP J| 000011A0: 8B 46 59 00 A9 19 34 0D 3B 00 CC 19 3E 0D 48 41 |.FY...4.;...>.HA| 000011B0: 4E 47 55 50 20 4A 53 52 20 91 48 4F 4F 4B 20 3B |NGUP JSR .HOOK ;| 000011C0: 20 53 80 20 AA AA AA 20 53 45 51 2E 00 EC 19 48 | S. ... SEQ....H| 000011D0: 0D 4A 53 52 20 53 4D 41 52 54 20 3B 20 53 80 20 |.JSR SMART ; S. | 000011E0: 43 4F 4D 4D AF 20 53 54 52 49 4E 47 00 00 1A 52 |COMM. STRING...R| 000011F0: 0D 2E C6 20 22 41 54 20 48 30 20 53 30 3D 30 22 |... "AT H0 S0=0"| 00001200: 00 0E 1A 5C 0D 2E 42 59 54 20 31 33 2C 30 00 1C |...\..BYT 13,0..| 00001210: 1A 66 0D 4C 44 41 20 24 44 44 30 31 00 36 1A 70 |.f.LDA $DD01.6.p| 00001220: 0D AF 20 23 31 36 20 3B 20 43 48 45 43 4B 20 43 |.. #16 ; CHECK C| 00001230: 41 52 52 49 45 52 00 5C 1A 7A 0D 42 4E 45 20 48 |ARRIER.\.z.BNE H| 00001240: 41 4E 47 55 50 20 3B 20 53 54 49 4C 4C 20 54 48 |ANGUP ; STILL TH| 00001250: 45 52 45 2C 20 54 52 59 20 4D B0 45 00 69 1A 84 |ERE, TRY M.E.i..| 00001260: 0D 4C 44 41 20 24 32 39 42 00 76 1A 8E 0D 53 54 |.LDA $29B.v...ST| 00001270: 41 20 24 32 39 43 00 7E 1A 98 0D 52 54 53 00 00 |A $29C.~...RTS..| 00001280: 00 |. |
....... * DARKTERM '88.;.... * HAYE
S MODEM FILE SOURCE.C.... *.B....1,8,15,
"S0:D'88.HAYES": 1.|....2,8,1,"0:D'88.HA
YES"......700...$..OPT O2.....;...8.CHKI
N .$FFC6 ; KERNEL EQUATES.L.B.CHKOUT .$
FFC9...L.CHRIN .$FFCF...V.CHROUT .$FFD2
...`..CHN .$FFCC...J..IN .$FFE4...T.;.8
.~.PTR .138 ; TEMP.ARY PO.ERS.H...ST
.140.I...PREFIX .930 ; DIALING PREFI
X.....PREC .929 ; PREFIX CGTH.....;.....
DETECT .922 ; CARRIER DETECT FLAG.Q...DD
ELAY .927 ; DIALING DELAY...D.WDELAY .92
6 ; CARRIER . DELAY...N.HDELAY .925 ; ..
HOOK DELAY...X.;.8...; . SETTING THE ..O
UTPUTS ..[...; THE GVC I TESTED WITH S
ETS.~...; THE DDR REGISTER . $84 HEX..
...; WHICH WOULD BE DSR . DTR.....;
AS OUTPUTS . THE REST AS.....; .S. I D
UNNO . THIS IS.....; C.RECT. ACC.DING
. THE. .(.; 64 REFERENCE MANUAL, RTS .
.F.2.; DTR SHOULD BE THE .LY OUTPUTS.J
.<.; LEMME KNOW WHAT THEY SHOULD...F.;
BE . THIS EUE IS NO K....P.;...Z...$4
500 ; STARTS HERE UP . $47FF...D.;.V.N.J
MP ANSWER ; AU..ANSWER...X.JMP DODIAL ;
AU..DIAL.....JMP .HOOK ; LABEL SAYS ALL.
)...JMP OFHOOK ; OFF HOOK.M...JMP CARCHK
; LOST CARRIER CHECK.P. .JMP CUS.M ; US
ER .INED ROUTINE.....JMP HANGUP ; HANGUP
ROUTINE.....;.....DODIAL LDA #$84.K.H.S
TA $DD03 ; SET DDR REGISTER...R.STX PTR
; X.Y PO. . DIAL.....STY PTR.1 ; STRING
(18 DIGITS).)...JSR . ; S. 2 .CR. . BEGI
N.A...LDA HDELAY ; . SOME.K...JSR ..V...
LDX #5.E...JSR CHKOUT.P...LDY #0...".DOD
O1 CPY PREC ; CHECK CGTH...,.BEQ DODO2 ;
BE.E S.ING IN CASE.Y.6.LDA PREFIX,Y ; T
HERE IS NO PREFIX...@.JSR MODOUT...J.INY
...T.BNE DODO1...^.DODO2 LDY #0.0.H.DODO
3 LDA (PTR),Y ; . STRING.N.R.CMP #32 ; S
KIP ALL BLANKS.\.|.BEQ DODO4.T.... #127
; MASK . FII.....JSR MODOUT.....DODO4 IN
Y.....CPY #18 ; DO ALL 18 BYTES.....BNE
DODO3.W...LDA #13 ; S. THE .CR....B.JSR
MODOUT...L.JSR .CHN...V.LDA WDELAY ; . .
. CARRIER.....JSR ..4...LDA 56577 ; HAV
E .E.>.... #16.D...BNE DODO5 ; YES (BIT
IS INVERTED).....SEC ; . AB.TED, SET C F
LAG.....LDA #0 ; NO CARRIER, SET Z FLAG.
....RTS.J.&.DODO5 SEC ; SET C FLAG...0.L
DA #1 ; CARRIER, CLEAR Z FLAG...:.RTS...
D.;...N.. TAX.&.X.W0 JSR .TIM ; CLEAR TI
CLOCK.C.B.W1 LDA 145 ; CHECK . KEY.P.L.
CMP #$7F.M.V.BEQ W2 ; . PRESSED, AB.T.Y.
..LDA 162.....CMP #60 ; .E SEC.D.....BCC
W1.....DEX ; X NUMBER OF TIMES.B...BEQ
W3.M...BNE W0.X...W2 PLA...F.PLA...P.CLC
; CLEAR C FLAG . USER AB.TED...Z.W3 RTS
.....;.6....HOOK LDA #70 ; . .E SEC....C
...JSR J.FY.N...LDX #5.]...JSR CHKOUT.|.
..LDA #"+" ; S. ... SEQUENCE... .JSR MOD
OUT...*.JSR MODOUT...4.JSR MODOUT...>.JS
R .CHN.T.H.LDA #70 ; . .E M.E SEC......R
.JMP J.FY...\.;...F.OFHOOK JSR SMART ; O
FF.HOOK...P..F "ATD".".Z..BYT 13,0.*...R
TS.0...;.S...SMART LDA 56577 ; S. AT COM
M.S.].... #16.I...BEQ SM1.....JSR .HOOK
; HANG UP UNTIL NO.....JMP SMART ; CARRI
ER.F.J.SM1 PLA ; . STRING ADDRESS FROM..
.T.STA ST ; . ADDRESS.....PLA.....STA ST
.1.....LDX #5.....JSR CHKOUT.'...LDA #40
; . ..5 SEC....4...JSR J.FY.C...SM2 INC
ST.O.$.BNE SM3.\...INC ST.1.K.8.SM3 LDY
#0...B.LDA (ST),Y ; S. COMM....L.BEQ SM
4. .V.JSR MODOUT...`.JMP SM2...J.SM4 JSR
.CHN.V.T.LDA #40 ; . SOME M.E...~.JSR J
.FY.....LDA ST.1 ; PUSH . . ADDRESS.....
PHA.....LDA ST.....PHA.&...RTS.,...;.B.D
.MODOUT JSR CHROUT.B.N.MODO1 LDX 669 ; .
. RS232 ....X.CPX 670 ; K IDLE BE.E S.I
NG.....BNE MODO1 ; AGAIN. ...RTS.....;..
.... LDX #5.B...JSR CHKOUT.N...LDA #13..
...JSR MODOUT...(.JSR MODOUT...2.JMP .CH
N...<.;.!.F.CUS.M RTS ; N.E NEEDED . 167
0.'.P.;.K.Z.CARCHK BIT DETECT ; . DETECT
IS.L.D.BPL CAR1 ; 0 . IGN.E CARRIER.Z.N
.LDA $DD01...X.. #16.....BNE CAR1.....CL
C ; DROPPED CARRIER.E...RTS ; SO CLEAR C
FLAG.R. .CAR1 SEC.Z...RTS.....;......TI
M LDA #0...H.STA 160...R.STA 161.....STA
162.....RTS."...;.?...J.FY TAX ; . SOME
J.FIES.L...JSR .TIM.\...J.1 CPX 162.H..
.BCS J.1.P.".RTS.V.,.;...6.ANSWER JSR RE
SET ; RESET MODEM...@.ANS0 JSR SMART ; S
. AT ACK.L.J..F "AT H1 S0=1".Z.T..BYT 13
,0...^.LDX #5...H.JSR CHKIN...R.JSR .IN.
..|.PHA.....JSR .CHN.....PLA.'.... #127.
G...CMP #"0" ; . . OKAY RESP.SE.T...BNE
ANS0.D...ANS1 LDX #5.R.B.JSR CHKIN...L.J
SR .IN ; . . NUMERICAL. .V.PHA ; RESP.SE
.....JSR .CHN.....PLA.P.... #127 ; DISCA
RD BIT 7.....CMP #"1" ; 300 BAUD.....BEQ
ANS2 ; YES.....CMP #"5" ; 1200 BAUD.'..
.BEQ ANS3 ; YES.I.&.JSR .IN ; . KEY FROM
KEYBOARD.T.0.CMP #0.A.:.BEQ ANS1.I.D.CL
C.Q.N.RTS...X.ANS2 LDX #.300...B.LDY #.3
00...L.BNE ANS4...V.ANS3 LDX #.1200.B...
LDY #.1200.O...ANS4 SEC.W...RTS.....;...
..RESET LDA $29B.....STA $29C.....JSR SM
ART...F..F "ATZ".&.P..BYT 13,0.2.Z.LDA #
75.?...JSR J.FY.L...LDA $29B.Y...STA $29
C.G...JSR SMART.|....F "AT V0 M0 X1"....
..BYT 13,0... .LDA #75...*.JMP J.FY...4.
;.L.>.HANGUP JSR .HOOK ; S. ... SEQ....H
.JSR SMART ; S. COMM. STRING...R..F "AT
H0 S0=0"...\..BYT 13,0...F.LDA $DD01.6.P
.. #16 ; CHECK CARRIER.\.Z.BNE HANGUP ;
STILL THERE, TRY M.E.I...LDA $29B.V...ST
A $29C.~...RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL