home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 92 / asm / source / fargo / tester.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  1.2 KB  |  68 lines
  1.  
  2.         xdef            _main
  3.     xdef        _comment
  4.     include        "flib.h"
  5.     include        "hexlib.h"
  6.  
  7. ;************** Start of Fargo program **************
  8.  
  9. _main:
  10.         
  11.     jsr        flib::clr_scr
  12.  
  13.     move.w        #$0700,d0
  14.     trap        #1
  15.     move.l        $64,old_int_1
  16.     bclr.b        #2,$600001
  17.     move.l        #int_1,$64
  18.     bset.b        #2,$600001
  19.     trap        #1
  20.     
  21.     move.l        #$7,d0
  22.     move.l        #0,d6
  23. GO1:
  24.     move.l        #$EA00,d1
  25.  
  26.  GO2:    
  27.     ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> place your code here
  28.  
  29.     ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>    
  30.     dbra        d1,GO2
  31.     dbra        d0,GO1
  32.     
  33.     move.w        #$0700,d0
  34.     trap        #1
  35.     bclr.b        #2,$600001
  36.     move.l        old_int_1,$64
  37.     bset.b        #2,$600001
  38.     trap        #1
  39.  
  40.     move.l        d6,d0
  41.     sub.l        #$B8,d0        ;>>>>>>>>>> change this value by adding the one you see
  42.     move.l        #1,d1               ;when the 'code' is empty
  43.     move.l        #1,d2
  44.     move.l        #7,d4
  45.     jsr        hexlib::put_hex
  46.  
  47.     jsr        flib::idle_loop
  48.  
  49.     rts
  50.  
  51. ;*****************************************************
  52.  
  53. int_1:
  54.     addq    #1,d6
  55.  
  56.     rte
  57.  
  58. ;*****************************************************
  59.  
  60.  
  61. ;****************************************************
  62. old_int_1    dc.l    0
  63. _comment:
  64.         dc.b    "Jerbom's Code Tester v1.0",0
  65. ;************** End of Fargo program ****************
  66.  
  67.  
  68.         end