home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
german
/
eingaben.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
901b
|
59 lines
OpenLibrary= -30 -378
CloseLibrary= -30 -384
Output= -30 -30
Read= -30 -12
Write= -30 -18
Input= -30 -24
ExecBase=4
start:
move.l execbase,a6
lea dosname,a1
jsr openlibrary(a6)
move.l d0,dos_base
move.l dos_base,a6
jsr Output(a6)
move.l d0,outbase
move.l dos_base,a6
jsr Input(a6)
move.l d0,inbase
wait2: and.b #64,$bfe001
bne wait2
move.l dos_base,a6
move.l outbase,d1
move.l #text1,d2
move.l #lent1,d3
sub.l #text1,d3
jsr Write(a6)
move.l dos_base,a6
move.l inbase,d1
move.l #textbuf,d2
move.l #31,d3
jsr Read(a6)
sub.l #1,d0
move.l #textbuf,a0
move.b #0,(a0,d0)
wait:
and.b #64,$bfe001
bne wait
move.l execbase,a6
move.l dos_base,a1
jsr closelibrary(a6)
illegal
textbuf: blk.b 32,0
text1: dc.b $0c,'Bitte Passwort eingeben: '
lent1: equ *
dosname: dc.b 'dos.library',0
align 4
dos_base: blk.l 1,0
outbase: blk.l 1,0
inbase: blk.l 1,0