> CMSave/src  Source for SaveCMOS  *SaveCMOS () NB: Naming convention back to front 2> v1.01 31-Oct-2010 Reads location 255 to get size to save <: F*OSARGS=&FFDA:OSFILE=&FFDD:OSBYTE=&FFF4 P lptr=&A8 Z: d! mcode% &200:load%=&FFFF0900 n P=0 1 xP%=load%:O%=mcode% [OPT P*3+4 .go% &LDA #1:LDY #0:LDX #lptr:JSR OSARGS LDA lptr+0:STA save+0 LDA lptr+1:STA save+1 ;LDA #161:LDX #255:LDY #49 :\ Default to 49+1 bytes ?JSR OSBYTE:TYA:TAX:INX :\ Y=0 means no CMOS present CLC:ADC save+14:STA save+14 >LDA #0:ADC save+15:STA save+15 :\ Set end location to save .lp 4DEX:TXA:PHA:LDA #161:JSR OSBYTE:\ Read CMOS byte 9PLA:TAX:TYA:STA data,X :\ Store in data block TXA:BNE lp #LDX #save 255:LDY #save 256 9LDA #0:JMP OSFILE :\ Save the data block  .save " EQUW 0:EQUD &FFFFF200:EQUD 0 ,/EQUW data:EQUW &FFFF:EQUW data+1:EQUW &FFFF 6 .data @EQUS "SaveCMOS 1.01":BRK J] TKA$="SAVE SaveCMOS "+~mcode%+" "+~O%+" "+~(go%&FFFF0000)+" "+~load% ^A$;:A$: