home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / Inp.ass < prev    next >
Encoding:
Text File  |  1980-04-01  |  899 b   |  60 lines
  1.     .text
  2.     .sdreg    r2
  3.     .align    2
  4. _Inp:
  5. ###############################################################################
  6. # name           offset
  7. # field          0+0(r13)
  8. # args ###########################
  9. # fh             4+0(r13)
  10.     mflr    r0
  11.     stw    r0,8(r1)
  12.     stwu    r1,-36(r1)
  13.     stw    r13,24(r1)
  14.     mr    r13,r1
  15.     stw    r3,4+28(r13)
  16. if0:
  17.     lwz    r3,4+28(r13)
  18.     lwz    r4,@_list0(r2)
  19.     stw    r4,0+28(r13)
  20.     lwz    r4,0+28(r13)
  21.     li    r5,1
  22.     bl    _Read    # Read
  23.     mr.    r3,r3
  24.     bne    end0
  25.     li    r3,-1
  26.     b    Inpfinish
  27. end0:
  28. Inpend:
  29.     lwz    r3,0+28(r13)
  30.     li    r4,0
  31.     lbzx    r3,r3,r4
  32. Inpfinish:
  33.     lwz    r13,24(r1)
  34.     addi    r1,r1,36
  35.     lwz    r0,8(r1)
  36.     mtlr    r0
  37.     blr
  38.  
  39.     .global    _Inp
  40.     .type    _Inp,2
  41.     .size    _Inp,$-_Inp
  42. Inp_local:
  43.     .global    @_Inp_local
  44.     .extern    _Read
  45.     .tocd
  46.     .extern    _PowerPCBase
  47.     .extern    _stdin
  48.     .extern    _stdout
  49.     .extern    _arg
  50.     .extern    _GfxBase
  51.     .extern    _IntuitionBase
  52.     .extern    _DOSBase
  53.     .extern    _ExecBase
  54.     .data
  55.     .extern    @_list0
  56.     .global    list0
  57. list0:    .byte    0
  58.     .byte    0
  59.     .align    2
  60.