home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / eingaben.s < prev    next >
Text File  |  1995-03-17  |  901b  |  59 lines
  1. OpenLibrary= -30 -378          
  2. CloseLibrary= -30 -384          
  3. Output= -30 -30
  4. Read= -30 -12
  5. Write= -30 -18
  6. Input= -30 -24
  7. ExecBase=4
  8.  
  9.  
  10. start:
  11.     move.l execbase,a6
  12.     lea dosname,a1
  13.     jsr openlibrary(a6)
  14.     move.l d0,dos_base
  15.  
  16.     move.l dos_base,a6
  17.     jsr Output(a6)
  18.     move.l d0,outbase
  19.  
  20.     move.l dos_base,a6
  21.     jsr Input(a6)
  22.     move.l d0,inbase
  23.  
  24. wait2:    and.b #64,$bfe001
  25.     bne wait2
  26.  
  27.     move.l    dos_base,a6
  28.     move.l outbase,d1
  29.     move.l #text1,d2
  30.     move.l #lent1,d3
  31.     sub.l #text1,d3
  32.     jsr    Write(a6)
  33.  
  34.     move.l dos_base,a6
  35.     move.l inbase,d1
  36.     move.l    #textbuf,d2
  37.     move.l    #31,d3
  38.     jsr    Read(a6)
  39.     sub.l #1,d0
  40.     move.l #textbuf,a0
  41.     move.b #0,(a0,d0)
  42.  
  43. wait:
  44.     and.b #64,$bfe001
  45.     bne wait
  46.     move.l execbase,a6
  47.     move.l dos_base,a1
  48.     jsr closelibrary(a6)
  49.     illegal
  50.  
  51. textbuf:    blk.b    32,0
  52. text1:        dc.b    $0c,'Bitte Passwort eingeben: '
  53. lent1:        equ *
  54. dosname:    dc.b 'dos.library',0
  55. align 4
  56. dos_base:    blk.l 1,0
  57. outbase:    blk.l 1,0
  58. inbase:        blk.l 1,0
  59.