home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / compedit / !CompEdit / A / beeper < prev   
Encoding:
Text File  |  1991-06-17  |  345 b   |  21 lines
  1. NEW
  2.  
  3. 10 DIM code% 204800
  4.  
  5. 20 FOR pass%=0 TO 1
  6.  
  7. 30 P%=code%
  8.  
  9. 40 [OPT pass%
  10.  
  11. 50 MOV R0,#7
  12.  
  13. 60 SWI "OS_WriteC"
  14.  
  15. 70 MOVS R15,R14
  16.  
  17. 80 ]
  18.  
  19. 90 NEXT pass%
  20.  
  21. 100 *UP
  22.  
  23. 110 *DIR M
  24.  
  25. 120 INPUT''"Save assembled version as : "file$
  26.  
  27. 130 *SPOOL SAVE
  28.  
  29. 140 VDU21
  30.  
  31. 150 PRINT "*SAVE ";file$;" ";~code%;" +";~(P%-code%)
  32.  
  33. 160 VDU6
  34.  
  35. 170 *SPOOL
  36.  
  37. 180 *EXEC SAVE
  38.  
  39. 190 END
  40.  
  41.