home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / firmware / drives / old / read6530.lst < prev    next >
File List  |  2001-01-03  |  579b  |  12 lines
  1. 1 rem: this program reads a 6530 rom from device 9 and writes it to device 8
  2. 10 dima$(3,255)
  3. 20 data162,0,189,0,252,157,0,7,202,208,247,169,1,108,2,252
  4. 30 open1,8,15:input#1,a,b$,c,d:printa;b$c;d
  5. 40 fori=0to15:reada:print#1,"m-w"chr$(i)chr$(18)chr$(1)chr$(a);:next
  6. 50 fork=0to3:printk:print#1,"m-w"chr$(4)chr$(18)chr$(1)chr$(252+k);
  7. 60 print#1,"m-w"chr$(4)chr$(16)chr$(1)chr$(208);
  8. 70 fori=0to255:print#1,"m-r"chr$(i)chr$(19);:get#1,a$(k,i):next:next:close1
  9. 75 open1,9,9,"results,s,w"
  10. 80 fork=0to3:fori=0to255:ifa$(k,i)=""thena$(k,i)=chr$(0)
  11. 90 print#1,a$(k,i);:next:next:close1
  12.