home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / compedit / !CompEdit / A / alphabet next >
Encoding:
Text File  |  1991-06-17  |  348 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 .start
  12.  
  13. 60 MOV R0,#64
  14.  
  15. 70 .loop
  16.  
  17. 80 ADD R0,R0,#1
  18.  
  19. 90 SWI "OS_WriteC"
  20.  
  21. 100 CMP R0,#90
  22.  
  23. 110 BLT loop
  24.  
  25. 120 MOVS R15,R14
  26.  
  27. 130 ]
  28.  
  29. 140 NEXT pass%
  30.  
  31. 150 *UP
  32.  
  33. 160 *DIR M
  34.  
  35. 170 INPUT''"Save assembled version as : "file$
  36.  
  37. 180 OSCLI"SAVE "+file$+" "+STR$~code%+" "+STR$~P%
  38.  
  39. 190 END
  40.  
  41.