home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d849 / amigapascal.lha / AmigaPascal / Examples / Example1.s < prev    next >
Encoding:
Text File  |  1993-03-31  |  1.0 KB  |  64 lines
  1.     BRA     L1
  2. a: dc.l 0
  3. b: dc.l 0
  4. c: dc.l 0
  5. INTEGER: dc.l 0
  6. _dos:       DC.L   0
  7. _dosname:   DC.B   'dos.library',0
  8. _format:    DC.B   '%ld',10,0
  9.             DS.L   0
  10. _print:     DC.L   0
  11. L1:
  12.     LEA      _dosname,A1
  13.     MOVE.L   #37,D0
  14.     MOVE.L   $4,A6
  15.     JSR      -552(A6)
  16.     TST.L    D0
  17.     BNE.S    ok_
  18.     RTS
  19. ok_:
  20.     MOVE.L   D0,_dos
  21.     MOVE.L  #1,D0
  22.     MOVE.L  D0,a
  23.     MOVE.L  #0,D0
  24.     MOVE.L  D0,b
  25.     MOVE.L  #46,D0
  26.     MOVE.L  D0,c
  27. L2:
  28.     MOVE.L  c,D0
  29.     TST.L   D0
  30.     BLE     L3
  31.     MOVE.L  a,D0
  32.     LEA     _format,A0
  33.     MOVE.L  A0,D1
  34.     LEA     _print,A0
  35.     MOVE.L  A0,D2
  36.     MOVE.L  D0,(A0)
  37.     MOVE.L  _dos,A6
  38.     JSR     -954(A6)
  39.     MOVE.L  a,D0
  40.     MOVE.L  D0,D1
  41.     MOVE.L  b,D0
  42.     ADD.L   D1,D0
  43.     MOVE.L  D0,a
  44.     MOVE.L  a,D0
  45.     MOVE.L  D0,D1
  46.     MOVE.L  b,D0
  47.     NEG.L   D0
  48.     ADD.L   D1,D0
  49.     MOVE.L  D0,b
  50.     MOVE.L  c,D0
  51.     MOVE.L  D0,D1
  52.     MOVE.L  #1,D0
  53.     NEG.L   D0
  54.     ADD.L   D1,D0
  55.     MOVE.L  D0,c
  56.     BRA     L2
  57. L3:
  58.     MOVE.L   _dos,A1
  59.     MOVE.L   $4,A6
  60.     JSR      -414(A6)
  61.     MOVE.L   #0,D0
  62.     RTS
  63.     END
  64.