Satellite BBS

    -- Sebastian Pawlak, 1995.


Reklamówka mojego BBS-u "Satellite"... to były czasy.

Satellite BBS

KOD SEGMENT 
assume cs:KOD
org 100h
start:
 jmp Main

Obraz DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,761,3616
DW 2387,3616,2810,3616,833,3616,2810,3616,2900,3616,762,3616,3909
DW 3616,2810,3616,2892,3616,762,3616,844,3616,762,3616,2377,3616
DW 762,3616,852,3616,2810,3616,2885,544,761,3616,3616,3616,3616
DW 249,761,249,3906,249,762,249,2882,249,762,544,851,3616
DW 2809,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,476,6620,6620,476,3616,303,3616
DW 3616,3616,3616,3616,3616,3616,2554,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,472,3616,3616,3616,3616,3616,3616,3616,219
DW 2524,2524,2524,2524,3616,3616,3616,2524,2524,2524,2524,3616,3616
DW 3616,2524,2524,2524,2524,3616,3616,3616,3616,220,220,220,220
DW 220,220,223,223,223,2553,223,223,223,3616,3616,3616,3616
DW 3616,3616,3616,3616,220,220,476,6620,6620,6623,6620,2523,6620
DW 6620,476,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,2553
DW 3616,3616,3616,3616,220,220,448,450,453,220,3616,3616,3616
DW 219,2523,219,219,219,219,2527,219,2523,3616,506,3616,3616
DW 2527,3616,2523,3616,3616,3616,3616,2523,3616,3616,3616,220,220
DW 220,3616,223,219,219,223,223,223,223,223,223,223,223
DW 3616,3616,3616,3616,3616,3616,3616,220,479,6623,6620,2523,6620
DW 6620,6623,6620,2523,6620,6620,476,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,220,220,476,476,435,47,220,220
DW 220,220,219,2523,219,2524,2524,2524,219,219,2523,3616,2524
DW 2524,2524,3616,3616,3616,2527,2527,2527,3616,2523,3616,3616,3616
DW 3616,3616,223,1017,219,219,219,219,219,219,219,219,219
DW 219,219,219,3616,3616,3616,3616,3616,3616,3616,3616,3616,479
DW 479,6623,6620,2523,6620,6620,6623,6620,2523,6620,6620,476,3616
DW 3616,3616,3616,3616,3616,3616,220,476,6620,2523,2523,6620,476
DW 2351,2500,2552,220,219,2523,219,506,219,219,2523,3616,2523
DW 3616,3616,3616,3616,2523,3616,2524,3616,3616,506,3616,2523,3616
DW 3616,3616,220,220,220,220,223,223,223,223,223,223,223
DW 223,2553,223,223,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,479,479,6623,6620,2523,6620,6620,6623,479
DW 3616,3616,3616,3616,3616,3616,3616,222,4571,6622,2523,2523,2523
DW 2523,6621,4571,220,220,3616,219,219,2527,2527,2527,2527,219
DW 3616,219,2527,2527,2527,2527,3616,3616,3616,2527,2527,2527,2527
DW 3616,3616,3616,3616,220,505,223,223,505,223,223,223,2553
DW 223,223,223,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,506,3616,3616,3616,3616,3616,479,479,6623,479
DW 3616,479,476,3616,3616,3616,476,6620,6620,476,3616,479,6623
DW 2523,2523,6623,479,3616,3616,3616,3616,3616,3616,3616,3616,219
DW 3616,3616,3616,3616,3616,3616,3616,2553,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,505,3616,220,220,220,3616,3616,3616,3616
DW 223,223,223,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,479,476,6620,2523,6619,2523,2523,6620
DW 6620,476,479,479,3616,3616,3616,3616,250,250,250,250,250
DW 250,250,250,250,250,250,250,250,3616,3616,3616,3616,223
DW 2524,2524,2524,2524,3616,3616,3616,2524,2524,2524,2524,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,506,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,2553,3616
DW 3616,3616,3616,3616,3616,3616,476,6620,2523,2523,6623,6619,6619
DW 6619,2523,2523,2523,4571,479,3616,3616,3616,3616,3616,506,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,2527,3616,3616,3616,223,2523,3616,2523,3616,3616,3616,3616
DW 2523,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,220,476,6620,6619,2523,6623,6620,6619
DW 2523,6619,6619,2523,6623,479,219,219,219,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3066,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,506,2527,2527,2524,3616,3616,2527,2527
DW 2527,3616,2523,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,476,6620,6619,2523,6623,6620,2523
DW 2523,6619,2523,2523,6623,479,476,219,3616,3616,3616,3616,223
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,2554,3616,3616,2524,3616,3616,3616,3616,2523,3616,2524
DW 3616,3616,506,3616,2523,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,479,6623,6619,6620,6619
DW 6619,6619,2523,2523,6623,479,219,219,506,479,476,3616,476
DW 6620,476,476,3616,3616,3616,3616,3616,3616,3616,3616,3616,2553
DW 3616,3616,3616,3616,3616,3616,3616,3616,2527,2527,2527,2527,3616
DW 3616,3616,2527,2527,2527,2527,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,2553,3616,3616,3616,3616,3616,3616,3616,476,6620,6619
DW 6619,6623,6623,2523,6623,479,219,219,3616,3616,3616,3616,476
DW 6620,6623,6623,2523,6623,6620,476,476,220,220,220,3616,3616
DW 3616,3616,3616,3616,250,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,506,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3292
DW 16863,479,6623,479,4315,479,223,219,3616,3616,3616,3616,223
DW 479,6623,6623,2523,6623,6620,6623,6623,2523,6623,6620,476,476
DW 3616,303,3616,3616,1017,3616,3616,3616,3616,250,250,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 2524,2524,2524,2524,3616,3616,3616,3616,3616,3616,2524,2524,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,220
DW 19679,19676,1247,3616,3616,3616,3616,3616,3616,3616,2554,3616,3616
DW 3616,3616,3616,3616,3616,479,6623,6623,2523,6623,6620,6623,6623
DW 2523,6623,6620,476,476,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,250,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,2527,3616,3616,3616,3616,2523,3616,3616,3616,2524,2527,220
DW 2523,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 219,19676,1247,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,2554,3616,3616,3616,3616,479,6623,6623
DW 2523,6623,6620,6623,6623,2523,6623,479,3616,3616,3616,3616,3616
DW 3616,3616,506,3616,3616,3616,3616,3616,250,3616,3616,3616,506
DW 3616,3616,3616,3616,506,3616,2524,2527,3616,3616,2524,2527,223
DW 506,3616,2523,3616,3616,3616,3616,3616,3616,506,3616,3616,3616
DW 3616,3616,1247,3616,3616,3616,3616,3616,3616,3616,3616,506,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,479,6623,6623,2523,6623,479,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,220,220,2527,3616,3616,220,3616,2527
DW 2527,2527,2527,223,2523,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,988,988,988,988
DW 988,988,988,988,988,988,988,988,988,988,13275,13275,13275
DW 14812,14812,14812,14812,14812,14812,14812,6620,14812,14812,14812,14812,14812
DW 13275,13275,13275,988,988,988,988,988,988,988,988,988,988
DW 988,988,3616,3616,3616,3616,3616,2527,2527,2527,2527,2527,3616
DW 3616,3616,3616,506,3616,3616,2527,3616,3616,3616,3616,988,988
DW 988,987,5083,5083,14812,14812,14812,14812,14812,14812,14812,14812,14812
DW 14812,14812,2523,14811,14811,6623,6623,6623,6623,6623,6623,6623,6623
DW 6623,6623,6623,6623,12763,12763,12763,12763,12763,12763,12763,12763,12763
DW 4571,6623,6623,6623,6623,6623,6623,6623,6623,6623,14811,14811,14811
DW 14812,14812,14812,14812,14812,14812,14812,14812,14812,14812,14812,14812,14812
DW 5083,5083,987,988,988,988,988,988,340,370,3616,0;,29445
DW 205,205,205,205,205,205,205,708,708,708,708,708,2756
DW 2756,2756,2765,717,3838,2765,2765,3838,2765,717,3838,717,717
DW 3838,717,717,4094,2765,2765,3838,2765,717,3838,717,717,3838
DW 717,717,3838,717,2765,3838,2765,717,3838,717,717,3838,717
DW 2765,4094,2765,2765,4094,2765,717,3838,717,717,2756,708,2756
DW 708,708,708,708,708,205,205,205,205,205,205,205,205
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3833,3616,2899,2336
DW 3834,2336,833,2336,3834,2336,2388,2336,3834,2336,837,2336,3834
DW 2336,2892,2336,3834,2336,844,2336,3834,2336,2377,2336,3834,2336
DW 852,2336,3834,2336,2885,3616,3833,246,246,246,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616,205,205
DW 205,3616,3616,3616,3616,3616,3616,2848,2848,2848,2848,2848,2848
DW 2848,2848,2848,2848,2848,2848,2848,2848,2848,2856,2848,816,2866
DW 2848,809,2848,2848,2870,822,2873,2848,819,2873,2848,818,2868
DW 3616,3616,3634,3633,3832,3832,5,2806,246,3634,3636,3832,3832
DW 3616,613,630,613,626,633,544,612,609,633,246,246,246
DW 246,246,246,246,246,246,246,246,246,246,3616,3616,3616
DW 3616,3616,3616,3616,3616,3616,3616,3616,2387,2425,2419,2415,2416
DW 2362,2336,2900,850,2377,2392,2336,2371,2415,2387,2425,2419,2415
DW 2416,2362,3616,2902,841,2386,2388,3616,3616,3898,3885,3881,3616
DW 3616,3616,3616,3616,589,623,612,613,621,570,3616,1109,3187
DW 1106,1135,1122,1135,1140,1129,1123,1139,1056,3411,3440,3439,3442
DW 3444,3443,3444,3429,3442,3616,3122,3128,3116,3128,3120,3120,3616
DW 1110,1070,1094,1091,3616,3616,3616,3616,3616,3616,3616,3616,3616
DW 3833,2592,2628,2629,2637,2625,3616,3833,3616,577,595,595,581
DW 589,578,588,581,594,3616,3833,3616,2611,2628,2592,2643,2644
DW 2645,2628,2633,2639,3616,3833,3616,583,594,601,544,3833,3616
DW 2637,2645,2650,2649,2635,2625,2592,3833,3616,583,594,577,582
DW 585,587,585,544,3833,3616,2640,2642,2639,2631,2642,2625,2637
DW 2649,2592,3833,3616,3616,3616,3616,3616,3616,3616

Main:
 mov ax,0003
 int 10h
 mov cx,80*24
 mov ax,0b800h
 mov es,ax
 mov di,0
 mov si,offset Obraz
 Nastepny_znak:
  mov ax,cs:si
  mov es:di,ax
  inc si
  inc si
  inc di
  inc di
 loop Nastepny_znak
 mov ah,02h
 mov bh,0
 mov dh,23
 mov dl,1
 int 10h
 mov ah,4ch
 int 21h
ends
end start
w3cw3c
automatyka przemysłowa