Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.os.msdos.programmer > #1126
| From | Herbert Kleebauer <klee@unibwm.de> |
|---|---|
| Newsgroups | comp.os.msdos.programmer |
| Subject | Re: Why I preffer Basic!!! |
| Date | 2013-12-07 19:21 +0100 |
| Organization | Aioe.org NNTP Server |
| Message-ID | <l7vouv$1be$1@speranza.aioe.org> (permalink) |
| References | <695da2f5-5a12-4fdd-b98f-a0519fea0705@googlegroups.com> |
On 07.12.2013 17:59, MIkael Ljungberg wrote:
> I preffer Basic, and that because it so simple to make programs. You don't have to declare strings,
Did you ever program in assembler? Maybe you will love it,
especially if you still can execute 16 bit code (no 64 bit
Windows).
Here a small example.
The binary:
echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=>2006.com
echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU WwX0GwUY Wv;ovBX2Gv0ExGIuht6>>2006.com
echo ?RwAgOLRN_?GHg`E}\ACDuLEEum[t~?[BwEGOL?KNUBFxF_ap=?C~p?rjr>>2006.com
echo {nwFM_yR?_xKQ_z?D_L?~o_NO_GK1wO?D?}?Mmp?C?}x~zdr{l1E]?y=Fk>>2006.com
echo ~?~b=x~nH?FbclgRnN?_w@A~cDGOWh?sx@?`H@~_m@MzN?_A@qn}LG}b?_>>2006.com
echo oIxHcUxLkVtISV{hJ1dL~VxqqT`lWT__r@cm`T___?__@@o`GT_xoDvdMT>>2006.com
echo dX_S_q`Doq_??uo?0x>>2006.com
2006.com
del 2006.com
The source:
@=$100
move.w #$0013,r0 ; 320X200X256
trap #$10
move.w #$a000,-(sp)
move.w (sp)+,s2
move.w #tbuf,-(sp)
_50: move.w (sp)+,r4
lea.w 5.b(r4.w),r5
tst.b #$ff,0.b(r4.w){s6}
bne.b _51
move.w #$0003,r0 ; 80x25 text mode
trap #$10
rts.w
_51: move.w r5,-(sp)
move.w s2,-(sp)
move.w (sp)+,s1
move.w #320*200/2,r2
eor.w r0,r0
eor.w r6,r6
bclr.w #10,sr
rep_r2 move.w r0,(r6.w)+-{s1}
move.w s6,-(sp)
move.w (sp)+,s1
move.w #$1300,r0 ; Fkt. Nr. Text ausgeben
_x1: move.w #$0c12,r1 ; Zeile 12 Spalte 20
move.w #5,r2 ; 1 Zeichen
move.w #$003f,r3 ; Farbe
trap #$10
move.w s2,-(sp)
move.w (sp)+,s0
move.w s6,r0
add.w #$1000,r0
move.w r0,s1
move.w #4,r5
eor.w r6,r6
move.w #320*200/2-2,r2
rep_r2 move.w (r5.w)+-,(r6.w)+-{s1}
move.w s0,-(sp)
move.w s1,-(sp)
move.w (sp)+,s0
move.w (sp)+,s1
bset.w #10,sr
move.w #255,r1
_30: move.w #320*200-1,r6
move.w #199,r4
_20: move.w r4,r0
sub.w #100,r0
muls.w r1,r0,r0
asr.w #8,r0
add.w #100,r0
muls.w #320,r0,r3
move.w #319,r2
_10: move.w r2,r5
sub.w #160,r5
muls.w r1,r5,r5
asr.w #8,r5
lea.w 160(r3.w,r5.w),r5
move.b (r5.w)+-,(r6.w)+-{s1}
dec.w r2
bpl.b _10
dec.w r4
bpl.b _20
dec.w r1
bne.b _30
br.w _50
; 123451234512345123451234512345123451234512345
tbuf: dc.b "MerryXmas and A Happy New Year 2006",0
Back to comp.os.msdos.programmer | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Why I preffer Basic!!! MIkael Ljungberg <mljmacqb@gmail.com> - 2013-12-07 08:59 -0800
Re: Why I preffer Basic!!! Herbert Kleebauer <klee@unibwm.de> - 2013-12-07 19:21 +0100
Re: Why I preffer Basic!!! Paul Bartlett <bartlett@panix.com> - 2013-12-07 16:54 -0500
Re: Why I preffer Basic!!! "Auric__" <not.my.real@email.address> - 2013-12-07 22:41 +0000
Re: Why I preffer Basic!!! Herbert Kleebauer <klee@unibwm.de> - 2013-12-08 01:17 +0100
Re: Why I preffer Basic!!! "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2013-12-07 19:55 -0500
Re: Why I preffer Basic!!! Herbert Kleebauer <klee@unibwm.de> - 2013-12-08 02:16 +0100
Re: Why I preffer Basic!!! "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2013-12-07 19:58 -0500
Re: Why I preffer Basic!!! "Alexei A. Frounze" <alexfrunews@gmail.com> - 2013-12-07 17:01 -0800
Re: Why I preffer Basic!!! "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2013-12-08 00:26 -0500
Re: Why I preffer Basic!!! "Auric__" <not.my.real@email.address> - 2013-12-08 01:52 +0000
Re: Why I preffer Basic!!! "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2013-12-08 00:19 -0500
Re: Why I preffer Basic!!! Harry Potter <rose.joseph12@yahoo.com> - 2013-12-10 09:20 -0800
Re: Why I preffer Basic!!! Paul Bartlett <bartlett@panix.com> - 2013-12-10 14:23 -0500
Re: Why I preffer Basic!!! Harry Potter <rose.joseph12@yahoo.com> - 2013-12-10 11:27 -0800
Re: Why I preffer Basic!!! MIkael Ljungberg <mljmacqb@gmail.com> - 2013-12-10 11:39 -0800
Re: Why I preffer Basic!!! "Alexei A. Frounze" <alexfrunews@gmail.com> - 2013-12-11 02:44 -0800
Re: Why I preffer Basic!!! MIkael Ljungberg <mljmacqb@gmail.com> - 2013-12-11 03:10 -0800
Re: Why I preffer Basic!!! "Alexei A. Frounze" <alexfrunews@gmail.com> - 2013-12-11 03:44 -0800
Re: Why I preffer Basic!!! Harry Potter <rose.joseph12@yahoo.com> - 2013-12-11 07:41 -0800
Re: Why I preffer Basic!!! MIkael Ljungberg <mljmacqb@gmail.com> - 2013-12-31 23:42 -0800
Re: Why I preffer Basic!!! Paul Bartlett <bartlett@panix.com> - 2014-01-01 14:10 -0500
csiph-web